initialisieren von Combobox
19.10.2006 11:02:29
Combobox
ich möchte bei einer Combobox einen Ansprechpartner auswählen, der dann in eine Zelle geschrieben wird (siehe offset-funktion). Wenn darüber hinaus ein Ansprechpartner aus der 2.Combobox angeklickt wird, sollen beide erscheinen. Leider funktioniert meine Prozedur irgendwie nicht, d.h. wenn sich die UserForm öffnet, sind in den Comboboxen leer. Habe ich bei der Initialisierungsfunktion etwas falsch gemacht?
Danke und Gruß
Ingo
Private Sub frm_eingabe_neue_leistung_initialize()
With Me.cbo_Ansprechpartner1
.AddItem "Herr A"
.AddItem "Herr B"
.AddItem "Herr C"
.AddItem "Herr D"
.AddItem "Frau E"
.ListIndex = "0"
End Sub
Private Sub frm_eingabe_neue_leistung_initialize()
With Me.cbo_Ansprechpartner2
.AddItem "Herr A"
.AddItem "Herr B"
.AddItem "Herr C"
.AddItem "Herr D"
.AddItem "Frau E"
.ListIndex = "0"
End Sub
Private Sub cmd_eingabe_click()
If cbo_Ansprechpartner2.Value <> 0 Then
ActiveCell.Offset(0, 2) = cbo_Ansprechpartner1 & " , " & cbo_Ansprechpartner2
Else
ActiveCell.Offset(0, 2) = cbo_Ansprechpartner1.Value
End If
End Sub