Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon ponscho vom 17.11.2019, 17:23 Options

Zeile ausblenden, wenn Text in einer Zelle farbig??

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

Antwort schreiben

Antwort 1 von Marie vom 17.11.2019, 18:13 Options

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

Antwort 2 von Marie vom 17.11.2019, 18:19 OptionsLösung

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

Antwort 3 von rainberg vom 17.11.2019, 18:24 Options

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

Antwort 4 von Marie vom 17.11.2019, 18:30 Options

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

Antwort 5 von rainberg vom 17.11.2019, 18:44 Options

Hallo Marie,

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

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

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

Gruß
Rainer

Antwort 6 von ponscho vom 17.11.2019, 18:52 Options

hallo ihr beiden und vielen dank!

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

internette grüsse
ponscho

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken