Tabellen im Tabellenblatt ansprechen
04.09.2020 13:20:58
Ivana
Leider habe ich bisher im www nichts gefunden, was mir weiterhilft.
Mein Problem ist,
dass ich am liebsten eine bestimmte Tabelle auf einem Tabelettenblatt ansprechen würde.
In der Tabelle bspw. "Tab_Mitarbeiter", die auf dem Tabelettenblatt "Config_Mitarbeiter" befindet,
möchte ich dann das Ende der "Tab_Mitarbeiter" ermitteln, um dort dann einen neuen Hinzuzufügen.
Derzeit löse ich das Problem so, dass ich die letzte gefüllte Zelle ermittle, auf lange Sicht müsste ich dann aber gefühlt 100 Config_XY Tabelettenblätter machen und ich würde das gerne "schlicht" halten..
ich hoffe ich hab das richtig/verständlich ausgedrückt & mir kann jemand helfen.
Im Idealfall an meinem Beispiel, damit ich in Zukunft weiß wie ich das platzieren muss..
In meinem Beispiel suche ich in meinem Tabelettenblatt "Config_MItarbeiter" die letzte, und _
lade das was dazwischen ist dann in meine Combobox die in meiner Userform ist..
Private Sub UserForm_Initialize()
UF_EingabeGepackte.cmb_Mitarbeiter.Style = fmStyleDropDownList
'Mitarbeiter in die ComboBox laden
Dim Mitarbeiter
Dim lngLetzte As Long
With Worksheets("Config_Mitarbeiter")
lngLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
Mitarbeiter = .Range(.Cells(3, 1), .Cells(lngLetzte, 1))
cmb_Mitarbeiter.List = Mitarbeiter
End With
End Sub