Fehler in Listbox
23.05.2008 10:29:00
Bjoern
ich habe eine Listbox mit verschiedenen Nummern drin. Wenn man auf die Nummer in der Listbox klickt, dann werden in zwei Textboxen die dazugehörigen Daten ausgegeben.
Wenn ich die ganzen Nummern in der Listbox anklicke dann funktioniert das auch alles. Nur bei der ersten Nummer im Listfeld bringt er mir immer wieder den Fehler:
Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler
Kann mir jemand helfen, wie ich diesen Fehler beheben kann?
Ciao Björn
Private Sub ListBox1_Click()
Dim I As String
With Sheets("Analyse").Activate
I = ListBox1.ListIndex
TextBox1.Text = Cells(I, 1).Value
TextBox2.Text = Cells(I, 6).Value
End With
End Sub
Anzeige