Hallo Leute, nachdem ich gestern meine Augen wundgesucht habe, erhoffe ich mir nun ein wenig Hilfe.

• Gegeben sind zwei Tabellen in einer Arbeitsmappe
• Die Tabellenüberschriften sind von der spaltenzahl und der Spaltenbeschriftung jeweils gleich lang
• Wenn ich nun in Tabelle 1 (unbezahlt) einen Haken beim Steuerelement(für „bezahlung erhalten“) setze, soll das Makro die Zeile mit allen Werten ausschneiden und an den Anfang der Tabelle2(bezahlt) kopieren.
• Dies hat mit selection.copy selection paste auch schon geklappt, nur will ich, wenn ich den Haken in tabelle2 entferne, die Zeile in Tabelle1 (zu den unbezahlten)wieder rüber kopieren.
• Nachdem der Haken gesetzt wurde, die Daten somit in Tabelle 2 sind,  sollen die Werte der Zeile kopiert und in ein Word Dokument an die entsprechenden Stellen/Textmarken (adresse, Rechnungssnummer, Lieferart, Produkt, etc.) kopiert werden. Das Dokument soll gedruckt werden und anschließend mit der Rechnungsnummer gespeichert werden.
• Das Word Dokument schließt und bringt mich zu Tabelle 1 zurück

1. Kaopieren 1. Ansatz

Sub Kontrollkästchen1_Klicken()

ActiveCell.EntireRow.Select

Selection.Cut

Sheets("Tabelle2").Activate

Range(Cells(4, 1), Cells(4, 1)).Select

Selection.Insert

End Sub

• Funktioniert soweit, aber wenn der Haken entfernt wird, geht’s nicht zurück in Tabelle 1

1. Kopieren 2.ter Ansatz

Option explicit

Sub Kontrollkästchen1_Klicken()

  

Dim Rng2Copy As Range, Rng2Paste As Range

Dim i As Integer

Dim aWerte()

Dim bWerte()

Set i = ActiveCell.Row

Set Rng2Copy = ActiveSheet.Range(Cells(i, 1), Cells(i, 10))

If Sheets("Tabelle1").Kontrollkästenchen1.Value = True Then

      Set Rng2Paste = Sheets("Tabelle2").Range("A4:J4")

      aWerte() = Rng2Copy

      Rng2Paste = aWerte()

      Rgn2Copy = bWerte()

Else

      Set Rng2Paste = Sheets("Tabelle1").Range("A2:J2")

      aWerte() = Rng2Copy

      Rng2Paste = aWerte()

      Rgn2Copy = bWerte()

End If

End Sub


Funktioniert nicht, sollte aber die Vorschriften von Spiegelstrich 4 einhalten (Unterscheidet zwischen Tabellenblatt 1 und 2.

Für das in Word exportieren und drucken habe ich bisweilen noch keine auch nur Ansatzweise funktionierende Lösung gefunden ....

Ich hoffe ihr könnt mir weiterhelfenGrüße aus Hamburg
Felix