kleines Makro abändern

Forumthread: kleines Makro abändern

15.11.2013 14:39:20

mike49

Hallo zusammen,
ich habe dieses kleine Makro im Tabellenblatt:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF30")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "U"
Else
Target = ""
End If
End If
End Sub

Wie kann man erreichen, dass der Eintrag "U" rot dargestellt wird?
Gruß
mike49

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Target.Font.Color = 255 owT

15.11.2013 14:58:34

Rudi
kleines Makro abändern

15.11.2013 15:18:11

mike49
AW: kleines Makro abändern

15.11.2013 15:26:09

hary
AW: kleines Makro abändern

15.11.2013 15:36:27

mike49
AW: Bsp.-Mappe hochladen gruss owT

15.11.2013 15:41:26

hary
kleines Makro abändern

15.11.2013 16:01:04

mike49
AW: kleines Makro abändern

15.11.2013 17:14:24

hary
AW: kleines Makro abändern

15.11.2013 17:42:36

mike49

Target.Font.Color = 255 owT

15.11.2013 14:58:34

Rudi

kleines Makro abändern

15.11.2013 15:18:11

mike49

Hallo Rudi,
danke für die schnelle Hilfe.
Habs so gemacht:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF30")) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "U"
Target.Font.Color = 255
Else
Target = ""
End If
End If
End Sub

Aber so funktionierts nicht. Hab ich was falsch gemacht?
Gruß mike49

AW: kleines Makro abändern

15.11.2013 15:26:09

hary

Moin Mike
Der Buchstabe wird rot gefaerbt. Wenn noch andere Buchstaben kommen koennen, besser mit case arbeiten oder nimm doch gleich Bedingte Formatierung.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF30")) Is Nothing Then
Cancel = True
Target = IIf(Target = "", "U", "")
Target.Font.Color = IIf(Target = "U", 255, 0)
End If
End Sub

gruss hary

AW: kleines Makro abändern

15.11.2013 15:36:27

mike49

Hallo hary,
habs so übernommen, aber es funktioniert nicht.
gruß mike49

AW: Bsp.-Mappe hochladen gruss owT

15.11.2013 15:41:26

hary

kleines Makro abändern

15.11.2013 16:01:04

mike49

hier die Beispielmappe. Teste du mal:
https://www.herber.de/bbs/user/88100.xls
gruß mike49

AW: kleines Makro abändern

15.11.2013 17:14:24

hary

Hallo Mike
Weil dein Blatt geschuetzt ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF30")) Is Nothing Then
Unprotect
Cancel = True
Target = IIf(Target = "", "U", "")
Target.Font.Color = IIf(Target = "U", 255, 0)
Protect
End If
End Sub

gruss hary

AW: kleines Makro abändern

15.11.2013 17:42:36

mike49

Uups!
Da hätte ich aber auch selber draufkommen müssen.
Es funktioniert natürlich jetzt. Nichts für ungut. Meinen besten Dank an dich und
liebe Grüße
mike49

Beliebteste Forumthreads (12 Monate)

Forumthread: kleines Makro abändern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread