habe ein Makro das wunderbar funktioniert.
Mein Problem ist nach einfügen der Zeile in Worksheet (Werkstatt) möchte ich wieder zurück zum Worksheet (Thomas) . Ich weis das es hiermit geht (Sheets("Thomas").Select)
aber ich habe sechs Seiten mit Namen und dann müsste ich das Makro sechs mal haben.
Gibt es da eine Möglichkeit auf Worksheet zurück zugehen von wo ich die Zeile kopiert habe?
Mit freundlichen Grüßen Thomas H.
Sub Kopieren()
For Each Z In Selection
Range(Z.Address).Interior.ColorIndex = 3
Range(Z.Address).Offset(0, 0).Resize(, 9).Copy
Sheets("Werkstatt").Select
ActiveSheet.Paste
Application.CutCopyMode = False
?????????????????????????????????????????
Next Z
End Sub