Office: Zellenbereich aus Zeile mit Checkbox kopieren

Hallo, ich komme nicht weiter... *eek.gif*

aus einer zeile mit einer checkbox soll jeweils ein bereich (die spalten D und E) ausgelesen werden und in ein anderes tabellenblatt ('Aufgaben') kopiert werden (immer unten angefügt). dies passiert über den 'weiter'-Button.

das habe ich auch für die erste zeile geschafft. jetzt müsste der prozess aber für alle aktivierten CheckBoxen in allen Zeilen wiederholt werden. die ganze tabelle wird via filter gesteuert. es kann sein, dass bis zu 20 zeilen in der tabelle erscheinen. Muss ich jede Checkbox einzeln auswählen, oder kann ich eine schleife programmieren?

Der Code schaut bis jetzt so aus:

Private Sub CommandButton2_Click()
If CheckBox1.Value = True Then
Range("D3:E3").Copy
erste_leere_Zeile = Worksheets("Aufgaben").Range("A65536").End(xlUp).Offset(1, 0).Row
Worksheets("Aufgaben").Cells(erste_leere_Zeile, 1).PasteSpecial Paste:=xlValues
End If
End Sub


Danke fürs helfen!

Michael

:)

 

Hallo Michael,

Du hast meines Erachtens nur folgende Möglichgkeit
1.) alle Objekte auf dem Tabellenblatt durchlaufen
2.) Prüfen, ob es sich bei diesem Objekt um eine Checkbox handelt
falls ja, prüfen, ob diese Checkbox aktiviert ist, sonst nix tun
falls ja, Kopiervorgang durchführen, sonst nix tun

Realisiert kriegst Du das über folgende Schleife:

Code:

 

Super, dankeschön! *Smilie

 

Aber gerne doch.
Dafür ist dieses Forum ja da *Smilie

 

Das Thema ist schon etwas älter, aber ich möchte es gerne nochmal aufgreifen :-)

Ich habe 2 Arbeitsmappen 'Auswahl' und 'Erstellen'.
In der Arbeitsmappe 'Auswahl' sind Zellen A, B, C die besetzt sind

A = Leistung
B = Turnus
C = Checkbox

Die Anzahl der Zeilen sind 25.
Ich möchte jede zeile durchgehen und überprüfen ob die checkbox True ist und dann den Wert aus A und B der jeweiligen Zeile in die Arbeitsmappe 'Erstellen' kopieren.

In der Arbeitsmappe 'Erstellen' ist die Leistung = B und Turnus = C.

Über hilfe würde ich mich sehr freuen.

 

Hallo einfall,

versuchs mal so Code:

 

\@Hasso vielen lieben Dank für deine zeit und hilfe.

Ich hatte leider einen kleinen denkfehler.
Wenn ich jetzt in der Arbeitsmappe 'Auswahl' nur die Checkbox von Zeile 2 und 4 aktiviere, sind natürlich in der Arbeitsmappe 'Erstellen' lücken d.h die Zeile 3 ist leer, gibt es einen weg damit er das in der Arbeitsmappe 'Erstellen' direkt untereinander einfügt ?

 

Hallo einfall,

das sollte hiermit klappen: Code: