AW: Das ist der Text...ComboBox
25.02.2007 12:31:08
Herby
Hallo Walter,
so könnte es funktionieren:
Private Sub Userform_Activate()
Application.ScreenUpdating = False
Sheets("Datenbank").Select
ComboBox1.RowSource = "B4:B" & Cells(65536, 2).End(xlUp).Row
ComboBox1.Value = Worksheets("Datenbank").Cells(ActiveCell.Row, 2)
TextBox1 = ActiveCell.Offset(0, 0)
TextBox3 = ActiveCell.Offset(0, 1)
TextBox4 = ActiveCell.Offset(0, 2)
TextBox5 = ActiveCell.Offset(0, 3)
TextBox6 = ActiveCell.Offset(0, 4)
End Sub
Private Sub ComboBox1_Change()
Sheets("Datenbank").Select
Sheets("Datenbank").Unprotect (getStrPasswort) '("bwwb")
Dim ze
ze = ActiveCell().Row
ActiveSheet.Range(Cells(ze, 2), Cells(ze, 15)).Select
Worksheets("Datenbank").Cells(ComboBox1.ListIndex + 4, 2).EntireRow.Select
TextBox1 = Worksheets("Datenbank").Cells(ComboBox1.ListIndex + 4, 1) ' die SpaltenNr. ggf. anpassen
TextBox3 = Worksheets("Datenbank").Cells(ComboBox1.ListIndex + 4, 2) ' die SpaltenNr. ggf. anpassen
TextBox4 = Worksheets("Datenbank").Cells(ComboBox1.ListIndex + 4, 3) ' die SpaltenNr. ggf. anpassen
TextBox5 = Worksheets("Datenbank").Cells(ComboBox1.ListIndex + 4, 4) ' die SpaltenNr. ggf. anpassen
' Userform1.TextBox1 = ActiveCell.Offset(0, 0)
End Sub
Die Zeilen müssten zum einlesen in die Textfelder nicht unbedingt markiert sein, denn die Zeilen-Nr. lässt
sich ja aus dem eintrag, der in der Combobox ausgewählt wurde errechnen.
Wenn du mehrere gleiche Einträge/Namen in der Tabelle hast, dann ggf. Hilfsspalte anlegen mit Vor- und Zuname und auf diese Spalte zugreifen, ansonsten wirds ein bischen aufwendiger, da dann die Einträge vor dem Einlesen in die Combobox noch sortiert werden müssen.
Viele Grüße
Herby