Wenn Sie Daten aus einer externen Quelle importieren, müssen Sie möglicherweise fremde Daten aus einem Arbeitsblatt löschen. Beispielsweise müssen Sie möglicherweise jede zweite Zeile oder jede fünfte Zeile aus den Daten entfernen.

Dies von Hand zu tun kann mühsam und fehleranfällig sein. Glücklicherweise können Sie ein Makro erstellen, um sowohl die Langeweile als auch die Fehler zu beseitigen.

Das folgende Makro, DeleteRows, entfernt alle X-Zeilen aus Ihrem Arbeitsblatt. Sie müssen lediglich die Zeilen auswählen, auf die sie angewendet werden sollen.

Das Makro entfernt, wie geschrieben, jede zweite Zeile. Wenn Sie also die erste, dritte, fünfte und siebte Zeile löschen möchten, die mit Zeile 10 beginnt, wählen Sie die Zeilen 10 bis 16 aus und führen Sie dieses Makro aus. Dies führt dazu, dass die Zeilen 10 (die erste Zeile), 12 (die dritte Zeile), 14 (die fünfte Zeile) und 16 (die siebte Zeile) gelöscht werden.

Sub DeleteRows()

Dim iStart As Integer     Dim iEnd As Integer     Dim iCount As Integer     Dim iStep As Integer     Dim J As Integer

iStep = 2    'Delete every 2nd row     Application.ScreenUpdating = False     iStart = 1     iCount = Selection.Rows.Count     'Find ending row to start deleting     For J = iStart To iCount Step iStep         iEnd = J     Next

Do While iEnd >= iStart         Selection.Rows(iEnd).Delete         iEnd = iEnd — iStep     Loop     Application.ScreenUpdating = True End Sub

Wenn Sie ein anderes Vielfaches von Zeilen löschen möchten, ändern Sie einfach die Einstellung für die iStep-Variable. Wenn Sie beispielsweise jede fünfte Zeile löschen möchten, ändern Sie iStep von 2 auf 5. (Sie müssen nur die einzelne Änderung in der iStep = 2-Deklaration vornehmen.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3592) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Alle X Zeilen löschen.