Eintrag suchen und darunter Zeile einfügen in Excel
Schritt-für-Schritt-Anleitung
Um in Excel einen Eintrag zu suchen und darunter eine neue Zeile einzufügen, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
-
Klicke im Menü auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Sub ZeilePlus()
Dim Was$, c, fA
Was = "Funkgeräte"
With ActiveSheet.Cells
Set c = .Find(Was, LookIn:=xlValues)
If Not c Is Nothing Then
fA = c.Address
Do
Rows(c.Row + 1).Insert
Rows(c.Row + 1).RowHeight = 20 ' Zeilenhöhe einstellen
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> fA
Else
MsgBox "Suchwort '" & Was & "' nicht gefunden"
End If
End With
End Sub
-
Ändere "Funkgeräte"
im Code zu dem Begriff, den Du suchen möchtest.
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus, indem Du ALT + F8
drückst, das Makro auswählst und auf Ausführen
klickst.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode ist die Verwendung einer InputBox, um den Suchbegriff dynamisch einzugeben. Hier ist ein Beispielcode:
Sub zeiledazu()
Dim suchbegriff As String, zelle
Dim z As Long
suchbegriff = InputBox("Bitte Suchbegriff eingeben")
Set zelle = ActiveSheet.Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
z = zelle.Row + 1
Rows(z).Insert Shift:=xlDown
Else
MsgBox "Suchbegriff nicht gefunden"
End If
End Sub
Diese Methode erlaubt es dir, den Suchbegriff direkt beim Ausführen des Makros einzugeben.
Praktische Beispiele
Stelle dir vor, Du hast eine Liste von Geräten in einer Excel-Tabelle, und Du möchtest nach "Funkgeräte" suchen. Nach der Ausführung des Makros wird unterhalb des gefundenen Eintrags eine neue Zeile eingefügt, um zusätzliche Informationen oder Daten hinzuzufügen.
Tipps für Profis
- Du kannst die Zeilenhöhe anpassen, indem Du
Rows(c.Row + 1).RowHeight = 20
im Code änderst. Setze den Wert auf die gewünschte Höhe.
- Um den Code robuster zu gestalten, füge eine Fehlerbehandlungsroutine hinzu, um unerwartete Fehler abzufangen.
FAQ: Häufige Fragen
1. Frage
Wie kann ich das Makro für mehrere Suchbegriffe verwenden?
Antwort: Du kannst eine Schleife einfügen, um mehrere Begriffe nacheinander zu durchsuchen und entsprechende Zeilen einzufügen.
2. Frage
Kann ich das Makro anpassen, um die Zeilenhöhe je nach Inhalt zu ändern?
Antwort: Ja, Du kannst eine Bedingung hinzufügen, die die Zeilenhöhe basierend auf dem Inhalt der gefundenen Zeile anpasst.