Hallo liebe VBA-Community,

ich bin noch ziemlich neu in der VBA-Programmierung und verusche Maschinen-Protokolle zu analysieren. Ich habe schon ein Makro gebaut, was aus einem Ordner alle maschinell erzeugten CSV-Dateien in Excel importiert. Des Weiteren habe ich schon ein Makro gebaut, welches alle Zeilen, die in der "H-Spalte" ein "PASS" haben löscht, da mich nur die FAILS interresieren.

Nun zur meiner Frage: Manche Zeilen haben in ihrer H-Zelle weder Pass noch Fail, sodass ich mir wieder ein Makro programmiert habe, dass alle Zeilen wo nichts steht löscht. Leider löscht es mir damit auch die Seriennumer und das Endresultat. Mein Makro's "lösche-leer" und "lösche_pass" dürften quasi nur ausgeführt werden, wenn in der A-Zelle der jeweiligen Spalten ein "ANL" steht, ansonsten nicht.

Hier der entsprechende VBA-Code:

Sub Lösche_PASS()

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
    sh.Activate
   
        Dim rng As Range
        Dim i As Integer, counter As Integer
        Set rng = Range("H4:H5000")
        i = 1
        For counter = 1 To rng.Rows.Count
            If rng.Cells(i) = "PASS" Then
               rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
        Next
Next

End Sub
Sub Lösche_Leer()

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
    sh.Activate
   
        Dim rng As Range
        Dim i As Integer, counter As Integer
        Set rng = Range("H4:H100")
        i = 1
        For counter = 1 To rng.Rows.Count
            If rng.Cells(i) = "" Then
               rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
        Next
Next

End Sub

Ich hoffe jemand kann mir helfen.

Viele Grüße Lukas