Daten an Public rngFilterRange as Range übergeben
06.04.2006 17:39:01
Jörg
ich habe folgendes Problem. Ich möchte in einer Tabelle (filter) verschiedene und vor allem verschieden lange Datensätze einlesen (Das klappt noch). Diese sollten dann an rngFilterRange übergeben werden, damit ich mir die Daten in einer ListBox anzeigen lassen kann.( Hab leider keine Ahnung, wie es anders geht). Beim Übergeben dieser Daten komm ich allerdings nicht weiter.
Dazu habe ich folgendes gemacht:
Set rngFilterRange = Range(Worksheets("filter").Cells(intZaehlerFilter, 1), Cells(intZaehlerFilter, 18))
Leider kommt dann die Fehlermeldung:
Laufzeitfehler 1004:
Die Methode ´Range`für das Objekt´_Global ist fehlgeschlagen.
Kann mir jemand sagen warum? Der ganze Code lautet:
------------
Public intVar As Integer
Public rngFilterRange As Range
------------
Private Sub CommandButton41_Click()
intVar = 1
Worksheets("filter").Visible = True
Worksheets("filter").Select
Selection.Delete
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 2
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 70).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 71).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 72).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 73).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 74).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 75).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 76).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 77).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 78).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 79).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 80).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 81).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 82).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 83).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 84).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 85).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 86).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 87).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Select
Cells(intvar, 1).Select
ActiveSheet.Paste
intvar = intvar + 1
End If
Next intZaehler
'*** Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
'*** daten rngfilterrange zuordnen
Set rngFilterRange = Range(Worksheets("filter").Cells(intZaehlerFilter, 1), Cells(intZaehlerFilter, 18))
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
End Sub