eine Listbox übergeben will
public rngFilterRange as Range
sub RangeErzeugen
rngFilterRange = Range(Cells(3, 1).Cells(12, 18))
UF_1.show
End Sub
in UF_1 ist dann eine Listbox vorhanden in die ich den Bereich laden möchte!
Private Sub UserForm_Initialize()
UF_gefilterte_Daten.ListBox1.List = rngFilterRange
End Sub
gruß Swen
danke für eure Hilfe!