durch Doppelklick auf eine Zelle in der ein Datum steht wird ein Makro gestartet. Das ausgewählte Datum soll nun an ein Modul übergeben werden.
Hierzu mein Code:
Im Tabellenblatt:
Option Explicit
Public Datum as date
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Datum = Target.Value
userform03.Show
End sub
Im Modul:
Option Explicit
Sub Suche()
Dim SucheZeile as Integer
SucheZeile = Tabelle1.Range("B4:B20000").Find(Datum, lookat:=xlWhole, MatchCase:=True).Row
End
Leider funktioniert mein Ansatz nicht und ich weiß nicht wo mein Fehler liegt.
Bitte um Hilfestellung.
Gruß Timm