entschuldigt den Betrff, aber mir ist nichts Besseres eingefallen.
Ich öffne per Schaltfläche in Tabelle EingängeAusgänge ein Userform (ufZuAb). Die ComboBox cbID soll (2spaltig) mit Daten aus einer anderen Tabelle (Stammdaten) gefüllt werden.
Allerdings scheitert der Wunsch an der Fehlermeldung: Index ausserhalb des gültigen Bereichs
Wenn jemand so nett wäre und mal einen Blick auf meinen Code werfen könnte?!
Private Sub UserForm_Initialize()
Dim lngLastRow As Long
Dim ws As Worksheet
Dim wsQuelle As Worksheet
Dim vrnQuelle As Variant
Set wsQuelle = Worksheets("Stammdaten")
Set ws = Worksheets("EingängeAusgänge")
With wsQuelle
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
vrnQuelle = .Range(.Cells(6, 1), .Cells(lngLastRow, 2))
End With
Me.cbID.List = vrnQuelle.Value
End Sub
Gruß,Peter