Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wMatch, rMatch
Dim wDaten, rDaten
Set wDaten = Worksheets("Wandertouren").Range("A39:A1000")
Set rDaten = Worksheets("Radtouren").Range("D13:D1000")
If Not Intersect(Target, Range("C5:Y37")) Is Nothing Then
wMatch = Application.Match(CLng(Target), wDaten, 0)
If Not IsError(wMatch) Then
With Worksheets("Wandertouren")
.Activate
.Range("A" & (38 + wMatch)).Select
End With
Exit Sub
End If
rMatch = Application.Match(CLng(Target), rDaten, 0)
If Not IsError(rMatch) Then
With Worksheets("Radtouren")
.Activate
.Range("D" & (12 + rMatch)).Select
End With
Else
MsgBox "Datum nicht vorhanden"
End If
End If
Set wDaten = Nothing
Set rDaten = Nothing
End Sub