Makro erweitern
26.12.2014 17:15:26
Michael
ich habe ein kleines Makro, das bei Rechtsklick "Urlaub" in die Zelle einfügt.
Wie kann ich nun erreichen, dass gleichzeitig im Bereich D4:D34 der Zeit-Wert "1:58" eingefügt wird. Ob das Makro richtig ist weiß ich nicht, aber es funktioniert.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:B34")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 2: Target = "Urlaub"
End Select
Else
Target = ""
End If
End If
End Sub
mike49
Anzeige