Prozedur rückgängig machen
29.02.2016 10:01:55
Leon
ich hoffe ihr könnt mir bei der folgenden Sache helfen:
Ich bin dabei eine Rechnung zu erstellen. Sie ist auch schon so gut wie fertig. Um es noch ein bisschen schöner und praktischer zu machen möchte ich hinter meiner Artikeltabelle (welche in einem anderen Tabellenblatt ist) für jeden Artikel eine ClickBox einfügen. Durch umstellen auf true soll dann die Artikelnummer in meiner Rechnung erscheinen. Das hab ich mir schon alles irgendwie im Internet zusammen gesucht und sieht so aus:
Public Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Dim rwindex As Long
For rwindex = 19 To Worksheets("Rechnung").Cells(24, 1).End(xlUp).Row
If Worksheets("Rechnung").Cells(rwindex, 1).Value = "" Then
Cells(rwindex, 1).Select
Exit For
End If
Next rwindex
Worksheets("Artikel").Range("a2").Copy _
Destination:=Worksheets("Rechnung").Cells(rwindex, 1)
'Freie Zelle suchen und Wert kopieren und in freie Zelle einfügen
End If
End Sub
(Also das ist jetzt nur für einen Artikel.)
Jetzt ist meine Frage: wie mache ich es, dass wenn ich die ClickBox wieder auf false stelle, die Artikelnummer in meiner Rechnung wieder gelöscht wird?
Ich hoffe ihr könnt mir weiter helfen. Ich bin komplett neu auf dem Gebiet.
Danke schon mal im Voraus.
LG Leon
Anzeige