hier der Code
For j = 1 To Sheets.Count
Sheets("Makro").Select
Range("A65:A161").Copy
If Sheets(j).Name "Data" Or Sheets(j).Name "Makro" Then Sheets(j).Range("A8").Paste
Next j
warum geht dies nicht? es wird immer Sheets(j).Range("A8").Paste dies markeiert und die Meldung, dass das Objekt oder die Methode nicht unterstützt wird.
Kann mir jemand weiter helfen?
Bin für jede Hilfe dankbar.
gruß
Torsten