Select Case mit Optionbutton
19.10.2006 10:50:34
Ingo
ich habe eine Problem mit select case. Irgendwie befüllt diese Prozedur nicht die Zelle wie gewünscht. Eine Fehlermeldung erscheint auch nicht, weiß jemand, was daran falsch ist?
Private Sub ansprechpartner_case()
Dim Ansprechpartner As String
Select Case Ansprechpartner
Case Is = opt_AP1_Click()
Ansprechpartner = "Herr xyz"
Case Is = opt_AP2_Click()
Ansprechpartner = "Frau abc"
Case Else
MsgBox "Bitte wählen Sie einen Ansprechpartner aus", vbCritical
End Select
End Sub
Private Sub cmd_neue_leistung_hinzu_Click()
ActiveCell.Offset(0, 1) = Ansprechpartner
Unload Me
End Sub
Danke und Gruß
Ingo