Listbox Doppelklickfunktion
11.01.2016 13:44:12
Krümel
Hallo Community,
ich habe eine Art CRM in Excel geschrieben, welches über Userformen ausgeführt wird. Nun habe in meiner Kundendatenbank die Möglichkeit mehrere Notizen pro Kunde anzulegen. Wenn ich nun in der Notizen-Listbox auf eine Notiz Doppelklick mache, soll sich eine weiter Userform öffnen die genau die Daten des jeweiligen Datensatzes vorausgefüllt enthält. Dazu habe ich folgenden Code:
Private Sub ListBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim lZeile As Long
PCS_Notizen.TextBox1 = ""
PCS_Notizen.TextBox2 = ""
PCS_Notizen.TextBox3 = ""
PCS_Notizen.TextBox4 = ""
If ListBox5.ListIndex >= 0 Then
lZeile = 2
Do While Trim(CStr(Tabelle5.Cells(lZeile, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Tabelle5.Cells(lZeile, 1).Value)) Then
PCS_Notizen.TextBox5 = Trim(CStr(Tabelle5.Cells(lZeile, 1).Value))
PCS_Notizen.TextBox1 = Tabelle5.Cells(lZeile, 2).Value
PCS_Notizen.TextBox2 = PCS.TextBox8.Value
PCS_Notizen.TextBox3 = Tabelle5.Cells(lZeile, 4).Value
PCS_Notizen.TextBox4 = Tabelle5.Cells(lZeile, 3).Value
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
PCS_Notizen.Show
End Sub
Nur leider sagt er mir beim ausführen: "Fehler beim kompilieren, Function oder Variable erwartet".Was ist falsch an meinem Code?
Vielen Dank für Eure Hilfe :)