Supportnet / Forum / Tabellenkalkulation

hallo @ all ;o) ist es per makro möglich zeilen auszublenden, wenn in diesen zeilen in irgendeiner zelle ein text farbig ist? internette grüsse ponscho

Ich hätte jetzt mal erwartet, dass der folgende Code funktioniert, aber bei mir funktioniert er nicht, weil die schwarze Schriftfarbe bei mir einen Wert von minus irgendwas hat und nicht 1 :-))

Vielleicht kannst Du trotzdem damit was anfangen

Gruß marie

Sub ZeilenAusblenden()

Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("A1:B12")
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Font.ColorIndex <> 1 Then
Zelle.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

ich habs, musst als Farbe statt 1 xlAutomatic schreiben, so funktioniert es auch bei mir.
ActiveSheet.Range("A1:B12") musst Du jetzt so abändern wie Du es brauchst, wenn alle Zeilen ausgelesen werden sollen, bis eine leere kommt und/oder alle Spalten entsprechend, dann musst Du es sagen.

Gruß marie

Sub ZeilenAusblenden()

Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("A1:B12")
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Font.ColorIndex <> xlAutomatic Then
Zelle.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

Hallo marie,

so funktioniert er

Sub ZeilenAusblenden()

Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("A1:B12")
Application.ScreenUpdating = False
For Each Zelle In Bereich
If Zelle.Font.ColorIndex > 0 Then
Zelle.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rainer

hm, bei mir funktioniert es mit <> xlAutomatic . habe mich noch nie um die Farbcodes gekümmert, aber angeblich soll schwarz 1 sein, bei mir ist das nicht der fall.

Bist Du sicher, dass mit größer 0 alles ausser schwarz nicht ausgeblendet wird??


Gruß Marie

Hallo Marie,



...getestet habe ich es nicht, aber ich behaupte es einfach mal.

Vieleicht bekomme ich von einem fleißigen Tester eine Belehrung :-))

Gruß
Rainer

hallo ihr beiden und vielen dank!

ich habe beide versionen getestet und es funktionieren auch beide ;o)

internette grüsse
ponscho

• fx-Zelle überblendet oberste Zeile
• Aktive Zeile farbig markieren
• Excel: Zelle ausblenden
• rote werte übernehmen
• Vergleichen von Listewerten, wie wird´s gemacht?