Habe das dies bereits unten etwas überarbeitet.
Jetzt kommen die Selects- die so nicht rein kommen...
Es fehlt noch das Kopieren und Einfügen.
' setze Unterschrift
Sheets("Hilfstabelle EINGABE").Select
Range("A63:M73").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Endblatt").Select
Range("A39").Select
ActiveSheet.Paste
Sheets("Hilfstabelle EINGABE").Select
Range("A80:M87").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Range("A44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D47").Select
Sheets("Hilfstabelle EINGABE").Select
Range("A80:M87").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Deckblatt").Select
Range("A44").Select
ActiveSheet.Paste
Range("O44").Select
End Sub
Sub Setze_Unterschriften()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Set WS1 = Worksheets("Hilfstabelle EINGABE")
Set WS2 = Worksheets("Endblatt")
Set WS3 = Worksheets("Deckblatt")
With WS2 '=Worksheets("Endblatt")
.Range("A39") = WS1.Range("A63:M73").Value
End With
With WS3 '=Worksheets("Deckblatt")
.Range("A44") = WS1.Range("A80:M87").Value
End With
End Sub
Vielleicht kann jemand weiter helfen.Grüße Andreas