Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wort farbig durch Rechtsklick einfügen

Forumthread: Wort farbig durch Rechtsklick einfügen

Wort farbig durch Rechtsklick einfügen
12.01.2015 10:59:45
mike49
Hallo zusammen,
ich habe ein Makro, das durch Rechtsklick einer Zelle im jeweiligen Zellbereich das Wort "Urlaub" bzw. "1/2 Urlaub" einfügt.
Wie kann man jetzt erreichen, dass dies in einer roten Schriftfarbe erfolgt? 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Else
Target = ""
End If
End If
End Sub

Gruß
mike49

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wort farbig durch Rechtsklick einfügen
12.01.2015 11:03:26
Daniel
Hi
mit Target.Interior.Color = vbRed
Gruß Daniel

AW: Wort farbig durch Rechtsklick einfügen
12.01.2015 11:14:44
mike49
Hallo Daniel,
danke für die Hife. Aber wo muss das rein? So funktionierts nicht: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Target.Interior.Color = vbRed
Else
Target = ""
End If
End If
End Sub
Gruß
mike49

Anzeige
AW: Schriftfarbe
12.01.2015 11:21:27
hary
Moin 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
Target.Font.Color = vbRed
Else
Target = ""
End If
End If
End Sub

gruss hary

Anzeige
AW: Wort farbig durch Rechtsklick einfügen
12.01.2015 11:22:19
Daniel
Hi
du könntest das "funktioniert nicht" etwas ausführlicher beschreiben.
so wie ich es gesagt habe, sollter der Hintergrund rot gefärbt.
die Schriftfarbe änderst du mit Target.Font.Color = vbRed
solche Fragen kann man sich aus selbst mit Hilfe des Recorders beantworten.
Gruß Daniel

Anzeige
AW: Wort farbig durch Rechtsklick einfügen
12.01.2015 12:09:22
mike49
Hallo Daniel,
mit "funktioniert nicht" meinte ich:
Wenn ich die Zeile "Target.Font.Color = vbRed" einfüge, wird bei Rechtsklick die Fehlermeldung "Laufzeitfehler 1004 angezeigt und die Zeile ist gelb unterlegt.
Gruß
mike49

AW: Wort farbig durch Rechtsklick einfügen
12.01.2015 12:24:12
Daniel
Hi
bei mir funktioniert es, und beim Code von hary auch.
wie sieht denn dein Code aus?
reicht es nicht aus, wenn du generell für die Zellen die Schriftfarbe rot einstellst?
Gruß Daniel

Anzeige
Version?
12.01.2015 12:29:44
Klaus
Hallo Mike,
unter Win7 + xl2010 funktioniert es.
Rekorder dir doch mal das "Schrift rot" unter deiner Excelversion. Bei mir sieht der Rekordercode so aus: 
Sub Makro3()
' Makro3 Makro
Range("A1").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End Sub
Jetzt weiss ich, dass rot bedeutet:
Selection.Font.Color = -16776961
das setze ich jetzt auf den Beispielcode um, wo es nicht um "selection" sondern um "target" geht:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("E8:E38"), Range("F8:F38"))) Is Nothing Then
Cancel = True
If Target = "" Then
Target = IIf(Target.Column = 5, "Urlaub", "1/2 Urlaub")
              Target.Font.Color = -16776961
Else
Target = ""
End If
End If
End Sub
Und schon geht es, unabhängig von der Excel-Version. Du musst natürlich das eintragen, was dein Rekorder ausspuckt.
Wenn man sich jetzt noch in die Excel-Farbverwaltung reinliest stellt man fest dass
Target.Font.Color = -16776961
tatsächlich das gleiche ergibt wie
Target.Font.Color = 255
oder eben, je nach Version
Target.Font.Color = vbRed
oder auch in RGB:
Target.Font.Color = RGB(255, 0, 0)
und noch 100 weitere Möglichkeiten gibt, die Farbe in Excel zu definieren. Ob du dieses Hintergrundwissen für deine Aufgabe benötigst oder einfach eine funktionierende Codezeile benutzt, musst du selber entscheiden.
Grüße,
Klaus M.vdT.

Anzeige
AW: Version?
12.01.2015 13:07:19
mike49
Hallo Klaus M.vdT,
genau das war's. Target.Font.Color = -16776961 (auch mit Recorder ermttelt).
Funktioniert bestens. Danke vielmals.
Gruß
mike49

Danke für die Rückmeldung! owT.
12.01.2015 13:31:28
Klaus
.

OT Geht das auch ;-))
12.01.2015 13:43:21
hary
Moin Allemann
Wenn ich einen Bescheid vom Ordnungsamt bekomme,ich sei bei
vbRed
ueber die Ampel gefahren
und ich verweise auf MS
es ist aber nur
-16776960,5
gewesen. Bringe ich das System durcheinander?
Kann MS nicht mal die Grundfarben in allen Versionen so lassen.
gruss hary

Anzeige
AW: OT Geht das auch ;-))
12.01.2015 13:49:09
Klaus
Hary, richtig lustig wird es doch erst noch.
Seit 2007 glaube ich, kann ich "rot" auch so setzen:
Selection.Font.ThemeColor = xlThemeColorAccent2
Welche Theme-Color mein Kollege bei sich lokal eingestellt hat spielt da keine Rolle, und Versionskompatibel ist das noch weniger als vbRed. Beim theoretischem lesen des Codes kann man sich dazu überhaupt keine Farbe denken.
Wenn es nach mir ginge würden alle Farbcodes immer im Format RGB(x, x, x) angegeben werden, das ist zumindest für alle nachvollziehbar. Aber es geht ja leider nicht nach mir ;)
Grüße,
Klaus M.vdT.

Anzeige
AW: OT meine aber grundsaetzlich...
12.01.2015 14:17:31
hary
Moin Klaus
..das die Grundfarben auch zusaetzlich einfacher gehalten werden koennten.
vbRed
oder
RGB(255, 0, 0)
fuer mich ist das
RGB(255, 0, 1)
auch Rot
Bin kein Uhu.
Soll keine Endlosdebatte werden.
Gruss hary

&hFF geht auch u.natürlich QBColor(12)! Gruß owT
12.01.2015 18:08:47
Luc:-?
:-?
;

Forumthreads zu verwandten Themen

Kontexmenue-Rechtsklick
Artur

Hallo User,
ich habe ein Problem mit der Rechtsklick-Option. Führe ich in einer Zelle einen Rechtsklick aus werden mir alle Menuepunkte angezeigt. Möchte ich den markierten Zelleintrag Kopieren mit Rechtsklick werden mir die beiden Optionen "Einfügen und Inhalte einfügen..." nicht mehr ange...
08.06.2009 19:39:02
Thread-ID: 1079985
3 Beiträge
Bei Rechtsklick Listbox-Zeile wählen und ShowPopup
Martin

Hallo,
ich suche eine gute Möglichkeit beim Rechtsklick auf eine Listbox einer UserForm die Listboxzeile auszuwählen, über der sich die Maus befindet und ein Popup-Menü zu zeigen. Eigentlich habe ich das Problem schon gelöst, aber der Lösungsweg gefällt mir nicht, da ich zum Auswählen der L...
09.06.2009 14:46:28
Thread-ID: 1080173
4 Beiträge
Bei Rechtsklick Listbox-Zeile wählen und ShowPopup
Martin

Hallo,
ich suche eine gute Möglichkeit beim Rechtsklick auf eine Listbox einer UserForm die Listboxzeile auszuwählen, über der sich die Maus befindet und ein Popup-Menü zu zeigen. Eigentlich habe ich das Problem schon gelöst, aber der Lösungsweg gefällt mir nicht, da ich zum Auswählen der L...
09.06.2009 14:46:30
Thread-ID: 1080174
3 Beiträge
Userform schliessen über Rechtsklick
kirsche

Hallo Leute,
ich stehe mal wieder vor einem Problem und hoffe auf eure Hilfe.
Ich habe eine Userform oben links in der Tabelle offen. Nun möchte ich diese schliessen, sofern ich einen Rechtsklick mit der Maus auslöse. Der Mauszeiger befindet sich jedoch nicht auf der Userform.
Oder...
17.06.2010 00:13:40
Thread-ID: 1162353
5 Beiträge
Rechtsklick -> Einfügen nicht mehr möglich
Jonathan

Hallo liebe Experten,
ich stehe nun vor einen richtig komischen Problem:
Ich habe eine Excel-Datei mit mehreren Sheets. Die Datei setzt sich aus 4 Datenblättern (4 einzelne Sheets) und mehreren Darstellungssheets zusammen. Die Darstellungssheets besitzen mehrere Checkboxen und Labels.
29.03.2011 11:17:40
Thread-ID: 1208049
3 Beiträge
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
Problem bei Rechtsklick-Ereignis
Franz

Hallo Fachleute,
ich beginne ein Rechtsklick-Ereignis aufzubauen und möchte dabei die Breite der Target-Spalte abfragen, da krieg ich aber Probleme.
Das hier wird akzeptiert:
If Target.Column > 3 Then
das hier aber nicht:
If Target.Column.Width > 3 Then : "Ungültiger...
15.04.2014 11:22:06
Thread-ID: 1357366
9 Beiträge
Rechtsklick-Menü deaktivieren
Thomas

Guten Morgen!
Folgendes Problem:
ich rufe in meinem Tabellenblatt mit Rechtsklick eine Userform auf. Wenn ich diese dann schließe, erscheint immer das Menü, welches bei Rechtsklick sonst normalerweise erscheint.
Wie kann ich das deaktivieren?
Danke!
Viele Grüße,
Thomas
11.09.2014 08:57:34
Thread-ID: 1381012
7 Beiträge
Anzeige
Rechtsklick
Rene

Hallo, ich habe ein komisches Phänomen. Eine unter Excel 2003 gut laufende xls-Datei mit Makros musste ich jetzt nach xls-2013 konvertieren. Und jetzt geht der Rechtsklick in xls nicht mehr. Wie kann ich denn den Rechtsklick aktivieren / deaktiveren. So was hatte ich ja noch gar nicht. Danke fü...
24.09.2014 11:06:32
Thread-ID: 1383137
3 Beiträge
Zwei ursprüngliche Rechtsklickereignisse handhaben
Torsten

Hallo zusammen,
im Tabellenblatt1 liegt bereits folgendes Ereignis:
################ Public Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Row > 9 And Target.Row 11 And Target.Column
################
nun möchte ich folgendes Ereigni...
25.05.2015 13:48:40
Thread-ID: 1427656
3 Beiträge
commandbar problem über Rechtsklick!!!
Davidx

Ich habe mal folgenden Code ausprobiert, der einfach zu dem rechtklick-Menue eine Combobox einfügt. Leider aber galt das nicht nur für diese Arbeitsmappe sondern für alle. Wenn ich nun einfach mal, auch nach Neustart des Rechners, EXCEL öffne und in eine Zelle mit rechts klicke habe ich diesen...
17.09.2002 16:25:08
Thread-ID: 161023
3 Beiträge
Anzeige
Rechtsklickmenu anstatt Zelldropdown
blangmantl

Hallo, ich möchte anstatt eines dropdownmenus dass wenn man in einer bestimmten Zelle (A1) die rechte Maustaste klickt, dort ein Auswahlmenu mit den gewünschten Listeneinträgen ist, wie macht man das?
23.03.2018 23:51:00
Thread-ID: 1616045
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige