ich komme mit einem Problem nicht weiter.
Ich bekomme über den Download aus einem anderen Programm eine txt.datei. Für die komfortablere Weiterverarbeitung in Excel ist es besser, daß überflüssige Zeilen mit bestimmten Zeichenfolgen gelöscht werden.
Ich habe bisher das nachfolgende Makro benutzt, das aber wegen der großen Datenmengen viel zu langsam ist.
Könnt Ihr mir helfen? Gibt es eine schnellere Alternative?
Dim i, Zeile As Integer
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = Zeile To 1 Step -1
If Cells(i, 1).Value = "1 KO" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Hiera" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "----" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "-----" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "------" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "-------" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "SKS" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Au" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "o" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Ber" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Hi" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Be" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Ve" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Ze" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Gr" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Grupp" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "B" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "P" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "G" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "E" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "A" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "44 NA" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Ko" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "ode" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Beric" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "F1=Hil" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "F1=H" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Kostens" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Bericht" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "1 KOST" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "44 NAD" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "44 NADL" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "SKS -" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Ausw" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Hier" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "44 N" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "ZNR" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Beri" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "1 K" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "BEZ" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "PER" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "GEM" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "EMP" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "ABG" Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Gruppe" Then
Cells(i, 1).EntireRow.Delete
End If
Next i