VBA Optionsbutton aktivieren
30.01.2014 13:23:22
Ga
Ich suche den VBA Code andersrum, wie er aus Zelle 30 in Tabelle 23 den OptionButton aktiviert. Wenn z. B. Wert mit der Zahl 14 dann entsprechender BUtton aktiviert.
Hier mein Code bisher
Private Sub CommandButton13_Click() 'Schaltknopf SPEICHERN
If TextBox1 = "" And TextBox34 = "" Then
Sheets(23).Rows(Zeile).Delete
Else
'OptionsButton aktivieren Zahlungsbedingungen
If OptionButton_14_Tage_Netto.Value = True Then Tabelle23.Cells(Zeile, 30).Value = "14"
If OptionButton_30_Tage_Netto.Value = True Then Tabelle23.Cells(Zeile, 30).Value = "30"
If OptionButton_Andere_Zahlungsweise.Value = True Then Tabelle23.Cells(Zeile, 30).Value = " _
Andere"
End If
Unload Me
End Sub
Private Sub UserForm_Initialize()
OptionButton_14_Tage_Netto = Cells(Zeile, 30) 'OptionsButton Zahlungsbedingungen
OptionButton_30_Tage_Netto = Cells(Zeile, 30) 'OptionsButton Zahlungsbedingungen
OptionButton_Andere_Zahlungsweise = Cells(Zeile, 30) 'OptionsButton Zahlungsbedingungen
End Sub
Vielleicht kann mir jemand helfen.