|
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
-
Kaopieren 1. Ansatz
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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
-
Kopieren 2.ter Ansatz
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | 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
|