Ich möchte nach Datensätzen suchen lassen, die zellinhalte in bestimmter Reihenfolge enthalten:
Danke

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
| ||||||||||||||||||||||||||||||||||||||||||||||||||||
Öffne Excel und lade die Tabelle, in der Du nach Zellinhalten suchen möchtest.
Drücke ALT
+ F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu:
Einfügen -> Modul
.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
Schließe den VBA-Editor und kehre zu Deinem Excel-Dokument zurück.
Führe das Makro aus:
Entwicklertools -> Makros
, wähle SuchABCD
und klicke auf Ausführen
.Eine weitere Möglichkeit, um nach Zellinhalten in einer bestimmten Reihenfolge zu suchen, ist die Verwendung der bedingten Formatierung:
Markiere die Spalte, die Du analysieren möchtest.
Gehe zu Start -> Bedingte Formatierung -> Neue Regel
.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden
.
Gib die Formel ein, z.B.:
=UND(C2="A";C3="B";C4="C";C5="D")
Wähle das gewünschte Format aus und klicke auf OK
.
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.
*
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.SVERWEIS
-Funktion in Kombination mit benutzerdefinierten Funktionen verwenden, um komplexere Suchen durchzuführen..xlsm
, um die Makros zu behalten.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen