Ich habe folgendes Makro geschrieben (siehe unten). Dummerweise läuft es aber immer auf einen Speicherfehler heraus (Laufzeitfehler 7: Nicht genügend Speicher). Hab mir gedacht, es liegt an der Verkettenfunktion im VBA und die Anzahl der Zeichen, aber das ist nicht der Fall. Auch der Weg über die Daten in die Zwischenablage kopieren und von dort einfügen läuft auf ein Speicherfehler.
Aber vielleicht gibt es eine besser VBA Lösung schon am Anfang.
Spalte T enthält Zahlen. Makro sucht in der Spalte die Zahl 1 und kopiert alle nebenstehenden Zellen in eine Zelle bis die nächste 1 kommt.
Beispiel
1 aa
2 bb
3 cc
1 xx
2 yy
1 rrr
Also werden drei Zellen mit Inhalt erzeugt: "aabbcc" und "xxyy" und "rrr"
Kann mir dabei jemand helfen?
Hier mein voriges Makro:
Sub Langtext_verketten_u_HeaderFormat_2007_08()
Dim a As Integer
Dim i As Integer
Dim z As Integer '
i = 2
z = 2
Do While (Sheets("RawData").Cells(i, 1) 0) 'wieviel Zeilen in Rohdaten
z = z + 1
i = i + 1
Loop
Cells(1, 2) = "Lfd.Nr."
Cells(1, 22) = "Text"
i = 2
Do While i kleiner z
Cells(i, 2) = i
If Cells(i, 20) = 1 Then
Cells(i, 22) = Cells(i, 21)
a = i
Else
Cells(a, 22) = Cells(a, 22) & Cells(i, 21)
End If
i = i + 1
Loop