Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro funktioniert nicht

Makro funktioniert nicht
29.03.2009 11:08:37
mike49
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro funktioniert nicht
29.03.2009 11:14:09
Tino
Hallo,
versuche es mal so.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Union(Range("E8:E38"), Range("G8:G38"))) Is Nothing Then
         Cancel = True
         If Target = "" Then
             Target = "9:15"
         Else
             Target = ""
         End If
     End If
End Sub


Gruß Tino

Anzeige
AW: Makro funktioniert nicht
29.03.2009 11:23:02
mike49
Hallo Tino,
danke für deine Hilfe.
Im Bereich G8:G38 soll aber mit Doppelklick die Zeit 13:15 eingetragen werden und bei erneutem Doppelklick wieder gelöscht werden können.
Gruß
mike49
AW: Makro funktioniert nicht
29.03.2009 11:29:19
Tino
Hallo,
geht es so?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Union(Range("E8:E38"), Range("G8:G38"))) Is Nothing Then
         Cancel = True
         If Target = "" Then
             Target = IIf(Target.Column = 5, "9:15", "13:15")
         Else
             Target = ""
         End If
     End If
End Sub


Gruß Tino

Anzeige
So funktioniert's . . .
29.03.2009 11:53:38
mike49
Danke für deine Hilfe.
Gruß
mike49

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige