Hallo zusammen,
ich habe hier ein kleines Problem, ich will in jedem Tabellenblatt nach einem bestimmten Range suchen und diesen dann in ein anderes einfügen.
Anfangs hat es funktioniert, jedoch hat er mir jeden Eintrag überschrieben, sodass ich jetzt in der letzten Zeile die Cells(Rows.Count, 2) definiert habe, was ich vorher nicht hatte, seitdem nimmt er meine ganze if-Abfrage nicht mehr und meckert er habe keine Objektvariable, ich versteh das nicht ganz, kann mir vielleicht jemand helfen?
For Each ws In ActiveWorkbook.Worksheets
If Cells.Find("Eintrag").Value "" Then
Range(Cells(Cells.Find("Eintrag").Row, Cells.Find_("Eintrag,falls ").Column),Cells_(ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells_(xlCellTypeLastCell).Row,Cells.Find("Spalte").Column)).Copy Destination:=Worksheets("ZielTabelle").Cells(Rows.Count, 2).End(xlUp).Offset(3, -1)
Else
End If
Next
Vielen dank in voraus