Deklaration
27.11.2005 09:56:17
Franz
ich suche in einem Worksheet_BeforeDoubleClick-Ereignis in einem bestimmten Bereich ein Datum, dieses Datum soll selektiert werden. Ich habe:
Dim datSuchDatum As Date
Dim rngFindDatum As Range
das zu suchende Datum:
datSuchDatum = Target.Offset(0, -6)
nun wird auf einem anderen Blatt in einer Schleife dieses Datum gesucht und soll selektiert werden:
For searchRw = frstRw To lstRw
If Worksheets("Daten").Cells(searchRw, searchCl) = datSuchDatum Then
Set rngFindDatum = datSuchDatum
End If
Next
Allerdings kommt bei der Zeile " Set rngFindDatum = datSuchDatum " logischerweise die Fehlermeldung: "Typen unverträglich."
Wie bitte kann ich "datSuchDatum" jetzt an "rngFindDatum" übergeben, damit die Zelle dann selektiert werden kann?
Für Eure Hilfe schon mal ein Dankeschön im Voraus und Grüße
Franz