Hallo,
zur Zeit habe ich eine Checkbox eingefügt, die die Zellen (A2 bis L2) kopiert und auf dem nächsten Datenblatt (Bewilligt) in die erste freie Zeile einfügt.
Den Code hab ich aus dem Internetz (funktioniert auch):
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A2:L2").Copy
erste_leere_Zeile = Worksheets("Bewilligt").Range("A65536").End(xlUp).Offset(1, 0).Row
Worksheets("Bewilligt").Cells(erste_leere_Zeile, 1).PasteSpecial Paste:=xlValues
End If
End Sub
Allerdings wäre es besser wenn die Zellen ausgeschnitten werden statt kopiert. Wenn ich aber Range("A2:L2").Copy etwas abändere in Range("A2:L2").Cut kommt die Fehlermeldung: "Laufzeitfehler 1004: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden"
Kann mir bitte jemand kurz sagen was ich abändern muss?
Vielen Dank schonmal im Voraus!
Grüße
Martin
|