[
Bild bitte so als Datei hochladen: Klick mich!
]
Hallo zusammen,
ich habe da ein Problem im Bereich Auswahl mit dem Eintrag in der Combobox.
Bei Eingabe der ersten Buchstaben füllt sich der Rest mit den bekannten Namen automatisch auf.
Wenn ich dann aber den Vorgeschlagenen Namen auswähle werden die dazugehörigen Daten (Adresse, Telefon usw) nicht in die dafür vorhandenen TextBoxen eingetragen.
Klicke ich einen anderen Eintrag an und dann wieder diesen, geht's . Was muss ich ändern das er direkt mit Mausklick den ergänzten Namen direkt übernimmt.
Wäre schön wenn mir da jemand helfen könnte.
Bild bitte so als Datei hochladen: Klick mich!
]
Hallo zusammen,
ich habe da ein Problem im Bereich Auswahl mit dem Eintrag in der Combobox.
Bei Eingabe der ersten Buchstaben füllt sich der Rest mit den bekannten Namen automatisch auf.
Wenn ich dann aber den Vorgeschlagenen Namen auswähle werden die dazugehörigen Daten (Adresse, Telefon usw) nicht in die dafür vorhandenen TextBoxen eingetragen.
Klicke ich einen anderen Eintrag an und dann wieder diesen, geht's . Was muss ich ändern das er direkt mit Mausklick den ergänzten Namen direkt übernimmt.
Wäre schön wenn mir da jemand helfen könnte.
Code:
Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Nicht schließen über den (x) Button, Abbrechen benutzen"
Cancel = True
End If
End Sub
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then
TextBox1 = Cells(ComboBox1.ListIndex + 1, 1)
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
TextBox6 = Cells(ComboBox1.ListIndex + 1, 6)
TextBox7 = Cells(ComboBox1.ListIndex + 1, 7)
TextBox8 = Cells(ComboBox1.ListIndex + 1, 8)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End If
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 1).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
UserForm_Initialize
End If
End Sub
Private Sub CommandButton2_Click()
Dim XZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
XZeile = [A10000].End(xlUp).Row + 1
Else
XZeile = ComboBox1.ListIndex + 1
End If
Cells(XZeile, 1) = TextBox1
Cells(XZeile, 2) = TextBox2
Cells(XZeile, 3) = TextBox3
Cells(XZeile, 4) = TextBox4
Cells(XZeile, 5) = TextBox5
Cells(XZeile, 6) = TextBox6
Cells(XZeile, 7) = TextBox7
Cells(XZeile, 8) = TextBox8
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
UserForm_Initialize
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Label1 = ActiveSheet.[a1].Value
Label2 = ActiveSheet.[b1].Value
Label3 = ActiveSheet.[c1].Value
Label4 = ActiveSheet.[d1].Value
Label5 = ActiveSheet.[e1].Value
Label6 = ActiveSheet.[f1].Value
Label7 = ActiveSheet.[g1].Value
Label8 = ActiveSheet.[h1].Value
Dim aRow, i As Long
Application.EnableEvents = False
ComboBox1.Clear
aRow = [A10000].End(xlUp).Row
ComboBox1.AddItem ""
For i = 2 To aRow
ComboBox1.AddItem Cells(i, 1) & ", " & Cells(i, 2)
Next i
ComboBox1.ListIndex = 0
Application.EnableEvents = True
End Sub