Fehler im VBA Text
06.12.2004 11:09:34
Josef
Ich bekam im Forum folgende Lösung:
Sub Lösch_Spalte_D_14()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 1 Step -1
If Mid(Cells(i, 4).Text, 1, 2) = "14" Then
Cells(i, 4).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Mit diesem Makro sollen in SpalteD alle Zellen ,wo die ersten 2 Zeichen mit 14 beginnen gelöscht werden.
Der Aufbau in meinen Datensatz ist folgender:
Spalte D
Eine Menge Datensätze beginnend mit 34............,
danach 14..............,
anschließend wieder 34............
Wenn das Makro abläuft, so werden nicht nur die Zellen mit 14... sondern auch alle darunterliegenden Zellen mit 34.... gelöscht.
Wie könnte man bitte dieses Makro korrigieren, dass nur die Zellen mit 14.....
gelöscht werden, und die mit 34...... darunter bestehen bleiben?
Danke
Josef