wie kann ich bitte per VBA (ab Zeile 3 bis letzte benutzte Zeile der Spalte A) ganze Zeile löschen bei den es in Spalte A das Wort BAK in dem Zellinhalt vorkommt?
Beste Grüße,
Sergej
Option Explicit
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
If Cells(x, 1).Text Like "*BAK*" Then MyCheck = True
If MyCheck Then
Rows(x).Delete
Exit For
End If
Next
End Sub
Gruß MatthiasOption Explicit
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
MyCheck = False
If UCase(Cells(x, 1).Text) Like "*BAK*" Then MyCheck = True
If MyCheck Then
If MsgBox("Zeile " & x & " wird jetzt gelöscht", vbYesNo) = vbYes Then
Rows(x).Delete
Exit For
End If
End If
Next
End Sub
Gruß MatthiasIf Instr(UCASE(Cells(x, 1).Text), "BAK") > 0 Then MyCheck = True
Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
If InStr(UCase(Cells(x, 1).Text), "BAK") > 0 Then MyCheck = True
If MyCheck Then
Rows(x).Delete
' Exit For
End If
Next
End Sub
Damit wurden die Zeilen gelöscht, bei den es im Zellinhalt "BAK" vorkommt. Leider wurden auch einige Zeilen gelöscht, bei den im Zellinhalt kein BAK vorkommt. ;-)Sub tt()
Dim LoLetzte&, x&, MyCheck As Boolean
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 3 Step -1
MyCheck = False
If UCase(Cells(x, 1).Text) Like "*BAK*" Then MyCheck = True
If MyCheck Then
If MsgBox("Zeile " & x & " wird jetzt gelöscht", vbYesNo) = vbYes Then
Rows(x).Delete
Exit For
End If
End If
Next
End Sub
Ich muss das Makro mehrfach ausführen, damit alle betreoffenen Zeilen gelöscht werden.