Hallo zusammen,
ich würde gerne einen Datensatz einfügen und benötige dafür jedoch nur gewisse Zeilen. Wenn ich nun eine If Or Formel schreibe mit dem Inhalt der gewünschten Zeilen, dann funktioniert nur die erste Formel.
Zusätzlich sollte ich noch ein Or einfügen für leere Zeilen, diese sollten auch nicht gelöscht werden.
Ich hoffe jemand kann mir helfen. Danke schonmal!
Hier der Code:
Sub importieren()
Workbooks("Aktuelle Datei Augsburg Günzburg").Worksheets(1).Range("A4:N4000").Copy
Workbooks("Makro_Retouren").Worksheets("Daten Augsburg Günzburg").Range("A10").PasteSpecial
Application.Calculation = xlCalculationManual
For i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1
If Not ActiveSheet.Cells(i, 9).Value = "52237683 n GmbH Paldau Saaz 99" Or ActiveSheet.Cells(i, 9).Value = "61896256 T P GmbH Lindau Heuriedweg" Or ActiveSheet.Cells(i, 9).Value = "50602083 B U Versand GmbH L" Or ActiveSheet.Cells(i, 9).Value = "50837304 S Handels und Verlags GmbH Inn" Then ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub
|