Laufzeitfehler 94 Unzulässige Verwendung von Null
09.06.2013 22:47:29
Null
ich habe folgendes Problem:
Beim Klick auf einen Eintrag in meiner ListBox soll in der Textbox derjenige Wert ausgegeben werden, der auf dem Sheet "Quelle" in Spalte A und dann in der jeweiligen Zeile zu finden ist, in der auch die Daten stehen, die schon in die ListBox übernommen wurden.
Meine ListBox hat 4 Spalten.
Ich hoffe, ich konnte mein Problem einigermaßen verständlich rüberbringen.
Vielen Dank im Voraus!
Gruß
Drower
Private Sub ListBox1_Click()
Dim lng As Integer
Sheets("Quelle").Activate
lng = UserForm4.ListBox1.Column(4)
With UserForm4
TextBox1.Value = Cells(lng, 1).Value
End With
End Sub