Das Archiv des Excel-Forums

Nur farbige/nicht farbige Zellen markieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Nur farbige/nicht farbige Zellen markieren
von: Dennis

Geschrieben am: 06.10.2003 09:26:04

Guten Morgen!
Wie kann ich es anstellen, dass ich nach Wunsch entweder alle Zellen mit Hintergrundfarbe oder alle Zellen ohne Hintergrundfarbe markiert bekomme? Dies brauche ich um diverse Hintergrundfarben für mein Tabellenblatt auszuprobieren ohne per Hand mit Ctrl-Taste 5000 Zellen zu markieren!
Danke im voraus...
Bild


Betrifft: AW: Nur farbige/nicht farbige Zellen markieren
von: WernerB.
Geschrieben am: 06.10.2003 09:55:50

Hallo Dennis,

was hältst Du hiervon?


Option Explicit

Sub Dennis()
Dim c As Range, Bereich As Range, ErgBereich As Range
Dim Ant As Byte
On Error Resume Next
Set Bereich = Application.InputBox("Bitte Bereich mit der Maus markieren", _
"Bereichswahl", , , , , , 8)
If Bereich Is Nothing Then
MsgBox "Nichts selektiert !" & vbCr & vbCr & "Makro-Abbruch !", _
vbOKOnly + vbCritical, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
On Error GoTo 0
Application.ScreenUpdating = False
Ant = MsgBox("Nur farbige Zellen markieren ?", vbYesNo + vbQuestion, _
"Frage an " & Application.UserName & ":")
For Each c In Bereich
If Ant = 6 Then
If c.Interior.ColorIndex <> xlNone Then
Set ErgBereich = c
Exit For
End If
Else
If c.Interior.ColorIndex = xlNone Then
Set ErgBereich = c
Exit For
End If
End If
Next c
If ErgBereich Is Nothing Then
MsgBox "Nichts gefunden !", vbOKOnly + vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
Else
For Each c In Bereich
If Ant = 6 Then
If c.Interior.ColorIndex <> xlNone Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Else
If c.Interior.ColorIndex = xlNone Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
Set Bereich = Nothing
End If
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: Super-Genial!
von: Dennis
Geschrieben am: 06.10.2003 10:00:48

Hallo Werner,
vielen Dank für Deine Mühe. Deine Lösung trifft den Nagel auf den Kopf! Habe mal alle Zellen eines Sheets markiert, dauert dann zwar ganz schön lange, aber es funktioniert.
Gruß
Dennis


 Bild

Excel-Beispiele zum Thema " Nur farbige/nicht farbige Zellen markieren"

Nur nichtfarbige Zellen schützen download Makros in Abhängigkeit vom Zellennamen aufrufen download
Zellen auf Kommentar überprüfen download Spalten bedingt summieren und Zellen formatieren download
Text aus Textbox in Zellen aufteilen download Zellen vergleichen und markieren download
Zählen formatierter Zellen download Daten aus Textdatei gezielt in Zellen übernehmen download
Zellen verbinden und trennen download Zellen bei Minuswerten schraffieren download
Zeilen oberhalb der markierten Zellen einfügen download Drei Zellen rechts der aktiven Zelle markieren download
Zellen vom Druck ausschließen download Zellenwert als Autofilter-Kriterienwert download
Nur Zellen mit Inhalt in ComboBox listen download Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download
Zellen nach Schriftfarbe summieren download Füllen aller leeren Zellen mit einem Platzhalter download
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download Zeilen mit Zellen mit rotem Hintergrund ausblenden download
Anzahl der gelb hinterlegten Zellen ermitteln download Editieren von Zellen durch DoppelKlick verhindern download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download
Prüfung, ob Parallelzellen übereinstimmen download Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download
Kofpzeilenwerte angekreuzter Zellen multiplizieren download Zellen über Tabellenblatt-Schaltfläche multiplizieren download
Wert aus A1 in mehrere Zellen übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download Nur sichtbare Zellen addieren download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Blatt auswählen und Zellen nacheinander drucken download
Leere und Zellen mit 0 aus-/einblenden download Zugriff auf Zellen unter Verwendung eines Bereichsnamens download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download Prüfung, welche Zellen nach Öffnen verändert wurden download
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeilenhöhe bei verbundenen Zellen anpassen download Einfügen von Zeilen vor und nach Zellen mit Fettdruck download
Bei Zelleingabe andere Zellen füllen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Gültigkeitsliste ohne Lerrzellen download Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download
Zellen verbinden, ohne dass Werte verlorengehen download Bereich mit Maximalwert markieren download
Zeilen markieren download Markieren in Abhängigkeit vom Quartal download
Listbox-Eintrag durch Mausbewegung markieren download Zelle mit Maximalwert markieren download
Alle nichtleeren Zeilen markieren download Start- und Enddatum abfragen und markieren download
Minimalwerte je Zeile markieren download Nach Verlassen von Spalte B Spalte C markieren download
Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren download Monatsabhängige Tagesliste anlegen und Wochenenden markieren download
Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Zelle mit kleinsten Wert markieren download Bestimmte Zeichen in einer UserForm-TextBox markieren download
Über die bedingte Formatierung den Minimalwert markieren download Kopfzelle mit aktivem Autofilter markieren download
Doppelt vorkommende Werte markieren download Doppelte Datensätze farblich markieren und auflisten download
Wochenenden und Feiertage in Jahresliste markieren download Datumsreihen nach Vorgabe markieren download
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download Datumsbereich in Abhängigkeit von 3 Kriterien markieren download
Kürzel über Kontextmenü auswählen und markieren download Tabellen vergleichen und bei Nichtübereinstimmung markieren download
Suchbegriff abfragen und Fundzeile markieren download Maximalwerte im selektierten Bereich markieren download
Min- und Max-Werte automatisch markieren download In Folgeblättern nicht vorkommende Werte markieren download
Überschrittene Zahlungstermine markieren download Von einer Zeilenauswahl jede zweite markieren download
Zellen in Abhängigkeit der aktuellen Uhrzeit markieren download Datumsbereich gem. Start- und Enddatum markieren download
Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download Zellen in Abhängigkeit des Summen-Teilergebnisses markieren download
Cursor-Position rechts und links markieren download Alle ungeraden Zahlen markieren download
Label und Zellen farbig markieren download Doppelt vorkommende Werte in Spalte A markieren download
Artikel mit den in einem Farbindex hinterlegten Farben markieren download Gleiche Einträge markieren download
Teilstrings vergleichen und markieren download Werte markieren, die größer als Parallelwerte sind download
Markieren von Auswahlbereichen download Markieren von festgelegten Bereichen download
Zeile markieren, in der sich der Cursor befindet download Datensätze wechselseitig bei Nichtauffinden markieren download
Werte, die auch in anderen Spalten vorkommen, markieren download