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

Forumthread: suchen nach zellinhalten in bestimmter Reihenfolge

suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:01:34
Stefan
Hallo!
Ich möchte nach Datensätzen suchen lassen, die zellinhalte in bestimmter Reihenfolge enthalten:
Danke
Userbild
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:21:51
UweD
Hallo
mit diesem Makro...


      
Sub SuchABCD()
    
Dim Anz%, LR#, Sp%, Z#
    Sp = 3 
'Spalte C
    LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
    For Z = 2 To LR
        
If Cells(Z, Sp) = "A" And Cells(Z + 1, Sp) = "B" And _
           Cells(Z + 2, Sp) = 
"C" And Cells(Z + 3, Sp) = "D" Then
                
With Range(Cells(Z, Sp), Cells(Z + 3, Sp))
                    
With .Borders(xlEdgeLeft)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeTop)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeRight)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                
End With
                Z = Z + 4
        
End If
    
Next
End Sub 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:31:36
Stefan
Hallo Uwe!
Erstmal danke für die schnelle Antwort. Werde gleich mal rumprobieren.
Rückmeldung folgt.
mfg
Stefan
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:32:04
UweD
Hallo
Als Teillösung auch mit "Format, bedingte Formatierung" möglich.
Es wird hier NUR die erste Zelle (also das A) gekennzeichnet.
Formatierung mit dem Pinsel auf die gesamte spalte übertragen..
 
 C
1Arbeitsgänge
2A
3B
4C
5D
6A
7A
8C
9C
10A
11B
12C
13D
14A
15D
16D
17D
18A
19B
20C
21D
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C21. / Formel ist =UND(C2="A";C3="B";C4="C";C5="D")Abc
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 11:03:08
Stefan
Danke Ede und Uwe!
@Uwe: Ich schau jetzt erstmal ob ich es ohne VBA hinkriege. Werde mir Deinen Code erst später reinziehen.(trotzdem Danke für die Mühe!)
mfg
Stefan
AW: suchen nach zellinhalten in bestimmter Reihenfolge
14.02.2006 07:49:10
Stefan
@Uwe:
Hab Deinen Code ausprobiert, funktioniert tadellos! Danke!
mfg
Stefan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Suchen nach Zellinhalten in bestimmter Reihenfolge


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Tabelle, in der Du nach Zellinhalten suchen möchtest.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (deinDateiname)" und wähle Einfügen -> Modul.
  4. Kopiere und füge den folgenden Code ein:

    Sub SuchABCD()
        Dim Anz%, LR#, Sp%, Z#
        Sp = 3 'Spalte C
        LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
        For Z = 2 To LR
            If Cells(Z, Sp) = "A" And Cells(Z + 1, Sp) = "B" And _
               Cells(Z + 2, Sp) = "C" And Cells(Z + 3, Sp) = "D" Then
                With Range(Cells(Z, Sp), Cells(Z + 3, Sp))
                    .Borders(xlEdgeLeft).LineStyle = xlContinuous
                    .Borders(xlEdgeLeft).Weight = xlMedium
                    .Borders(xlEdgeLeft).ColorIndex = xlAutomatic
                End With
                Z = Z + 4
            End If
        Next
    End Sub
  5. Schließe den VBA-Editor und kehre zu Deinem Excel-Dokument zurück.

  6. Führe das Makro aus:

    • Gehe zu Entwicklertools -> Makros, wähle SuchABCD und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler beim Ausführen des Makros: Stelle sicher, dass Du die Makros in den Excel-Optionen aktiviert hast.
  • Keine Ergebnisse: Überprüfe die Zellinhalte in der definierten Spalte und stelle sicher, dass die gesuchten Werte tatsächlich vorhanden sind.
  • Die Formatierung wird nicht übernommen: Vergewissere Dich, dass Du die Zellen korrekt referenzierst und dass die Randformatierung im Code richtig gesetzt ist.

Alternative Methoden

Eine weitere Möglichkeit, um nach Zellinhalten in einer bestimmten Reihenfolge zu suchen, ist die Verwendung der bedingten Formatierung:

  1. Markiere die Spalte, die Du analysieren möchtest.

  2. Gehe zu Start -> Bedingte Formatierung -> Neue Regel.

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.

  4. Gib die Formel ein, z.B.:

    =UND(C2="A";C3="B";C4="C";C5="D")
  5. Wähle das gewünschte Format aus und klicke auf OK.


Praktische Beispiele

Angenommen, Du hast folgende Daten in Spalte C:

Zeile Wert
1 ---
2 A
3 B
4 C
5 D
6 A
7 B

Wenn Du nach einer bestimmten Reihenfolge suchst, wie "A", "B", "C", "D", wird das Makro alle Gruppen dieser Art identifizieren und formatieren. Du kannst die Werte im Code anpassen, um nach anderen Inhalten zu suchen.


Tipps für Profis

  • Verwende Platzhalter: Mit * und ? in Excel kannst Du flexibel nach Zellinhalten suchen. Zum Beispiel bedeutet =WENN(A1="A*"; "Treffer"; "Kein Treffer"), dass alle Werte, die mit "A" beginnen, als Treffer gewertet werden.
  • Kombiniere Funktionen: Du kannst die SVERWEIS-Funktion in Kombination mit benutzerdefinierten Funktionen verwenden, um komplexere Suchen durchzuführen.
  • Makros speichern: Speichere Deine Excel-Datei als .xlsm, um die Makros zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich in Excel nach Zellinhalten suchen?
Du kannst die Suchfunktion in Excel verwenden oder ein Makro schreiben, um nach bestimmten Inhalten in einer Spalte zu suchen.

*2. Was bedeutet es, in Excel nach zu suchen?*
Das Zeichen `
` ist ein Platzhalter, der für eine beliebige Anzahl von Zeichen steht. Du kannst damit flexibel nach ähnlichen Inhalten suchen.

3. Kann ich auch nach Zahlen in einer bestimmten Reihenfolge suchen?
Ja, Du kannst das Makro anpassen, um nach Zahlen oder anderen Inhalten zu suchen, indem Du die Bedingungen im VBA-Code änderst.

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