Um in Excel jede zweite Zeile zu löschen, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere und füge folgenden Code in das Modul ein:
Sub JedeZweiteZeileLoeschen()
Dim lngR As Long
For lngR = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If lngR Mod 2 = 0 Then Rows(lngR).Delete
Next lngR
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle JedeZweiteZeileLoeschen aus und klicke auf Ausführen.
Damit werden alle geraden Zeilen (2, 4, 6 usw.) gelöscht.
Fehler: Das Makro löscht nicht die gewünschten Zeilen.
Fehler: Excel gibt eine Fehlermeldung aus.
Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen, um die Makros zu aktivieren.Falls du kein Makro verwenden möchtest, kannst du auch Filter oder Power Query nutzen:
Power Query:
Manuelles Löschen:
Beispiel 2: Wenn du jede zweite Spalte löschen möchtest, kannst du den Code leicht anpassen:
Sub JedeZweiteSpalteLoeschen()
Dim lngC As Long
For lngC = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If lngC Mod 2 = 0 Then Columns(lngC).Delete
Next lngC
End SubApplication.ScreenUpdating = False, um die Ausführungsgeschwindigkeit des Makros zu erhöhen.1. Wie kann ich nur jede 10. Zeile löschen?
Du kannst den Modulus in der If-Bedingung ändern: If lngR Mod 10 = 0 Then Rows(lngR).Delete.
2. Was passiert, wenn ich versehentlich das falsche Makro ausführe?
Wenn du versehentlich das falsche Makro ausgeführt hast, kannst du die Änderungen rückgängig machen, indem du STRG + Z drückst, solange du die Datei nicht gespeichert hast.
3. Kann ich auch jede dritte Zeile löschen?
Ja, ändere einfach den Modulus in der If-Bedingung zu 3: If lngR Mod 3 = 0 Then Rows(lngR).Delete.
4. Wie kann ich die gelöschten Zeilen wiederherstellen?
Falls du die Datei gespeichert hast, bevor du das Makro ausgeführt hast, kannst du die letzte nicht gespeicherte Version wiederherstellen, oder du kannst die Datei aus einer Sicherungskopie wiederherstellen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen