Zeilen durch Zellen in Excel mit VBA markieren
Schritt-für-Schritt-Anleitung
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" wählst.
-
Kopiere den folgenden Code in das Modul:
Sub test1()
Dim Suche As Object, Treffer1 As String
Set Suche = Cells.Find("Remmers", lookat:=xlPart)
If Not Suche Is Nothing Then
Treffer1 = Suche.Address
Do
Cells(Suche.Row, 25).Value = "x" ' Setzt "x" in Spalte Y
Set Suche = Cells.FindNext(Suche)
Loop While Not Suche Is Nothing And Treffer1 <> Suche.Address
End If
End Sub
-
Ändere den Suchbegriff "Remmers" in den gewünschten Text, den du suchen und markieren möchtest.
-
Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst und "test1" auswählst.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du kein VBA verwenden möchtest, kannst du auch die bedingte Formatierung nutzen, um Text in Excel hervorzuheben:
- Markiere die Zellen, die durchsucht werden sollen.
- Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".
- Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden" und gib eine Formel wie
=SUCHEN("Remmers", A1) ein.
- Lege das gewünschte Format fest und klicke auf OK.
Praktische Beispiele
Angenommen, du möchtest alle Zellen in einem Bereich nach dem Wort "Liedtexte" durchsuchen und in Spalte Y markieren:
Sub liedtexteMarkieren()
Dim Suche As Object, Treffer1 As String
Set Suche = Cells.Find("Liedtexte", lookat:=xlPart)
If Not Suche Is Nothing Then
Treffer1 = Suche.Address
Do
Cells(Suche.Row, 25).Value = "x" ' Setzt "x" in Spalte Y
Set Suche = Cells.FindNext(Suche)
Loop While Not Suche Is Nothing And Treffer1 <> Suche.Address
End If
End Sub
Tipps für Profis
- Nutze
Application.ScreenUpdating = False, um das Flackern während der Ausführung des Makros zu vermeiden. Setze es am Anfang des Codes und stelle es am Ende wieder auf True.
- Verwende
Option Explicit am Anfang deiner Module, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich mehrere Wörter gleichzeitig suchen?
Ja, du kannst mehrere Suchvorgänge in einer Schleife kombinieren oder eine Funktion erstellen, die eine Liste von Wörtern durchläuft.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, wie Excel 2010 und neuer.