Thema Datum  Von Nutzer Rating
Antwort
Rot Checkbox: Zellen ausschneiden und einfügen
10.09.2019 09:36:20 Martin
NotSolved
10.09.2019 09:41:12 Gast59145
NotSolved
10.09.2019 09:52:49 Torsten
*****
NotSolved
10.09.2019 09:53:40 Torsten
*****
NotSolved
10.09.2019 10:18:33 Gast17666
NotSolved
10.09.2019 11:18:26 Torsten
Solved

Ansicht des Beitrags:
Von:
Martin
Datum:
10.09.2019 09:36:20
Views:
34
Rating: Antwort:
  Ja
Thema:
Checkbox: Zellen ausschneiden und einfügen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Checkbox: Zellen ausschneiden und einfügen
10.09.2019 09:36:20 Martin
NotSolved
10.09.2019 09:41:12 Gast59145
NotSolved
10.09.2019 09:52:49 Torsten
*****
NotSolved
10.09.2019 09:53:40 Torsten
*****
NotSolved
10.09.2019 10:18:33 Gast17666
NotSolved
10.09.2019 11:18:26 Torsten
Solved