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

Schriftfarbe für die ganze Zeile ändern?

Schriftfarbe für die ganze Zeile ändern?
28.02.2014 13:23:48
Selma
Hallo Leute,
ich möchte ab Zeile 9 bis letzte benutzte Zelle der Spalte A das Makro ausführen und die Schriftfarbe von grau auf rot für die ganze Zeile ändern.
Geprüft wird die ursprüngliche Farbe (grau) in der Zelle der Spalte A.
Mein Versuch der nicht ganz funktioniert :-)
Sub ColorChange()
'Das Makro gilt ab der Zeile 9 bis letzte benutzte Zelle der Spalte A
Dim rng As Range
Dim lngLast As Long, lngIndex As Long
With ActiveSheet
lngLast = Application.Max(9, .Cells(.Rows.Count, 1).End(xlUp).Row) 'ab der Zeile 9 bis letzte  _
benutzte Zelle der Spalte A
For lngIndex = 9 To lngLast
If .Cells(lngIndex, 1)  "" And .Cells(lngIndex, 1).Font.Color = 8421504 Then 'grau
Set rng = .Cells(lngIndex, 1).Font.Color = 5263615
End If
Next
End With
End Sub
Was muss ich bitte ändern?
Viele Grüße,
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: Schriftfarbe für die ganze Zeile ändern?
28.02.2014 13:32:10
Bastian
Hallo Selma,
.Cells(lngIndex, 1).EntireRow.Font.Color = 5263615
Gruß, Bastian

AW: Schriftfarbe für die ganze Zeile ändern?
28.02.2014 13:36:46
fcs
Hallo Selma,
etwa so, inkl. einer hier wohl angebrachten Sicherheitsabfrage.
Gruß
Franz
Sub ColorChange()
'Das Makro gilt ab der Zeile 9 bis letzte benutzte Zelle der Spalte A
Dim rng As Range
Dim lngLast As Long, lngIndex As Long
If MsgBox("Font-Farbe wechseln von grau nach rot?", _
vbQuestion + vbOKCancel, "Farbwechsel") = vbOK Then
With ActiveSheet
lngLast = Application.Max(9, .Cells(.Rows.Count, 1).End(xlUp).Row) 'ab der Zeile 9 bis  _
letzte _
benutzte Zelle der Spalte A
For lngIndex = 9 To lngLast
If .Cells(lngIndex, 1)  "" And .Cells(lngIndex, 1).Font.Color = 8421504 Then 'grau
'        .Cells(lngIndex, 1).EntireRow.Font.Color = 5263615  'ganze Zeile
.Range(.Cells(lngIndex, 1), .Cells(lngIndex, 10)).Font.Color = 5263615 'Spalte 1  _
bis 10 der Zeile
End If
Next
End With
End If
End Sub

Anzeige
AW: Schriftfarbe für die ganze Zeile ändern?
28.02.2014 13:37:42
Rudi
Hallo,
was soll Set rng= ?
    If .Cells(lngIndex, 1)  "" And .Cells(lngIndex, 1).Font.Color = 8421504 Then 'grau
.Rows(lngIndex).Font.Color = 5263615
End If
Gruß
Rudi

AW: Schriftfarbe für die ganze Zeile ändern?
28.02.2014 14:48:36
Selma
Vielen Dank Bastian, Franz und Rudi!
Gruß,
Selma

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige