11.07.2022, 01:34
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect(Target, Range("D7")) Is Nothing Then
Cancel = True
Sheets("Tage1").Select
End If
End With
With Target
If Not Intersect(Target, Range("D8")) Is Nothing Then
Cancel = True
Sheets("Tage1").Select
End If
End With
End Sub
Dies ist mein gebasteltetes Makro, Dank Euch
funktioniert auch, jedoch würde ich gerne bei D7 die Zelle A3 auswählen,
und bei D8 dann A32. In dem Sheet Tage 1.
Vielen Dank euch wieder !!!
With Target
If Not Intersect(Target, Range("D7")) Is Nothing Then
Cancel = True
Sheets("Tage1").Select
End If
End With
With Target
If Not Intersect(Target, Range("D8")) Is Nothing Then
Cancel = True
Sheets("Tage1").Select
End If
End With
End Sub
Dies ist mein gebasteltetes Makro, Dank Euch
funktioniert auch, jedoch würde ich gerne bei D7 die Zelle A3 auswählen,
und bei D8 dann A32. In dem Sheet Tage 1.
Vielen Dank euch wieder !!!