beigefügten Code entdeckte ich unter Recherche; Was muß ich umstellen, damit die Daten aus dem ausgeblendeten Blatt "Daten", ab Zeile 2 kopiert werden und dann in das jeweils aktive Tabellenblatt eingefügt werden. (z.B. aus "Daten" Spalte A in Aktives Blatt Spalte D, wie im Beispiel). Das ganze würde ich dann für mehrere Spalten gleichzeitig durchführen. Ich habe das schon mit Active Sheet versucht, bekomme da aber immer nur Fehlermeldungen. Danke schon jetzt Allen, die sich mit meiner Frage beschäftigen.
Herzliche Grüße
Wolfgang
Sub test()
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Copy Destination:=Cells(1, 4)
End Sub