ich versuche mich gerade ein wenig an VBA.
Ich wollte ein Makro erstellen, welches automatisch alle Zeilen löscht einer Datei außer die Zeile enthält eine Zelle mit folgendem Inhalt.
Folgendes habe ich erstellt:
Sub loeschen()
Dim n As Integer
n = 1
Do
If Not ActiveSheet.Range("A" & n) = "900" Then
ActiveSheet.Range("A" & n).EntireRow.Delete
Else
n = n + 1
End If
Loop While ActiveSheet.Range("A" & n) ""
End Sub
Soweit funktioniert es auch. Allerdings wollte ich nun eine weitere Bedingung einbauen. Quasi lösche alle Zeilen außer wenn eine Zelle mit "900" oder "800" enthalten ist. Alles was ich nun versuche scheitert kläglich.
Könnt ihr mir hier helfen?
Vielen Dank!
LG