Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

nach formatierung suchen

Forumthread: nach formatierung suchen

nach formatierung suchen
30.07.2002 12:28:54
Richar
hi leute. ich hätte da gerne mal nen problem :-)

innerhalb eines textes der innerhalb einer zelle steht, kann es sein , dass manche wörter oder auch ganze sätze in roter schrift sind (im gegensatz zu schwarz, wie die meißten einträge)

kennt jemand eine möglichkeit, wie ich nun alle zeilen anzeigen lassen kann, in denen zellen vorkommen die rote schrift beinhalten. oder als hilfslösung in einer neuen spalte (neben der, wo die rote schrift vorkommen kann) wird automatisch ein x eingetragen, wenn in der entsprechenden zelle daneben rote schrift vorkommt.
dann könnte ich einfach einen auto-filter nach dem x filtern lassen.

vielen dank im vorraus.,

mfg richi

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: nach formatierung suchen
30.07.2002 12:51:49
Willi
Kannst Du in VBA programmieren?

Der Abruf der Schriftfarbe ist Font.ColorIndex

Re: nach formatierung suchen
30.07.2002 13:10:44
Richard
ich habe schon viel gelernt und kann das gröbste. aber noch nicht so, dass ich mir zusammenreiben könnte wie man ne farbabfgage macht!

sorry hätte ich vorher vielleicht sagen sollen

Re: nach formatierung suchen
30.07.2002 14:30:27
willi
Moin!

Also, meines Wissenstandes nach kannst Du das nur in VBA realisieren.

Dazu:

Drücke ALT+F11
Rechts im Dateienbaum findest Du Deine Arbeitsmappe
Rechter Maus´klick , hinzufügen, MODUL
Dann geht eine leere, weiße Seite auf.

Da kannst Du dann programmieren, bzw. ein Script reinkopieren.

Zum Beispiel dieses:
Option Explicit
Public Sub ausblenden()
Dim Zell, Quel
Dim i
Dim col, colF
Dim Ein As Boolean

For i = 3 To 490 ' Trage hier die Zeilennummern ein, in denen gesucht werden soll!
Ein = False
For Each Zell In ActiveSheet.Range("A" & i & ":AG" & i) ' ersetze A und AG durch die erste und letzte Spalte, die bei dir durchsucht werden soll
col = Zell.Interior.ColorIndex
colF = Zell.Font.ColorIndex ' wenn Du auf ColorIndex den Cursor stellst und F1 drückst, siehst du die Zuordnung der Farben
If Not col = xlColorIndexNone Then
Ein = True
ElseIf Not colF = xlColorIndexAutomatic And Not colF = 1 Then
Ein = True
End If
Next
If Ein = False Then
ActiveSheet.Rows(i).Hidden = True
End If
Next i

End Sub

Dann ändere wie im Skript angegeben die Anfangs-und endewerte.
Starten mit dem Pfeil oben in der Leiste (Symbol PLAY wie beim Kassettenrecorder). Danach sind alle Zeilen, in denen die Schreibfarbe "automatic" ist und die Zellfarbe weiß oder Farblos ist.

Willi

Anzeige
Re: nach formatierung suchen
31.07.2002 11:00:59
Richard
vielen dank willi. werds gleich mal probieren
;
Anzeige

Infobox / Tutorial

Nach Formatierung in Excel suchen


Schritt-für-Schritt-Anleitung

Um in Excel nach Zellen mit roter Schrift zu suchen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Excel öffnen und die Arbeitsmappe laden, in der Du nach der Formatierung suchen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Datei-Baum rechts, klicke mit der rechten Maustaste auf Deine Arbeitsmappe und wähle „Einfügen“ > „Modul“.

  4. Kopiere den folgenden Code in das neue Modul:

    Option Explicit
    Public Sub ausblenden()
        Dim Zell, Quel
        Dim i
        Dim col, colF
        Dim Ein As Boolean
    
        For i = 3 To 490 ' Trage hier die Zeilennummern ein, in denen gesucht werden soll!
            Ein = False
            For Each Zell In ActiveSheet.Range("A" & i & ":AG" & i) ' ersetze A und AG durch die erste und letzte Spalte, die bei dir durchsucht werden soll
                col = Zell.Interior.ColorIndex
                colF = Zell.Font.ColorIndex ' wenn Du auf ColorIndex den Cursor stellst und F1 drückst, siehst du die Zuordnung der Farben
                If Not col = xlColorIndexNone Then
                    Ein = True
                ElseIf Not colF = xlColorIndexAutomatic And Not colF = 1 Then
                    Ein = True
                End If
            Next
            If Ein = False Then
                ActiveSheet.Rows(i).Hidden = True
            End If
        Next i
    End Sub
  5. Ändere die Zeilen- und Spaltenangaben im Skript nach deinen Bedürfnissen.

  6. Klicke auf das „Play“-Symbol in der Menüleiste, um das Skript auszuführen.

Nach dem Ausführen des Skripts werden alle Zeilen ausgeblendet, in denen die Schriftfarbe nicht rot ist.


Häufige Fehler und Lösungen

  • Fehler: „Sub oder Funktion nicht definiert“

    • Lösung: Stelle sicher, dass Du den gesamten Code korrekt kopiert hast und dass Du Dich im richtigen Modul befindest.
  • Fehler: Excel reagiert nicht mehr

    • Lösung: VBA kann sehr ressourcenintensiv sein. Stelle sicher, dass Du nicht zu viele Zeilen in einer großen Tabelle bearbeitest. Reduziere die Anzahl der durchsuchten Zeilen.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die bedingte Formatierung in Excel verwenden, um Zellen mit roter Schrift hervorzuheben. Hier ist eine einfache Vorgehensweise:

  1. Markiere den Bereich, den Du analysieren möchtest.
  2. Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
  3. Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Gebe die Formel =FARBE(A1)=255 ein (ersetze A1 durch die erste Zelle im markierten Bereich).
  5. Wähle eine Formatierung aus und klicke auf „OK“.

Diese Methode zeigt die Zellen mit roter Schrift an, allerdings wird die Zeile nicht ausgeblendet.


Praktische Beispiele

Angenommen, Du hast eine Tabelle, in der verschiedene Verkaufszahlen farblich gekennzeichnet sind. Einige Zellen sind rot markiert, um Rückgaben darzustellen.

  • Du kannst das VBA-Skript nutzen, um alle Zeilen mit Rückgaben auszublenden.
  • Alternativ kannst Du die bedingte Formatierung verwenden, um die Rückgaben visuell hervorzuheben, ohne die Daten zu verstecken.

Tipps für Profis

  • Sichere Deine Arbeit regelmäßig. Vor dem Ausführen von VBA-Skripten kann es hilfreich sein, eine Sicherungskopie der Datei zu erstellen.
  • Teste das Skript in einer Testumgebung. Bevor Du es auf wichtige Daten anwendest, führe es zuerst an einer Kopie Deiner Datei aus.
  • Nutze die Möglichkeit, die Schriftfarbe dynamisch zu ändern. Mit VBA kannst Du auch die Schriftfarbe basierend auf verschiedenen Bedingungen anpassen.

FAQ: Häufige Fragen

1. Kann ich das Skript auch für andere Schriftfarben verwenden? Ja, Du kannst die Farbe im Skript anpassen, indem Du den ColorIndex entsprechend änderst.

2. Ist VBA in allen Excel-Versionen verfügbar? Ja, VBA ist in den meisten Desktop-Versionen von Excel verfügbar, jedoch nicht in der Online-Version.

3. Wie kann ich herausfinden, welche ColorIndex-Nummer eine bestimmte Farbe hat? Setze einen Haltepunkt im Code und nutze das F1-Hilfesystem in VBA, um die ColorIndex-Nummern zu überprüfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige