Hallo Zusammen,

leider sind meine VBA-Kenntnisse begrenzt, ich stehe doch leider vor einem kleine Problem. Ich hoffe, ich kann es euch klar machen.

Aufgabe ist es eine Datenbank anzulegene in der per GUI die einzelnen Master gefüllt werden. Nun gibt es auch die Option neue Master-Kurse anzulegen. Dies habe ich durch folgenden Code gemacht.

Private Sub Save_Stud_Click()

'Adds the new worksheet with reference to the name "New Major"
Sheets.Add
ActiveSheet.Name = Major_New.Value

' New entry in the List of all Majors. With choosing a new cell based on Sum of existing entries (i). Sets the basis for the combobox.

i = Worksheets("Majors_List").Cells(1, 1)
Worksheets("Majors_List").Cells(i + 2, 2) = Major_New.Value

New_Major.Hide


End Sub

Das klappt auch hervorragend.

Nun ist es so, dass in der Userform "New Student" alle relevanten Daten (Name, Student ID etc.) eingetragen werden. In der Combobox werden dann alle Master - auch die ich neu eingefügt habe - angezeigt. Zwar ist das nicht so ganz sauber, da ich wie oben beschrieben auf ein drittes Blatt zugreife, aber zumindest funktioniert es.

Das große Problem ist nun, dass ich möchte, dass die Tabellenblätter, die ich in der Combobox auswähle, mit den darüberliegenden Daten gefüllt werden. Das füllen bekomme ich hin, allerdings müsste ich dafür die Tabellenblätter "hart" eingeben und das ist nicht möglich, da immer wieder neue Tabellenblätter bzw. Master-Kurse dazu kommen. Wenn ich es hart eingebe sieht es ungefähr folgendermaßen aus:

ThisWorkbook.Sheets("Audit").Activate
lastrow = Worksheets("Audit").Cells(Worksheets("Audit").Rows.Count, 1).End(xlUp).Row + 1
Cells(lastrow, 1).Value = Stud_Num.Value
Cells(lastrow, 2).Value = Stud_LName.Value
Cells(lastrow, 3).Value = Stud_FName.Value
Cells(lastrow, 4).Value = Stud_Birth.Value
Cells(lastrow, 5).Value = Me.Stud_Major.Value

Meine Frage ist nun, wie kann ich den variablen Wert (hier: Audit) der Combobox ansprechen, sodass die eingegeben Daten in das entsprechende Feld eingegeben werden.

Ich hoffe, dass euch meine Ausführung jetzt nicht umhaut, aber ich wollte einfach so spezifisch sein, wie möglich.

Vielen Dank für eure Hilfe

Alex