Datensätze auf anderes Tabellenblatt übertragen
31.03.2015 13:57:13
puma_888
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
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
Gruß
Markus