Copy
Engin
ich habe ein Problem mit Kopieren von Daten über ein CommandButton.
Der Code sieht so aus, wo ist der Fehler?
Private Sub CommandButton1_Click()
n1 = 1
n2 = 10
Sheets("Tabelle1").Select
Range("B" & n1 & ":B" & n2).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("F" & n1 & ":F" & n2).Select
ActiveSheet.Paste
End Sub
Danke schon mal im Voraus
Anzeige