Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

		

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige