per Makro sollen Versandtabellen umformatiert und gefiltert werden.
Aus einer Tabelle sollen alle Zeilen mit Land X gefunden werden, in ein neues Arbeitsblatt kopiert und in der Ursprungdatei gelöscht werden.
Kopieren etc. funktioniert einwandfrei. Leider habe ich es nicht hinbekommen den Kopier- und Löschvorgang in einem Abwasch zu erledigen, weswegen ich das aufgeteilt habe.
Allerdings wird dann beim zweiten Durchsuchen nach Land X nicht mehr alles gefunden, was zuvor gesucht und kopiert wurde. Ich kann mir das überhaupt nicht erklären. Vlt. hat hier jmd. eine Idee.
Der Kopiervorgang:
' Finde "UK" in Spalte "AM"
Dim a As Long, i As Long
a = 1
For i = 1 To 10000
With ActiveSheet
If .Cells(i, "AM") = "UK" Then
.Rows(i).Copy: Worksheets("Tabelle1").Rows(a).Insert Shift:=xlDown
(Befindet man sich nach einem solchen Kopiervorgang eigentlich in dem Arbeitsblatt von wo kopiert wurde oder wohin kopiert wurde)
'.Rows(i).Delete
(das wäre mein Versuch, die gefundene Zeile direkt nach dem Kopieren zu löschen, funzt aber leider nicht)
a = a + 1
End If
End With
Next i
und der später folgende Löschvorgang:
' Finde "UK" in Spalte "W" und lösche Zeile
Dim k As Long
For k = 1 To 10000
With ActiveSheet
If .Cells(k, "W") = "UK" Then
.Rows(k).Delete
End If
End With
Next k