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

Buchstabe eintrage + andere Farbe

Forumthread: Buchstabe eintrage + andere Farbe

Buchstabe eintrage + andere Farbe
13.08.2004 11:27:50
Albert
HI Exelisten,
möchte gerne in der Folgenden formel eine andere Farbe für die Buchstaben haben. 

Sub U_Zeitguthaben_abfeiern()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle = "Z"
Next Zelle
End 


Sub
Hoffe mir kann jemand helfen.
Gruß Albert S.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Buchstabe eintrage + andere Farbe
Jörg
Hallo Albert

Sub U_Zeitguthaben_abfeiern()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle = "Z"
Zelle.Font.Color = RGB(0, 255, 0)
Next Zelle
End Sub

Gruss Jörg
Problem noch offen
Albert
Hi Jörg,
irgendwie ist das noch nicht das richtige da sich die farbe auf die Zelle bezieht und alle weiteren einträge in der Zelle sich in der gleichen Farbe färben, wie der Buchstabe es war. Er soll aber nur bei betätigung des Codes den Buchstaben eintragen mit der gewünschten Farbe und beim löschen das Standart wieder herstellen. Hoffe habe micht verständlich ausgedrückt.
Gruß Albert S.
Anzeige
Problem noch offen
Albert
Hi Jörg,
irgendwie ist das noch nicht das richtige da sich die farbe auf die Zelle bezieht und alle weiteren einträge in der Zelle sich in der gleichen Farbe färben, wie der Buchstabe es war. Er soll aber nur bei betätigung des Codes den Buchstaben eintragen mit der gewünschten Farbe und beim löschen das Standart wieder herstellen. Hoffe habe micht verständlich ausgedrückt.
Gruß Albert S.
Anzeige
AW: Problem noch offen
Jörg
Hallo Albert,
das habe ich in einer Urlaubsliste mal so gelöst

Sub weiß() 'setzt die markierten Zellen zurück.
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End Sub



Sub Resturlaub()'formatiert die markierten Zellen für Resturlaub
Selection.FormulaR1C1 = "r"
Selection.Interior.ColorIndex = 35
Selection.Font.ColorIndex = 0
End Sub

Gruss Jörg

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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