ComboBox ... schreibt nicht (mehr) in Tabelle.
06.02.2007 16:40:14
proxima05
folgender Code wählt aus einer ComboBox einen Eintrag und schreibt den in die aktive Zelle ... zumindest hat er das die ganze Zeit gemacht, bis ich die "If's" mit rein gebracht habe.
==================================
Private Sub OK_Click()
Dim i As Integer
Dim frm As UserForm
Set frm = UserForm3
If ComboBox1.Value = "" Then
i = MsgBox("Weiter machen oder abbrechen? .... bitte wählen!", vbYesNo, "Warning")
If i = 6 Then '6 entspricht "Yes button pressed".
UserForm3.ComboBox1.Value = ""
UserForm3.ComboBox1.SetFocus
ElseIf i = 7 Then '7 entspricht "No button pressed".
UserForm3.ComboBox1.Value = ""
Unload UserForm3
ElseIf UserForm3.ComboBox1.Value <> "" Then
Worksheets("Tabelle").Activate
Range("I4").Select
With frm
ActiveCell.Value = UserForm3.ComboBox1.Value
End With
Unload UserForm3 'Damit werden die Inhalte aller Felder automatisch entleert.
UserForm3.Hide
End If
End If
End Sub
==================================
Kann mir jemand sagen, woran es liegt, dass der Wert aus der ComboBox nicht in die aktive Zelle geschrieben und danach die ComboBox geschlossen wird. Die beiden If- und die erste ElseIf-Anweisung funktionieren.
Danke für einen Tipp.
Ralph