Platzhalter
24.02.2021 15:39:01
Ralf
ich habe eine Exceltabelle mit Werten, die alle in Spalte A stehen.
Zur weiteren Verarbeitung benötige ich Leerzeilen die oberhalb, einer
im Text eingebetteten Zahl, eingefügt werden.
Diese "Zahl" beginnt immer mit 9 und hat insgesamt vier Stellen.
Den folgende Schnipsel hab ich schon, der funktioniert aber nur
wenn ich die komplette Zahl eintrage.
Sub Buchungen_trennen()
Dim lngRow As Long
With Columns("A")
For lngRow = .Rows.count To 1 Step -1
If InStr(.Cells(lngRow, 1).Value, "9999") Then
.Rows(lngRow).EntireRow.Insert
End If
Next lngRow
End With
End Sub
Mit welchen Platzhaltern kann ich das bewerkstelligen?
Gruß Ralf