Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile unterhalb einfügen

Zeile unterhalb einfügen
11.07.2020 07:40:39
Nicolai
Hallo zusammen,
ich möchte über ein Makro folgendes umsetzen:
- Finde die Zelle in Spalte G in der "Zeile einfügen" steht (diese Zeile ist ausgeblendet)
- Füge hier eine Zeile ein und übernehme Formatierung und Formeln
Ich habe folgenden Code der auch funktioniert. Allerdings fügt er die neue Zeile oberhalb der Zeile mit "Zeile einfügen" ein. Ich möchte jedoch dass die neue Zeile unterhalb eingefügt wird. Jemand eine Idee wie ich den Code anpassen muss?
Sub Schaltfläche1_Klicken()
Dim loZeile As Long
On Error GoTo Ausgang
loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("B"), 0)
Rows(loZeile).Copy
Rows(loZeile).Insert
Cells(loZeile, "B").ClearContents
Rows(loZeile).RowHeight = 15
Application.CutCopyMode = False
Ausgang:
On Error GoTo 0
End Sub

Vielen Dank.
Gruss Nic
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile unterhalb einfügen
11.07.2020 07:41:40
Nicolai
Hier nochmal der Code:

Sub Zeile_einfuegen()
ActiveSheet.Unprotect Password:="12114"
Dim loZeile As Long
On Error GoTo Ausgang
loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("G"), 0)
Rows(loZeile).Copy
Rows(loZeile).Insert
Cells(loZeile, "G").ClearContents
Rows(loZeile).RowHeight = 14.3
Application.CutCopyMode = False
Ausgang:
On Error GoTo 0
ActiveSheet.Protect Password:="12114"
End Sub

Anzeige
AW: Zeile unterhalb einfügen
11.07.2020 08:12:52
Hajo_Zi

Option Explicit
Sub Zeile_einfuegen()
ActiveSheet.Unprotect Password:="12114"
Dim loZeile As Long
On Error GoTo Ausgang
loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("G"), 0)
Rows(loZeile).Copy
Rows(loZeile + 1).Insert
Cells(loZeile + 1, "G").ClearContents
Rows(loZeile + 1).RowHeight = 14.3
Application.CutCopyMode = False
Ausgang:
On Error GoTo 0
ActiveSheet.Protect Password:="12114"
End Sub

Anzeige
AW: Zeile unterhalb einfügen
11.07.2020 08:24:29
Nicolai
Danke Hajo. Da hätte ich auch selber drauf kommen können ;)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeile unterhalb in Excel einfügen


Schritt-für-Schritt-Anleitung

Um in Excel eine Zeile unterhalb einer bestimmten Zeile einzufügen, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Excel öffnen und die entsprechende Arbeitsmappe laden.

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

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    Option Explicit
    Sub Zeile_einfuegen()
        ActiveSheet.Unprotect Password:="12114"
        Dim loZeile As Long
        On Error GoTo Ausgang
        loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("G"), 0)
        Rows(loZeile + 1).Insert
        Cells(loZeile + 1, "G").ClearContents
        Rows(loZeile + 1).RowHeight = 14.3
        Application.CutCopyMode = False
    Ausgang:
        On Error GoTo 0
        ActiveSheet.Protect Password:="12114"
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Du kannst das Makro nun über Entwicklertools > Makros ausführen oder eine Schaltfläche erstellen, um das Makro zu starten.


Häufige Fehler und Lösungen

  • Fehler: „Zeile einfügen“ nicht gefunden.

    • Lösung: Überprüfe, ob der Text „Zeile einfügen“ exakt in der Spalte G steht. Achte auf Leerzeichen und Groß-/Kleinschreibung.
  • Makro läuft nicht.

    • Lösung: Stelle sicher, dass die Arbeitsmappe nicht geschützt ist. Das Makro versucht, den Schutz aufzuheben.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die folgende Tastenkombination nutzen:

  1. Wähle die Zeile aus, unter der du eine neue Zeile einfügen möchtest.
  2. Drücke Strg + Shift + + (Plus-Taste).
  3. Eine neue Zeile wird direkt unter der ausgewählten Zeile eingefügt.

Diese Methode ist einfach und erfordert keine VBA-Programmierung.


Praktische Beispiele

Angenommen, du hast eine Tabelle mit Daten in Spalte G, und du möchtest eine Zeile unterhalb von "Zeile einfügen" hinzufügen. Mit dem oben genannten VBA-Code wird die neue Zeile genau dort eingefügt und die Formatierung sowie die Formeln werden übernommen.

Wenn du den Excel Shortcut für das Einfügen von Zeilen bevorzugst, kannst du einfach die Zeile auswählen, dann Strg + Shift + + drücken, um die Zeile schnell hinzuzufügen.


Tipps für Profis

  • Nutze Tastenkombinationen: Um effizienter zu arbeiten, gewöhne dir an, die Strg + Shift + + Kombination zu verwenden, um Zeilen schnell einzufügen.
  • VBA anpassen: Passe das Makro an deine spezifischen Anforderungen an, z. B. durch Hinzufügen von Bedingungen oder weiteren Formatierungen.
  • Sichere deine Arbeitsmappe: Stelle sicher, dass deine Arbeitsmappe regelmäßig gespeichert wird, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie füge ich mehrere Zeilen unterhalb ein?
Du kannst die .Insert Methode in VBA anpassen, um mehrere Zeilen einzufügen, indem du die Anzahl der zu insertierenden Zeilen angibst.

2. Welche Excel-Version benötige ich für die Verwendung von VBA?
VBA ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

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