Makro Fehler 1004
09.01.2019 15:57:01
Hauke
habe ein Problem.
Ich bin unerfahren im Umgang mit Makros. Ich habe mir eine Makro bei einem Tutorial kopiert und auf meine Liste angepasst.
Ziel: Ich möchte aus einer Liste mit mehr als 2000 Zeilen bestimmte Zeilen herauskopieren. Wenn die Bedingung "A" erfüllt ist und der Wert in der 2. Spalte steht, soll die gesamte Zeile aus (AlleKunden) kopiert werden und in ein neues Sheet (AKunden) eingefügt werden.
Hier der Makro Text:
Sub AKunden()
Dim variable As String
variable = [J1]
With Sheets(variable).UsedRange
.AutoFilter Field:=2, Criteria1:="A"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("AKunden").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial x1PasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Bei der Ausführung der Makro bekomme ich allerdings Laufzeitfehler: "1004"
- es werden keine Zeilen kopiert
- alle Zeilen in dem Ursprungsreiter (AlleKunden) werden komischerweise ausgeblendet
Seht ihr einen Fehler in den Befehlen?
Danke für jede Hilfe