Zusammenführen von Text
08.06.2020 09:50:48
Text
Ich komme mit meinem Excel VBA Code nicht weiter.
Ich habe in der Spalte A mehrere Zellen mit verschiedenen Textinhalten.
Die meisten Texte haben zwischendrin leere Zellen. Andere sind folgend untereinander ohne leere Zellen. Es sind immer unterschiedlich viel Texte untereinander.
Ich möchte gerne eine Abfrage starten, welche mir diese Texte zusammenfügen (die keine leere Zellen dazwischen haben) und gleich mit Zeilenumbruch formatieren. Kann mir da jemand weiterhelfen?
Mein bisheriger Code sieht folgendermasen aus:
Sub StufeLöschen()
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
'Allgemeine Änderungen
If Left(.Cells(LoI, 1), 5) = "Stufe" Then
.Cells(LoI, 1).Delete
End If
Next LoI
End With
End Sub