|
Gast 21171 war ich...
Hier nochmal mein aktueller code:
Private Sub CommandButton1_Click()
Worksheets("Formsatz- und Kalibrierungstypen").Activate
Worksheets("Formsatz- und Kalibrierungstypen").Select
Range("A2:I16").Select
Range("A2:I16").Copy Destination:=Worksheets("Tabelle1").Range("D8")
End Sub
|