Erweiterung Combobox führt zum Excel-Absturz
09.07.2005 14:03:55
Olli
ich habe in einer Userform u.a. eine Combobox ("Verkehrsmittel1"). Diese wird unter anderem über eine Listbox ausgefüllt. Bislang lief alles super, aber nun habe ich das Additem für die Combobox um einen Eintrag erweitert (erfolgt über "Initialize").
Wird die Combobox nun über das Anklicken der Listbox gefüllt und handelt es sich um den Wert "3" (also "Dienst KFZ"), dann läuft zwar noch das Makro sauber ab, aber wenn ich dann Excel mit "Application.quit" schließen will, dann stürzt Excel ab. Wird einer der anderen Werte ausgewählt habe ich das Phänomen nicht. Kann sich jemand das erklären?
Ich habe schon VBcleaner drüber laufen lassen, alles in eine neue Mappe übernommen usw...keine Chance...irgendwo ist der Haken. Das merkwürdige eben, alle Makros laufen...aber wehe ich will Excel per "Application.quit" schließen. Dann ist Schicht. Warum?
Gruß
Nachfolgend auszugsweise der Code
Private Sub userform_initialize()
Verkehrsmittel1.AddItem "Bitte auswählen"
Verkehrsmittel1.AddItem "privater PKW"
Verkehrsmittel1.AddItem "Zug"
Verkehrsmittel1.AddItem "Dienst KFZ"
Verkehrsmittel1 = fmStyleDropDownList
Verkehrsmittel1.BoundColumn = 0
Verkehrsmittel1.listindex = 0
End Sub
Private Sub Listbox_DR_Click()
If locked Then Exit Sub
Dim lngZeilennummer_DR
Dim tage3
lngZeilennummer_DR = CLng(Listbox_DR.listindex + 2)
If lngZeilennummer_DR > 1 Then
Verkehrsmittel1.Value = Cells(lngZeilennummer_DR, 15).Value
If Verkehrsmittel.Value = 2 Then
Frame_kfz1.Visible = True
frame_kfz2.Visible = True
Frame_kfz1.TabStop = True
frame_kfz2.TabStop = True
frame_kfz3.Visible = False
frame_kfz4.Visible = False
frame_kfz3.TabStop = False
frame_kfz4.TabStop = False
Else
Frame_kfz1.Visible = False
frame_kfz2.Visible = False
Frame_kfz1.TabStop = False
frame_kfz2.TabStop = False
frame_kfz3.Visible = True
frame_kfz4.Visible = True
frame_kfz3.TabStop = True
frame_kfz4.TabStop = True
End If
End Sub
Private Sub Verkehrsmittel1_Change()
If DR_beantragen.Value = True Then
If Verkehrsmittel1.Value = 2 Then
Bahn.Visible = True
routenplan.Visible = False
Else: Bahn.Visible = False
routenplan.Visible = True
End If
Else: Bahn.Visible = False
routenplan.Visible = False
End If
End Sub