Office: (Office 2013) Zeilen mit 0 löschen

Hallo zusammen,

ich möchte Zeilen löschen die in einer Zelle eine Null enthalten. Die Tabelle hat ca. 4000 Zeilen.

Folgendes Makro habe ich im Netz gefunden. Ich lasse es gerade laufen. Läuft seit 10 minuten.*entsetzt


Ist das normal, dass ein Makro für 4000 Zeilen so lange braucht, oder arbeitet das Makro nicht richtig. ?

Danke Euch


Sub Makro1()
Dim zeller As Range
a:
For Each zeller In Range("E1", "E10")
If zeller.Value = "0" Then
zeller.EntireRow.Delete
GoTo a
End If
Next zeller
end sub

:)

 

Nachtrag zu meinem Post

Das Makro hat alle Zeilen gelöscht. *wink.gif*

Warum das denn?

jemand ne Ahnung?

grüße
Hans

 

Hallo Hans,

In irgendeiner Zelle der Zeilen oder nur in bestimmten Zellen (welche ) ?

Gruß
Aloys

 

Hi,

hast du es schon mal so versucht:

Code:

 

Moin!

Zumindest, wenn man es so wie Du machst.
Einzelne Zeilen löscht VBA nun mal extrem langsam.

Besser ist:
Schreibe eine 0 in die erste Zeile der Spalte rechts neben Deiner Tabelle.
Darunter eine Formel, die Dir 0 als Ergebnis ausgibt, wenn Dein Löschkriterium erfüllt ist, und sonst die Zeilennummer.
Ich habe es mal nachgestellt, meine Formel in Spalte E:
=WENN(REST(ZEILE();4)=0;0;ZEILE())
Danach diese Spalte kopieren und durch den Wert ersetzen.
Dauer des folgenden Makros, welches 1000 von 4000 Zeilen löscht:
0,06 Sekunden!

Datei zum testen im Anhang.

Edit:
Das kann man natürlich alles auch durch VBA erledigen lassen, dann läuft das Makro 0,2 Sekunden:

Gruß Ralf

 

Hi RPP63neu,

danke für Deine Mühen. Habe es leider noch nicht verstanden.

- Wozu benötige ich die Spalte E?
- Du hattest geschrieben, dasss da eine Wenn Formel drin ware, dem ist aber nicht so. Benötigt man die doch nicht?
- Warum sucht die Schleife nach Duplikaten und löscht diese dann?

Ich bin echt verwirrt.

grüße
Hans

p.s. Nachtrag: Ich habe die Formel in die Spalte eingefügt, bekommen nun auch die "Zufallswerte??". Verstehe aber immer noch nicht, wozu diese Spalte gut ist.

 

Moin Hans!

Ich nutze eben keine Schleife!
Deshalb ist das Teil schnell.

Du benötigst eine Hilfsspalte rechts neben Deiner Liste, um dort Duplikate entfernen anzuwenden.

Ich habe die Formel durch Werte ersetzt, um Dich nicht zusätzlich zu verwirren.
(ist mir scheinbar nicht gelungen *wink.gif*)

Lade mal eine kleine Datei (mit allen Spalten aber nur einigen Zeilen) hoch und färbe manuell die Zeilen, die Du gelöscht haben willst.

Gruß Ralf

 

Hi Ralf,

Danke für deine Hilfe*wink.gif*

Anbei die Datei. So sehen die Daten dann tatsächlich aus. Am sinnvollsten ist es, wenn man prüft, ob in der Spalte C (Type) eine Null steht.

grüße
Hans

 

Datei vergessen

 

Wenn es so einfach ist, brauchst Du überhaupt kein Makro!
Daten, Duplikate entfernen, (evtl. nur Type auswählen, würde ich aber lassen), OK,
erste Zeile manuell löschen.

Gruß Ralf

 

Hey Ralf,

neee, es muss automatisch gemacht werden. Im Worksheet müssen insgesamt vllt. 50 bis 60 Einzelaktionen durchgeführt werden. Das soll vermieden werden.

Jeder manuelle Schritt ist einer zuviel, da im Endeffekt nicht alles automatisiert werden kann. Download aus externen Quellen zum Beispiel.

Also wie gesagt, über die ursprüngliche Formel hat es einfach extreme lange gedauert, bzw. hat ohnehin nicht so zuverlässig gearbeitet.

Eine Idee für ein Makro, oder eine Formel die das automatisiert löscht?

Danke Dir

grüße
Hans

 

Tja Hans,
einen Lösungsansatz habe ich Dir ja bereits gegeben, wie man so etwas per Makro löst.
Die .Formula lautet dann "=IF(C2=""0"",0,ROW())
Jetzt musst Du nur noch die Bereiche durch VBA ermitteln.
Kriegst Du dies hin?

Gruß Ralf

 

Hatte gerade Zeit *wink.gif*

Gruß Ralf

 

Danke Ralf

probiere es gleich aus

Für mich ist VBA eine Welt für sich. *rolleyes.gif*

Danke Dir

grüße
Hans

 

Hey Ralf,

hat funktioniert. *biggrin.gif*

Danke Dir

grüße
Hans