AW: Userform, Kombifeldauswahl befüllt Textboxen
23.06.2009 02:51:46
EliasK
So, nun ist es soweit.
Ich bin mit meinem Latein am Ende.
Wie bereits beschrieben:
1. Die Tabelle kann über das UF beschrieben werden.
2. Über ein Kombifeld kann ich die Textboxen des UF mit den entsprechenden Daten aus der Tabelle füllen.
3. ÄNDERN von mit 2. eingelesenen Datensätzen funktioniert nicht.
Private Sub ComboBox_Suche_Change()
With Me.ComboBox_Suche
Me.Name_Firma = Range(.RowSource).Cells(.ListIndex + 1, "A")
Me.Name_Firma_2 = Range(.RowSource).Cells(.ListIndex + 1, "B")
Me.Straße = Range(.RowSource).Cells(.ListIndex + 1, "C")
Me.PLZ = Range(.RowSource).Cells(.ListIndex + 1, "D")
Me.Ort = Range(.RowSource).Cells(.ListIndex + 1, "E")
Me.Kundennummer = Range(.RowSource).Cells(.ListIndex + 1, "F")
Me.Telefon = Range(.RowSource).Cells(.ListIndex + 1, "G")
Me.Telefax = Range(.RowSource).Cells(.ListIndex + 1, "H")
Me.Mail = Range(.RowSource).Cells(.ListIndex + 1, "I")
Me.Website = Range(.RowSource).Cells(.ListIndex + 1, "J")
Me.Bez_Frei1 = Range(.RowSource).Cells(.ListIndex + 1, "K")
Me.Text_Frei1 = Range(.RowSource).Cells(.ListIndex + 1, "L")
Me.Bez_Frei2 = Range(.RowSource).Cells(.ListIndex + 1, "M")
Me.Text_Frei2 = Range(.RowSource).Cells(.ListIndex + 1, "N")
Me.Bez_Frei3 = Range(.RowSource).Cells(.ListIndex + 1, "O")
Me.Text_Frei3 = Range(.RowSource).Cells(.ListIndex + 1, "P")
Me.Bez_Frei4 = Range(.RowSource).Cells(.ListIndex + 1, "Q")
Me.Text_Frei4 = Range(.RowSource).Cells(.ListIndex + 1, "R")
Me.Bez_Frei5 = Range(.RowSource).Cells(.ListIndex + 1, "S")
Me.Text_Frei5 = Range(.RowSource).Cells(.ListIndex + 1, "T")
End With
If Name_Firma.Value = ComboBox_Suche.Value Then
Button_Karte_anlegen.Enabled = False
Else
Button_Karte_anlegen.Enabled = True
End If
End Sub
Private Sub Button_Karte_ändern_Click()
With ComboBox_Suche
Range(.RowSource).Cells(.ListIndex + 1, "A") = Name_Firma
Range(.RowSource).Cells(.ListIndex + 1, "B") = Name_Firma_2
Range(.RowSource).Cells(.ListIndex + 1, "C") = Straße
Range(.RowSource).Cells(.ListIndex + 1, "D") = PLZ
Range(.RowSource).Cells(.ListIndex + 1, "E") = Ort
Range(.RowSource).Cells(.ListIndex + 1, "F") = Kundennummer
Range(.RowSource).Cells(.ListIndex + 1, "G") = Telefon
Range(.RowSource).Cells(.ListIndex + 1, "H") = Telefax
Range(.RowSource).Cells(.ListIndex + 1, "I") = Mail
Range(.RowSource).Cells(.ListIndex + 1, "J") = Website
Range(.RowSource).Cells(.ListIndex + 1, "K") = Bez_Frei1
Range(.RowSource).Cells(.ListIndex + 1, "L") = Text_Frei1
Range(.RowSource).Cells(.ListIndex + 1, "M") = Bez_Frei2
Range(.RowSource).Cells(.ListIndex + 1, "N") = Text_Frei2
Range(.RowSource).Cells(.ListIndex + 1, "O") = Bez_Frei3
Range(.RowSource).Cells(.ListIndex + 1, "P") = Text_Frei3
Range(.RowSource).Cells(.ListIndex + 1, "Q") = Bez_Frei4
Range(.RowSource).Cells(.ListIndex + 1, "R") = Text_Frei4
Range(.RowSource).Cells(.ListIndex + 1, "S") = Bez_Frei5
Range(.RowSource).Cells(.ListIndex + 1, "T") = Text_Frei5
End With
End Sub
Das erste Sub läuft bestens, es dient dem Füllen der Textboxen des UF, das 2. nimmt nur Änderungen von "Name_Firma" an ändert also Spalte A in der Tabelle), alles weitere (B,C,...) nicht.
Wo ist der Fehler?
Beste Grüße
Elias