kleines Makro erweitern
mike49
wie kann man nachfolgendes Makro so erweitern, dass bei Doppelklick im Bereich G7:G42 "06:00" und im Bereich H7:H42 "09:00" eigetragen wird?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E7:E42"), Range("F7:F42"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "09:00", "12:00")
Else
Target = ""
End If
End If
End Sub
mfGmike49