|
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
|