Hallo Stefan,
im Fall mehrerer, aber nicht zu vieler OptionButtons würde ich für jeden eine Prozedur für das Change-Ereignis verwenden, die beschreibt, was für den einzelnen Button im aktivierten oder nicht aktivierten Fall zu tun ist, z.B.
Private Sub OptionButton1_Change()
If OptionButton1 = True Then
Sheets("Tabellenblatt1").Cells(17, 3) = "5"
Else
Sheets("Tabellenblatt1").Cells(17, 3) = "4"
End If
End Sub
Private Sub OptionButton2_Change()
If OptionButton1 = True Then
Sheets("Tabellenblatt2").Cells(4, 4) = "14"
Else
Sheets("Tabellenblatt2").Cells(4, 4) = "26"
End If
End Sub
...
Wird ein anderer Button angeklickt, ändern sich ja die Einstellungen, so dass das Change-Ereignis aller Buttons ausgelöt wird.
Formatierungen kannst du durch Aufzeichnung eines Makros selbst schnell herausfinden.
Die Spalte B würde ich nur bis zum letzten Eintrag durchsuchen. Das geht z.B. so:
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row 'letzte beschriebene Zelle in Spalte B
Select Case LCase(i, 2)
Case "a"
Cells(i, 7) = 25
...
Case "b"
deine Anweisungen
Case "c"
deine Anweisungen
End Select
Next i
Anstelle LCase zu verwenden, könntest du auch Case "a","A" usw. schreiben.
Viel Erfolg bei der Umsetzung. Rückmeldung wäre schön.
Holger
|