Alle X Zeilen löschen (Microsoft Excel)
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.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (2292) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: