Wie kann ich in Excel Zeilen über ein Makro einfügen?

...komplette Frage anzeigen

2 Antworten

rechtsklick auf das kästchen und dann neue zeile einfügen

dein Excel hat Kästchen? Meins hat Zellen, Zeilen und Spalten. Es war nach ein VBA-Lösung gefragt.

0

Sub einfügen()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Range("A1").Select

Do

If ActiveCell <> "" Then

ActiveCell.Offset(1, 0).EntireRow.Insert

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell.Value = "Ende"

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = False

End Sub

PS in die letzte Zeile muss das Wort Ende sonst kommst du in eine Endlosschleife.

0

Was möchtest Du wissen?