Zellenbereich mit rote Schriftart darstellen ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wäre noch hilfreicher gewesen, wenn du die betroffenen Buchstaben noch von Hand gefärbt hättest, so daß man sehen kann, wie das Ergebnis aussehen soll.
und noch ein paar fragen:
1. Was meinst du mit "Markierten Zellbereich"?
- sollen nur die Zeilen rot gefärbt werden, die auch markiert wurden oder dürfen alle betroffenen Zellen rot sein?
- soll die Rotfärbung erhalten bleiben, wenn ein andererr Zellbereich markiert wird oder sollen die Zellen dann wieder schwarz werden?
2. bevorzugst du VBA- oder Formel-Lösungen?
3. in deinem ersten beispiel werden 2 Zeilen rot gefärbt, die mit dem kleinsten Buchstaben und die mit dem "-". ist es so, daß alle Zellen mit dem "-" zusätzlich zu der mit dem Kleinsten Buchstaben auch noch mitgefärbt werden sollen?
4. Spielt die Gross/Klein-Schreibung eine Rolle? (also ist "z" kleiner als "A")?
5. Darf die Tabelle umsortiert werden, oder muss die Reihenfolge unbedingt eingehalten werden?
Gruß, Daniel

Sub kleinsten_Buchstaben_färben() Dim i As Long With Selection.EntireRow.Resize(, 9) .Font.ColorIndex = -4105 .Columns(9).FormulaLocal = "=zeile()" .Columns(9).Formula = .Columns(9).Value .Columns(4).Replace "-", "zz" .Sort key1:=.Cells(1, 2), order1:=xlAscending, _ key2:=.Cells(1, 4), order2:=xlAscending, header:=xlNo .Rows(1).Font.ColorIndex = 3 For i = 2 To .Rows.Count If (.Cells(i, 2) .Cells(i - 1, 2)) Or .Cells(i, 4) = "zz" Then .Rows(i).Font.ColorIndex = 3 End If Next .Sort key1:=.Cells(1, 9), order1:=xlAscending, header:=xlNo .Columns(9).ClearContents .Columns(4).Replace "zz", "-" End With End Sub

Hallo
zu deiner ersten Anmerkung, Zeile 31 darf nicht rot gefärbt werden.
die Gruppe besteht aus den Zeilen 29,31, 35 wobei 35 das A enthält und gefärbt werden muss
so, hab mein Makro nochmal korrigiert, jetzt müsste es funktionieren


Public Sub kleinsten_Buchstaben_färben()
Dim i As Long
With Selection.EntireRow.Resize(, 9)
.Font.ColorIndex = -4105
.Columns(9).FormulaLocal = "=zeile()"
.Columns(9).Formula = .Columns(9).Value
.Columns(4).Replace "-", "zz"
.Sort key1:=.Cells(1, 2), order1:=xlAscending, _
key2:=.Cells(1, 4), order2:=xlAscending, header:=xlNo
If .Cells(1, 2) = .Cells(2, 2) Then Färben .Rows(1)
For i = 2 To .Rows.Count - 1
If .Cells(i, 2)  .Cells(i - 1, 2) And .Cells(i, 2) = .Cells(i + 1, 2) _
Then Färben .Rows(i)
If .Cells(i, 4) = "zz" And .Cells(i, 2) = .Cells(i - 1, 2) _
Then Färben .Rows(i)
Next
If .Cells(i, 4) = "zz" And .Cells(i, 2) = .Cells(i - 1, 2) Then Färben .Rows(i)
.Sort key1:=.Cells(1, 9), order1:=xlAscending, header:=xlNo
.Columns(9).ClearContents
.Columns(4).Replace "zz", "-"
End With
End Sub


Private Sub Färben(rng As Range)
rng.Font.ColorIndex = 3
End Sub

Gruß, Daniel

Public Sub kleinsten_Buchstaben_färben() Dim i As Long With Selection.EntireRow.Resize(, 9) .Font.ColorIndex = -4105 .Columns(9).FormulaLocal = "=zeile()" .Columns(9).Formula = .Columns(9).Value .Sort key1:=.Cells(1, 2), order1:=xlAscending, _ key2:=.Cells(1, 4), order2:=xlAscending, header:=xlNo For i = 1 To .Rows.Count - 1 If .Cells(i, 2) = .Cells(i + 1, 2) Then .Rows(i).Font.ColorIndex = 3 Next .Sort key1:=.Cells(1, 9), order1:=xlAscending, header:=xlNo .Columns(9).ClearContents End With End Sub

Beliebteste Forumthreads (12 Monate)

Zellenbereich mit rote Schriftart darstellen ?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenbereich mit rote Schriftart darstellen ?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread