|
Hallo Zusammen
Ich komme mit meinem Excel nicht weiter.
Ich habe in Spalte A mehrere Text Inhalte. Die meisten Zellen mit Text haben zwischendrin Zellen ohne Text. Jetzt möchte ich die Zellen zusammenfügen, welche gleich untereinander Text beinhalten und die gleich mit Zeilenumbruch formatieren. Kann mir jemand weiterhelfen?
Meine VBA Formel sieht bis jetzt so aus:
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Tabelle2")
'Letzte Zeile definieren
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For LoI = 2 To LoLetzte
If Left(.Cells(LoI, 1), 5) = "Stufe" Then
.Cells(LoI, 1).Delete
End If
Next LoI
End With
End Sub
|