Hallo VBA-Profis,
ich komme gerade mit meinen geringen VBA-Künsten nicht weiter benötige mal kurz eure Hilfe.
Ich habe eine vertikale Auflistung von Dingen,hinter der immer ein Kontrollkästchen ist.
Bei Klick auf dieses Kästchen, soll die Zeile mit dem Ding kopiert werden und in einem anderem Blatt (Ergebnisblatt) aufgelistet werden.
Und zwar soll die zuletzt angeklickte Sache oben erscheinen und die bereits Vorhanden im Ergebnisblatt nach unten verdrängen.
Das kopieren und einfügen in das Blatt funktioniert. Jetzt benötige ich aber so etwas ähnliches wie eine Schleife, die checkt, wie viele Dinge schon aufgelistet sind und alle dann auch um eine Zeile nach unten verschiebt.
Private Sub OptionButton1_Click()
'Zwei Zeilen werden kopiert und im Ergebnisblatt eingefügt
Range("D6,E6").Copy Worksheets("Ergebnis").Range("C7:D7")
End Sub
Könnt ihr mir bitte helfen?
Vielen Dank
Julien
|