Makro funktioniert nicht
29.03.2009 11:08:37
mike49
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E8:E38")) Then
Cancel = True
If Target = "" Then
Target = "9:15"
Else
Target = ""
End If
If Not Intersect(Target, Range("G8:G38")) Then
Cancel = True
If Target = "" Then
Target = "13:15"
Else
Target = ""
End If
End If
End Sub
Ich möchte im Prinzip erreichen, dass zusätzlich im Bereich G8:G38 bei Doppelklick die Zeit 13:15 eingetragen und bei erneutem Doppelklick wieder gelöscht wird. Was habe ich falsch gemacht?
Gruß
mike49