ich habe bei folgendem Thread schon mal gefargt komme aber immer noch nicht klar,
https://www.herber.de/forum/archiv/744to748/t747867.htm
Mein Code:
'*** Hier wird eine Range ermittelt ***'
Public rngFilterRange As Range
Private Sub CommandButton20_Click()
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
Worksheets("PersonenDaten").Cells(1, 1).Select
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl + 2
'*** An der Stelle mit "Set" kommt die Fehlermeldung : Fehlercode 1004
Anwendugs- oder ..... **'
Set rngFilterRange = Worksheets("PersonenDaten").Range(Cells(3, 1).Cells(intDatenAnzahl, 18))
Unload Me
UF_gefilterte_Daten.Show
End Sub
Das Programm würde dann wie folgt weiter laufen,
'*** Dieses ist die ini von UF_gefilterte_Daten (UserForm) ***'
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
UF_gefilterte_Daten.ListBox1.List = rngFilterRange.Address(0, 0)
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
Zu erst hatte ich gedacht das es damit getan wäre das ich die Variable rngFilterRange mit dem Befehl Set setzen muß aber das war es leider nicht!
Wodran kann es denn noch liegen?
Gruß
Swen