ich benötige wieder einmal eure Hilfe, da ich fast am Verzweifeln bin.
Ich habe eine Tabelle, in der in Spalte A verschiedene Buchstaben je Zeile enthalten sind. Ich habe versucht, ein Makro zu basteln, dass die Zeile löscht, wenn Spalte A nicht A oder B ist. Sobald A oder B darin vorkommen, soll die Zeile bestehen bleiben.
Hier mein Versuch, der aus einem anderen abgewandelten Makro besteht:
Sub Wertloeschen()
For j = 1 To 100000
tmp = False
While tmp = False
Content = Trim(Cells(j, 1).Value)
If Content "A" Xor "B" Then
Rows(j).Select
Selection.Delete shift:=xlUp
Else
tmp = True
End If
Wend
Next j
MsgBox "Erfolgreich"
End Sub
Bei dieser Konstellation wird alle gelöscht und es kommt ein Laufzeitfehler.Habt ihr eine Lösung?