Sub
importieren()
Dim
i
As
Long
, raLöschen
As
Range
Workbooks(
"Aktuelle Datei Augsburg Günzburg"
).Worksheets(1).Range(
"A4:N4000"
).Copy
Workbooks(
"Makro_Retouren"
).Worksheets(
"Daten Augsburg Günzburg"
).Range(
"A10"
).PasteSpecial
For
i = 5
To
Cells(Rows.Count, 1).
End
(xlUp).Row
Select
Case
Cells(i, 9)
Case
""
,
"52237683 n GmbH Paldau Saaz 99"
,
"61896256 T P GmbH Lindau Heuriedweg"
, _
"50602083 B U Versand GmbH L"
,
"50837304 S Handels und Verlags GmbH Inn"
If
raLöschen
Is
Nothing
Then
Set
raLöschen = Cells(i, 9)
Else
Set
raLöschen = Union(raLöschen, Cells(i, 9))
End
If
Case
Else
End
Select
Next
i
If
Not
raLöschen
Is
Nothing
Then
raLöschen.EntireRow.Delete
End
If
Set
raLöschen =
Nothing
End
Sub