Mehrere Zeilen löschen

Forumthread: Mehrere Zeilen löschen

22.11.2012 11:06:22

Jonas

Hallo zusammen - was in Gottes Namen mach ich falsch?
ist Zelle xx = o dann lösche in anderem Sheet die gesamten Zeilen 11 12 und 13


Sub loeschen()
If Sheets("1").Cells(17, 2) = "o" Then Sheets("GB1").Rows(11, 12, 13).Delete
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Rows("11:13").Delete

22.11.2012 11:08:36

Matthias
AW: Mehrere Zeilen löschen

22.11.2012 14:28:50

Jonas
Mehrere Zeilen löschen

22.11.2012 17:47:41

Matthias

Rows("11:13").Delete

22.11.2012 11:08:36

Matthias

Hallo
Probiers mal so
... Rows("11:13").Delete Shift:=xlUp
Gruß Matthias

AW: Mehrere Zeilen löschen

22.11.2012 14:28:50

Jonas

Klasse das klappt ja schon mal - möchte ich aber mehrere hintereinander ablaufen lassen sprich:
If Sheets("1").Cells(17, 2) = "o" Then Sheets("GB1").Rows("11:14").Delete Shift:=xlUp
If Sheets("1").Cells(18, 2) = "o" Then Sheets("GB1").Rows("15:16").Delete Shift:=xlUp
If Sheets("1").Cells(19, 2) = "o" Then Sheets("GB1").Rows("17:24").Delete Shift:=xlUp
usw.
Löscht es immer nur die erste abfrage...muss somit x mal auf "starten" klicken.

Mehrere Zeilen löschen

22.11.2012 17:47:41

Matthias

Hallo
Dann musst Du mit einer Scheife von unten anfangen
https://www.herber.de/bbs/user/82729.xls
Gruß Matthias

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um mehrere Zeilen in Excel zu löschen, kannst Du die folgenden Schritte befolgen:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf dein Projekt im Projekt-Explorer und wähle Einfügen > Modul.

Code eingeben: Kopiere den folgenden Code in das Modul:

Sub loeschen()
    If Sheets("1").Cells(17, 2) = "o" Then
        Sheets("GB1").Rows("11:13").Delete Shift:=xlUp
    End If
    If Sheets("1").Cells(18, 2) = "o" Then
        Sheets("GB1").Rows("15:16").Delete Shift:=xlUp
    End If
    If Sheets("1").Cells(19, 2) = "o" Then
        Sheets("GB1").Rows("17:24").Delete Shift:=xlUp
    End If
End Sub

Führe das Makro aus: Drücke F5, um das Makro auszuführen und die Zeilen zu löschen.

Häufige Fehler und Lösungen

Problem: Das Makro löscht nur die erste Abfrage.
- Lösung: Stelle sicher, dass Du die Bedingungen nacheinander abarbeitest. Beginne am besten von unten, um Probleme mit dem Verschieben der Zeilen zu vermeiden.
Problem: Excel zeigt zu viele Zeilen an.
- Lösung: Überprüfe die Daten und stelle sicher, dass Du nur die relevanten Zeilen markierst und löschst.

Alternative Methoden

Es gibt auch andere Möglichkeiten, mehrere Zeilen in Excel zu löschen:

Manuelles Löschen:
- Halte die Strg-Taste gedrückt und klicke auf die Zeilennummern, um mehrere Zeilen auszuwählen. Klicke dann mit der rechten Maustaste und wähle Löschen.
Mit einer Formel:
- Du kannst eine Hilfsspalte erstellen, die die Zeilen markiert, die gelöscht werden sollen, und anschließend die Werte in den betreffenden Zeilen leeren.

Praktische Beispiele

Beispiel 1: Löschen von Zeilen basierend auf dem Wert in einer Zelle.

Sub loeschen()
    For i = 11 To 24
        If Sheets("1").Cells(i - 10, 2) = "o" Then
            Sheets("GB1").Rows(i).Delete
        End If
    Next i
End Sub

Beispiel 2: Löschen mehrerer Spalten.

Sub spalten_loeschen()
    Sheets("GB1").Columns("B:C").Delete
End Sub

Tipps für Profis

Nutze Application.ScreenUpdating = False am Anfang Deines Makros, um die Bildschirmaktualisierung zu deaktivieren. Das beschleunigt den Löschprozess.
```
Sub loeschen()
    Application.ScreenUpdating = False
    ' Dein Code hier
    Application.ScreenUpdating = True
End Sub
```
Erstelle eine Sicherungskopie Deiner Daten, bevor Du Massenlöschungen vornimmst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen leeren, anstatt sie zu löschen? Du kannst die Zellen mit folgendem Code leeren:

Sheets("GB1").Range("A1:A10").ClearContents

2. Was tun, wenn ich versehentlich zu viele Zeilen gelöscht habe? Nutze die Rückgängig-Funktion (Strg + Z), um die letzte Aktion rückgängig zu machen, oder lade die Sicherungskopie Deiner Datei.

Beliebteste Forumthreads (12 Monate)

Forumthread: Mehrere Zeilen löschen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mehrere Zeilen in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread