Hallo zusammen,

mein Name ist Andreas bin hier als Gast und möchte mich mit meinem Problem an Euch wenden weil ich damit leider nicht weiter komme. Ich bin absolut kein Experte was VBA betrifft und hoffe auf Hilfe von Euch für einen Anfänger. Finde leider keine Lösung dafür und suche schon seit Tagen im Netz.

Nun zu meinem Problem:

Ich habe eine Datenbank erstellt mit Excel 2007, Daten Eingeben, Bearbeiten, Löschen und ergänzen funktioniert alles.

Es werden  von Zeit zu Zeit Zufallszahlen generiert mit den Datensätzen verbunden und in einer neuen Tabelle unter einem neuen Namen gespeichert. Name wird in einer TextBox eingetragen und mit einem CommandButtom der Vorgang gestartet.( Funktioniert)

Nun habe ich auf einer UserForm  eine ComboBox1 die mir die Tabellen Namen in der Mappe anzeigt und ich das Tabellenblatt wählen kann das ich brauche und Aktiviert. (Funktioniert)

Eine zweite ComboBox2 zeigt mir die Spalte mit den Daten der Zeilen an die dort stehen.(Funktioniert)

Wenn ich jetzt einen Datensatz in der ComboBox2 auswähle soll mir in TextBox1-7 die Daten aus dieser gewählten Zeile angezeigt werden. Bekomme ich leider nicht hin das Excel das macht. Was mache ich falsch? Hier der Code mit den zwei ComboBoxen:

Private Sub UserForm_Activate()

Dim WS As Worksheet

Me.ComboBox1.Clear

For Each WS In ThisWorkbook.Worksheets

If WS.Visible = xlSheetVisible Then Me.ComboBox1.AddItem WS.Name

Next WS

End Sub

Private Sub ComboBox1_Change()

ThisWorkbook.Sheets(ComboBox1.Text).Select

Me.ComboBox2.Clear

For i = 2 To ActiveSheet.Cells(Cells.Rows.Count, 2).End(xlUp).Row

ComboBox2.AddItem ActiveSheet.Cells(i, 2)

Next

End Sub