Hallo!
Ich nutze folgendes Makro um die Zeilen einer Datenbank abwechselnd in grau und weiss zu färben…interssanterweise funktioniert es mittlerweile nicht mehr, sondern formatiert vereinzelte Blöcke komplett in grau (vorher hats aber funktioniert)
Sub formatierung()
Sheets(„Blatt1“).Select
For i = 6 To 10
wert = Cells(65536, i).End(xlUp).Row
If wert > wert1 Then
wert1 = wert
End If
Next
Range(Cells(1, 1), Cells(wert1, i - 1)).Select
Dim Counter As Integer
'For every row in the current selection…
For Counter = 1 To Selection.Rows.Count
'If the row is an odd number (within the selection)…
If Counter Mod 2 = 1 Then
Selection.Rows(Counter).Interior.ColorIndex = 15
Selection.Rows(Counter).Interior.Pattern = xlSolid
End If
Next
End Sub
Hat jemand ne Idee woran das liegen könnte und was ich zu ändern habe um zu meinem Ziel zu kommen?
Vielen Dank im Voraus
George
Hi,
Sub formatierung()
Dim Counter As Integer
Sheets(„Blatt1“).Select
For Counter = 1 To Selection.Rows.Count
If Counter Mod 2 0 Then
Selection.Rows(Counter).Interior.ColorIndex = 15
Selection.Rows(Counter).Interior.Pattern = xlSolid
End If
Next
End Sub
Gruß, Bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
Sub formatierung()
Dim Counter As Integer
Sheets(„Blatt1“).Select
For Counter = 1 To Selection.Rows.Count
If Counter Mod 2 0 Then
Selection.Rows(Counter).Interior.ColorIndex = 15
Selection.Rows(Counter).Interior.Pattern = xlSolid
End If
Next
End Sub
Gruß, Bernd
Hilft leider nicht, habe immer noch graue Blöcke in der Tabelle…
Aber trotzdem Danke
Zusatzinfo
Weiss nicht obs wichtig ist:
Gleichzeitig soll die Formatierung auch bei Autofiltern funktionieren (wird über eine Makrogesteuerte Suchfunktion eingeschaltet)
Gruß
George
Hi George,
Ich würde das nicht mit Makro machen, diese Formel in der bedingten Formatierung erledigt das auch problemlos:
=Istgerade(Zeile())
Dann musst du nur noch die Farbe einstellen und hast eine abwechselnde Färbung der Zeilen.
Gruß Alex
Ich würde das nicht mit Makro machen, diese Formel in der
bedingten Formatierung erledigt das auch problemlos:
=Istgerade(Zeile())
Dann musst du nur noch die Farbe einstellen und hast eine
abwechselnde Färbung der Zeilen.
Gruß Alex
Irgendwie scheint meine Tabelle lernresistent zu sein…diese Formel bewirkt bei mir gar nüscht. 
Aber trotzdem Danke
Dein Makro prüft in den Spalten F bis J den letzten Eintrag.
Wenn in den Spalten A-E was steht wird das ignoriert…
ich nehme mal an, dass das gewollt ist.
Wenn Du das Wort „Counter“ durch ein Wort erstetzt, das nicht reserviert ist sollte Dein Makro wieder reservieren.
lösche z.b. das „o“ raus und mach ihn zum „Cunter“, dann funktionierts auch wieder *sfg*
PS: Ja, ich weiss, was „Cunt“ heisst *g*
das liegt daran, dass Du die bedingte Formatierung mit Deiner manuellen Formatierung überspielt hast…
Du musst erst mal Deine alte Formatierung loswerden.
Die grauen Blöcke rühren auch genau daher - Du hast in Deinem Makro nämlich NUR grau färbung drin und keine entfernung der grauen Farbe, wenn es nicht passt!!!
Aha, das hilft schonmal weiter…wie werd ich denn die grau-Formatierung im Makro los?
Hab jetzt gerade einaml die komplette Formatierung des Blattes gelöscht und die entscheidenden Zellen neu formatiert (Datum, Prozent, etc.)
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Jepp, das ist’s…(ich hab im übrigen dann doch lieber das „u“ gelöscht…wer weiss wer da noch mal reinschaut)
danke dir!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Aha, das hilft schonmal weiter…wie werd ich denn die
grau-Formatierung im Makro los?
indem Du einen else bereich machst und da dann
.ColorIndex = xlNone
setzt.