VBA Error 1004
14.04.2020 15:19:13
Kerumi
Ich habe nach einem Code gesucht, der es mir ermöglicht bestimmte Zeilen (Zellen) zu kopieren, wenn die Bedingung "Text xy" erfüllt ist...
Soll heissen, wenn in Zelle G5 der Text "Test" steht soll Zelle G5 und H5 in Tabellenblat 2 kopiert werden.
Bin dazu auch halbwegs fündig geworden:
https://www.youtube.com/watch?v=RwHGGqnt1nA
Benutze den von ihm gegebenen Code...
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="Beckhoff"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Beckhoff").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Jedoch ist es nun so, dass wenn ich die Videoanleitung befolge und das Makro spielen will, kriege ich den Laufzeitfehler 1004.. Also wohl irgendwo eine Endlosschlaufe..
Kann mir da ev. wer einen Tipp geben woran das liegen kann?
Hab in Blatt 2 extra ein Copy+Paste vom Tabellenblatt 1 Namen gemacht, damit da keine Fehler auftreten.
Blatt 2 heisst Beckhoff.
Suche in Blatt 1 nach dem Begriff Beckhoff (vorhanden) in Spalte G:G.
Danke schon mal für eure Hilfe!