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

Zeilen löschen, wenn

Forumthread: Zeilen löschen, wenn

Zeilen löschen, wenn
26.07.2013 01:33:05
Andre´
Hallo alle zusammen,
In dem angehängten Bsp.: https://www.herber.de/bbs/user/86568.xls
ist in der Spalte F eine fortlaufende Nummer, die immer vier mal vorhanden ist. In Spalte G wird eine Summe ermittelt.
Jetzt möchte ich alle Zeilen löschen, wenn die Summe gleich Null ist für die fortlaufende Zahl. Ich habe die Zeilen gelb hinterlegt, die gelöscht werden sollen.
Im Orginal sind es über 34000 Zeilen!
Gibt es dafür eine Makrolösung.
Vielen Dank im Voraus!
MFG André

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
klaro geht das ...
26.07.2013 02:10:14
Matthias
Hallo André
Ja, das geht mit einem Makro
Ich habe mal in Spalte("L") eine Blocksumme erstellt.
Ist diese Summe=0 wird der Bereich der fortlaufenden Nr. gelöscht.
Hier das Beispiel:
https://www.herber.de/bbs/user/86569.xlsm
Gruß Matthias

Anzeige
AW: klaro geht das ...
26.07.2013 09:55:05
Andre´
Hallo Matthias
vielen Dank für die Lösung, funktioniert prima!
MFG Andre

Danke für die Rückmeldung ... oT
26.07.2013 09:56:52
Matthias

Änderung !
26.07.2013 10:06:02
Matthias
Hallo
Ändere bitte diese Zeile 
If Cells(x, 12) = 0 Then
in 
If Cells(x, 12) = "0" Then
sonst wird nach erneutem Klick aufs Button nochmal gelöscht.
Habs gerade erst bemerkt.
Gruß Matthias

Anzeige
AW: Änderung ! erweiter,,
26.07.2013 14:55:21
Matze
Hi Matthias, Andreas,
habe deine Zeilen noch um das ermitteln der letzten Zeile aus Spalte A erweitert.
Somit ist die Sache flexibel.. :-) Andre schrieb was von über 34000 Zeilen
Option Explicit
Sub Loeschen_wenn_Summe_Null()
Dim x
Dim Loletzte As Long
'letzte Zeile in Spalte A ermitteln
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = Loletzte To 2 Step -4
If Cells(x, 12) = "0" Then
MsgBox "Nummer " & Cells(x, 6) & " löschen" & vbLf & "Zeile " & x - 3 & " bis " & x
Rows(x & ":" & x - 3).Delete Shift:=xlUp
End If
Next
End Sub
Matze

Anzeige
Nochmals Danke oT
26.07.2013 22:40:51
Andre´

Forumthreads zu verwandten Themen

Excel2010 - Makro Multiplikation best. Zellen (Exc
Hendrik

Hallo zusammen,
ich habe in Excel eine unendlich lange Liste mit Daten, deren Bearbeitung ich mir mit einem Makro wesentlich vereinfachen möchte. Leider bin ich auf VBA-Ebene eine absoluter Anfänger, weswegen ich über ein einfaches Grundgerüst nicht hinauskomme. Meine Problematik:
Ich...
27.12.2011 15:40:14
Thread-ID: 1243623
1 Beitrag
nach aktualisierung funktioniert Formel nicht mehr
Angelika

Hallo
Ich benötige bitte dringend nochmal Hilfe.
Tabelle hab ich beigefügt
https://www.herber.de/bbs/user/79253.xlsm
Code siehe unten
Kurze Erklärung
In Tabelle Daten1 werden in Spalte K40:T40 manuell Werte eingegeben
Dank Hilfe vom Forum geschieht nun folgendes:<...
07.03.2012 15:53:58
Thread-ID: 1254029
4 Beiträge
Wenn Zelle = Zahl, markieren, Formel in Werte
Monika

Hallo meine Excel-Genies,
ich habe folgende Herrausforderung. :-)
1. Sverweis (ISTFEHLER(SVERWEIS(B9;PL!$B$5:$D$500;3;FALSCH)
2. Sverweis (SVERWEIS(B9;PL!$B$5:$D$500;3;FALSCH)
-- das habe ich in WENN verpackt
=WENN(ISTFEHLER(SVERWEIS(B9;PL!$B$5:$D$500;3;FALSCH)); ;(SVERWEIS(...
30.08.2018 11:34:37
Thread-ID: 1642312
4 Beiträge
Anzeige
suche n. letz. ausgefüllte Zeile; autom. Speichern
Sandra

Hallo zusammen,
ich habe schon oft Hilfe von Euch bekommen und ich glaube ganz fest daran, dass mein heutiges Problem für Euch ein Klacks ist.
Unten angefügt findet Ihr den Code. Diesen habe ich soweit schon für meine neuen Bedürfnisse ganz gut anpassen können. Nun aber meine Änderungsw...
24.09.2013 19:19:39
Thread-ID: 1332095
8 Beiträge
Anzeige
exstrike mit Summenprodukt Zahl und Text
MaMe
Hallo zusammen,
ich habe eine Tabelle in der Zahlen (von 1,00 bis ggf. 164.000,55) gelistet sind - die Zahlen stehen oft alleine, ab und zu ist (soll) jedoch auch ein Hinweistext/Kürzel mit drin (sein) - und es sind nicht alle Zellen gefüllt, viele Zellen sind leer (also 'echt' leer ;-) )
zu...
07.12.2021 17:55:21
Thread-ID: 1860551
7 Beiträge
Anzeige
Tino, kannst Du Dein Beispiel nochmal anschauen ?
Joachim

Hallo Tino,
Du hast mit doch vor ein paar Tagen das Beispiel gemacht (echt supi) mit dem Daten zusammegefasst werden.
Was muss ich denn dran ändern, wenn ich in den Spalten C (3) und U (9) ebenfalls die Kommentare (getrennt duch " ### ") zusammenfügen will. Also gleich , wie es jetzt...
17.09.2009 17:52:21
Thread-ID: 1103620
9 Beiträge
UserForm hilfe
Anna

Hallo zusammen,
https://www.herber.de/bbs/user/130983.xlsm
ich habe hier ein paar Probleme mit User Form.
Problem1: Userform1
Ich möchte beim Tabellenblatt Mitarbeiter, dass er in der richtige Namenreihenfolge einfügt und nicht unten dran. Die Formel in den anderen Spalte müss...
18.07.2019 21:56:21
Thread-ID: 1703155
5 Beiträge
2 Vba Propleme
Alois P

Ich hoffe, ihr können mir bei folgenden kniffligen Aufgabenstellungen behilflich sein:
1.Ich möchte aus einem ExcelArbeitsblatt eine ganze Zeile in ein anderes Arbeitsblatt verschieben können und die dabei entstehende Leerzeile automatisch löschen lassen.
Ich markiere eine Zelle in Arbei...
20.11.2002 17:33:51
Thread-ID: 183625
1 Beitrag
Anzeige
Vba Propleme
Dietmar A.

Ich hoffe, ihr können mir bei folgenden kniffligen Aufgabenstellungen behilflich sein:
1.Ich möchte aus einem ExcelArbeitsblatt eine ganze Zeile in ein anderes Arbeitsblatt verschieben können und die dabei entstehende Leerzeile automatisch löschen lassen.
Ich markiere eine Zelle in Arbei...
20.11.2002 17:54:37
Thread-ID: 183634
1 Beitrag
2 Vba Propleme
Alois D

Ich hoffe, ihr können mir bei folgenden kniffligen Aufgabenstellungen behilflich sein:
1.Ich möchte aus einem ExcelArbeitsblatt eine ganze Zeile in ein anderes Arbeitsblatt verschieben können und die dabei entstehende Leerzeile automatisch löschen lassen.
Ich markiere eine Zelle in Arbei...
20.11.2002 20:03:59
Thread-ID: 183685
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum