beamerlampe
Goto Top

Bevor ich meine Excelliste in *.CSV umwandeln kann....

Schönen guten Tag,
ich habe eine Excelliste, wo alle erforderlichen Daten in der Spalte A vorhanden sind.

Bezeichnung1
Bezeichnung2
Material
Farbe
Größe
Bestellnummer
Preis
Abnahmemenge etc.

So kann ich das nicht in eine csv-Datei umwandeln für meine Homepage.

Wie kann ich die obigen Daten, in die richtigen Spalten automatisch verschieben, ohne das manuell machen zu müssen.
Dabei habe ich jede Spalte zu benannt.

Tut mir leid, wenn das ein zu einfache Frage ist, aber ich habe leider keinen mehr, der mir das ordentlich erklären kann.
Sitze also etwas auf dem Schlauch. Vielleicht bin auch im falschen Forum?

Danke, Simone.

Content-ID: 40227

Url: https://administrator.de/contentid/40227

Ausgedruckt am: 25.11.2024 um 19:11 Uhr

verkehrsberuhigt
verkehrsberuhigt 15.09.2006 um 17:29:56 Uhr
Goto Top
Ist denn dafür nicht die Pivot-Funktion ausreichend?
bastla
bastla 15.09.2006 um 19:07:32 Uhr
Goto Top
Hallo Simone!

Das folgende Stückchen VBA überträgt jeweils 8 Datenfelder (wie in Deinem Beispiel oben) in entsprechende Spalten (Annahme: Daten stehen nur in Spalte A, immer gleiche Anzahl von Feldern - im Beispiel also 8). Die neuen Datensätze beginnen in Startzeile 3, Startspalte B)

Sub InSpalten()
'Folgende Werte bitte anpassen:  
Zeile = 3 'erster Dateneintrag in Spalte A  
Feldanzahl = 8
Startzeile = 3
Startspalte = 2 'Spalte B  

SatzNr = 1

Do While Cells(Zeile, 1) <> ""  
For i = 1 To Feldanzahl
    Cells(SatzNr + Startzeile - 1, Startspalte + i - 1).Value = Cells(Zeile + i - 1, 1).Value
Next
SatzNr = SatzNr + 1
Zeile = Zeile + Feldanzahl
Loop
End Sub

HTH
bastla
beamerlampe
beamerlampe 15.09.2006 um 20:02:59 Uhr
Goto Top
Vielen Dank für die Hilfen.
Mit Pivot habe ich heute den Nachmittag verbracht - ist mir leider nicht gelungen.
Morgen teste ich mal das VBA-Stückchen. Wenn es hiflt - wäre ich überglücklich.
Bis Morgen dann und schönen Abend, Simone