ich möchte aus dem Tabellenblatt "Produktvergleich" Daten an das Tabellenblatt "Vergleichsformular" durch klick des CommandButton1 übergeben. Es sollen jedoch nur die Daten von den Zellen übergeben werden, bei denen eine Checkbox davor markiert ist, alle anderen Daten sollen nicht übergeben werden.
https://www.herber.de/bbs/user/96766.xls
Die zu übergebende Daten befinden sich in der Tabelle "Produktvergleich" von B10:B21 und von D10 bis D21, wobei D20 und D21 nur übergeben werden sollen wenn ein Text in der Zelle hinterlegt ist. Die Daten mit markierten Checkbox sollen anschließend im Tabellenblatt "Vergleichsformular" ab A7:A aufgeführt werden.
Wie ich eine einzelne Zelle übertragen kann bei markierter Checkbox hat funktioniert:
Private Sub CommandButton1_Click()
If CheckBox2.Value Then
Worksheets("Vergleichsformular").Range("A7").Value = "Traglast"
End If
End Sub
Allerdings wie ich das mit mehreren gleichzeitig durchführen kann, die nur aufgeführt werden im anderen Tabellenblatt, wenn die Checkbox markiert ist und ansonsten die nächste markierte Zelle übertragen wird, bin ich leider auf keine Lösung gekommen. Ich habe es versucht mit:Private Sub CommandButton1_Click()
Dim Daten1 As Range
Dim Daten2 As Range
Dim i As Long
Dim aWerte()
Set Daten1 =Worksheets("Produktvergleich").Range("B10:B21")
Set Daten2 =Worksheets("Vergleichsformular").Range("A7:A18")
For i = 10 to 21
If Worksheets(Produktvergleich").Checkbox & i.value = True Then
aWerte()= Daten1
Daten2 = aWerte()
End IF
Next
End Sub
Dieser Code deckt jedoch nicht alle Daten ab und funktioniert auch auf diese Art und Weise nicht richtig, vielleicht könnte mir jemand weiter helfen.Gruß
Markus