Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Zeilen löschen

Forumthread: Mehrere Zeilen löschen

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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
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.

Anzeige
;

Forumthreads zu verwandten Themen

Zu viele Zeilenverlängerungszeichen?
TommiH

Hallöchen,
ich habe grade versucht ein Makro aufzunehmen, in dem ich 4 Dateien einlese. Es sind ASCI-Dateien mit einem speziellen Trennzeichen # - wenn ich durch den Assistent gehe, dann kommt bei einer (die Größte) Datei irgendwann der Punkt mit dem Spaltenformat, wo ich Text auswähle (au...
24.09.2008 12:29:00
Thread-ID: 1012032
3 Beiträge
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Zuviele Zeilen
Torsten

Hallo Forum,
ich habe eine CSV-Datei, welche mehr Zeilen hat, wie Excel anzeigen kann (65536). Gibt es einen Trick oder ein anderes Tool, um dieses Problem zu umgehen.
Was ich an Daten brauche, steht halt im nicht sichtbaren Bereich :-(
Vielen Dank für Eure Hilfe.
07.05.2010 08:53:26
Thread-ID: 1155997
5 Beiträge
Array meckert wegen zuvielen Zeilenumbrüchen
simo

Hallo Gemeinde,
ich stehe gerade vor einem Problem:
In einem Programm, welches ich von jmd. übernommen habe steht folgende array-zuweisung:
Werte= Array( _ Array(W01, W04, Nothing, Nothing), _ Array(W02, W05, Nothing, Nothing), _ Array(W01, W03, Nothing, Nothing), _ Array(W05,...
30.06.2010 16:03:49
Thread-ID: 1164755
3 Beiträge
Zuviele Pivot-Zeilenelemente ?
Peter

Hallo,
ich generiere aus einer Tabelle mit 18 Spalten und 1500 Spalten eine einfache Pivottabelle mit einem Datenfeld "Anzahl Nachname" und 3 Zeilenfeldern - "Bereich", "Nachname", "User-ID" (jeweils ohne Teilsummen).
Zweck der Sache ist, alle Leute der Bereiche zu aggregieren und zu zähl...
30.04.2002 15:22:33
Thread-ID: 117496
2 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
Anzeige
LeerZeilen löschen mit VBA
Sibylle

Guten Tag,
eine importierte Datei enthält Leerzeilen, die entfernt werden sollen, und zwar so, dass die Datensätze unter der Leerzeile nach oben rücken. Wie lässt sich dies mit VBA machen?
Ich bitte um Lösungsansätze oder fertige Lösungen, die ich dann umstricken kann.
Dank im Vorau...
04.10.2011 12:03:14
Thread-ID: 1232503
12 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Zeilen in Excel löschen

Schritt-für-Schritt-Anleitung

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

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf dein Projekt im Projekt-Explorer und wähle Einfügen > Modul.

  3. 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

  4. 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:

  1. 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.

  2. 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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige