VBA Lösung gesucht
03.12.2004 12:18:15
Josef
Ich habe folgenden VBA Text:
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
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Wenn in Spalte D an der ersten und 2.Stelle die Zahl 14 aufscheint, dann wird die Zeile gelöscht.
Ich würde jedoch jetzt noch eine Lösung suchen,wenn an der ersten und der 2.Stelle die Zahl 14 in Spalte D aufscheint, dann soll nicht die Zeile, sondern nur die gefundene Zelle in der Spalte D gelöscht werden.
Danke
Josef
Anzeige