Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro abändern

Makro abändern
30.08.2013 18:58:39
mike49
Hallo,
ich habe ein kleines Makro, das ich wie folgt abändern möchte:
Es soll bei Rechtsklick in Column 5 (Spalte E) "Urlaub" eingetragen werden. Bei erneutem Rechtsklick auf "Urlaub" soll das wieder gelöscht werden.
Das gleiche soll in Column 6 (Spalte F) bei "1/2 Urlaub" bei Rechtsklick geschehen.
Wie sieht das geänderte Makro aus?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E7:E41"), Range("F7:F41"))) Is Nothing Then
Cancel = True
If Target = "" And Cells(Target.Row, 2).Value  "00:00:00" Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Else
Target = ""
End If
End If
End If
End Sub

Gruß
mike49

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro abändern
30.08.2013 19:17:08
Hajo_Zi
Hallo Mike,
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E7:E41")) Is Nothing Then
Cancel = True
Cancel = True
If Target = "" Then
Target = "Urlaub"
Else
Target = ""
End If
ElseIf Not Intersect(Target, Range("F7:F41")) Is Nothing Then
If Target = "" Then
Target = "1/2 Urlaub"
Else
Target = ""
End If
End If
End Sub

warum 2 x Cancel = True ? owT
30.08.2013 19:32:23
Matthias

AW: falsche Stelle
30.08.2013 19:34:20
Hajo_Zi
das stimmt es muss an eine andere Stelle.
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E7:E41")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "Urlaub"
Else
Target = ""
End If
ElseIf Not Intersect(Target, Range("F7:F41")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "1/2 Urlaub"
Else
Target = ""
End If
End If
End Sub
Gruß Hajo

Anzeige
Uups. War da wohl zu schnell . . .
30.08.2013 19:40:46
mike49
Danke für die Korrektur Hajo und dir Matthias L.
Gruß
mike49

Danke Hajo. So klappts wie gewollt . . .
30.08.2013 19:35:09
mike49
Gruß
mike49

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige