code im optionsfeld
09.03.2004 13:44:23
bernd
ich habe eine listbox folgendermassen initialisiert:
Private Sub ListBox1_Click()
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "2004/05"
ListBox1.AddItem "2005/06"
ListBox1.AddItem "2006/07"
End Sub
mit folgendem code in einem optionsfeld wollte ich den wert der listbox eine variablen übergeben:
Private Sub januar_Click()
Dim jahr As String
If ListBox1 = "2004/05" Then
jahr = 2004
Else
jahr = 2000
End If
Sheets("Datumangaben").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = jahr
Unload Me
End Sub
wenn ich nun das optionsfeld anklicke, erhält "jahr" immer den wert 2000.
auch dan, wenn in der listbox 2004/05 steht.
wie bekomme ich es hin, dass "jahr" den korrekten wert 2004 erhält?
vielen dank für eure hilfe
mfg bernd