Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1336to1340
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

kleines Makro abändern

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
Anzeige
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

Anzeige
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
.

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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige