Change Ereignis
28.06.2005 07:36:08
Werner
Habe ein Problem mit dem Change Ereignis der ComboBox2.
Wenn ich den Inhalt aus der Box lösche, bekomme ich die Fehlermeldung.
Was kann ich machen, damit der Fehler nicht mehr auftritt?
Füllen der ComboBox2:
Private Sub UserForm_Activate()
Dim Z1 As Integer
Dim F2 As Range
Z1 = Sheets("Daten").Range("D1")
Set F2 = Sheets("Daten").Cells(1, 2)
Me.ComboBox2.Clear
For i = 0 To Z1 - 1
Me.ComboBox2.AddItem F2
Set F2 = F2.Offset(1, 0)
Next
End Sub
Hier bekomme ich beim Change Ereignis in der Zeile 4 die Fehlermeldung: "Anwendungs- oder objektdefinierter Fehler"
Private Sub ComboBox2_Change()
Dim F4 As Range
TIndex = Me.ComboBox2.ListIndex
Set F4 = Sheets("Daten").Cells(TIndex + 1, 1)
Me.TextBox1 = F4
Set F4 = F4.Offset(0, 2)
Me.TextBox2 = F4
Set F4 = F4.Offset(0, 3)
Me.TextBox12 = F4
End Sub
Werner