Office: Optionsbutton

Hallo bitte um VBA Hilfe,
1.) wie kann im beiliegenden Beispiel nach Aufruf der userform der Optionbutton1 automatisch aktiviert werden, sodaß
in der Spalte S der Wert 0 (Default) übernommen wird?
2.) wie muss der Code abgeändert werden, sodaß ein ausgewählter Wert in meiner dynamischen Tabelle in der momentan
aktivierten Zeile in der Spalte S übernommen wird?

Vielen Dank für Eure Hilfe

Gruß Derhard

 

Hallo Derhard,

Code:

Option Explicit

Private Sub cmd_schliessen_Click()
  Unload Me
End Sub

Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 0
    End If
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 1
    End If
End Sub

Private Sub OptionButton3_Click()
    If OptionButton3.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 2
    End If
End Sub

Private Sub OptionButton4_Click()
    If OptionButton4.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 3
    End If
End Sub
Private Sub OptionButton5_Click()
    If OptionButton5.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 4
    End If
End Sub
Private Sub OptionButton6_Click()
    If OptionButton6.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 5
    End If
End Sub
Private Sub OptionButton7_Click()
    If OptionButton7.Value = True Then
        Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 6
    End If
End Sub

Private Sub UserForm_Activate()
  Me.OptionButton1.Value = True
End Sub

Gruß Uwe

 

Hallo Uwe,
Vielen Dank für die schnelle Hilfe,
funktioniert super

Gruß Derhard

 

Hallo Derhard,

wenn du im Click-Handler zB. für OptionButton1 bist, muss ohnehin OptionButton1.Value=True sein, sodass eine Abfrage der Value-Eigenschaft überflüssig ist. Es genügt also zB.

Code:

Private Sub OptionButton1_Click()
    Worksheets("Tabelle1").Cells(ActiveCell.Row, 19).Value = 0
End Sub