|
Hallo,
ich brauche mal kurz eure Hilfe bei einer For und If schleife.
Ich habe zwei Spalten (D und E) mit OptionButtons. Bei Klick auf einen Button in Spalte D soll der Inhalt der Spalten A, B, C kopiert werden und in einem anderen Tabellenblatt ("Ergebnis" eingefügt werden. -> siehe Bild unten
Da ich nicht für jeden Button einen extra Code schreiben will soll eine Schleife alle aktivierten Buttons in Spalte D abfragen und wenn eines Aktiviert ist sollen die Zellen der Spalte A,B,C der entsprechenden Zeile kopiert werden.
Das ist der Code für einen einzelnen Button
Private Sub OptionButton3_Click()
'Kopiert Zellen nach Ergebnisblatt
Range("B7,D7,E7").Copy Worksheets("Ergebnis").Range("C7:E7")
End Sub
Jetzt soll dies aber allgemein für alle Button gelten ohne immer einen extra Code zu schreiben.
Das ist mein Ansatz:
Dim k As Double
Dim i As Double
For i = 1 To 20 Step 2
For k = 1 To 20 Step 1
If ActiveWorkbook.Sheets("Test").OLEObjects("Optionbutton & i").Activate = True Then (der Teil funktioniert)
Range("k, 1:3).Value.Copy Worksheets("Ergebnis").Cells("C7:E7").Value (dieser ist Falsch)
'Kopiere Zeile k (Ort des Buttons), Spalte A:C in das Sheet "Ergebnis" -> das will ich bezwecken
End If
Next k
Next i
Mein Problem ist, dass ich nicht genau weiß ob die For Schleife stimmt mit ("Optionbutton & i") und wie es immer die Spalte kopiert in der der Optionsbutton aktiviert ist.
Vielen Dank für eure Hilfe!!
|