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

Leere Zellen löschen wenn

Forumthread: Leere Zellen löschen wenn

Leere Zellen löschen wenn
14.06.2009 14:16:37
walli
Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422.xls
mfg walli
Anzeige

23
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen löschen wenn
14.06.2009 14:35:22
Christian
Hallo,
Bsp hierzu findest du hundertfach im Archiv. 

Option Explicit
Sub DelRows()
Dim lngLR&, i&
Application.ScreenUpdating = False
With ActiveSheet
lngLR = .Cells.Find("*", , xlValues, 2, 1, 2, 0, 0).Row
For i = lngLR To 6 Step -1
If .Cells(i, 4) = "" And .Cells(i, 5) = "" Then .Cells(i, 4).Resize(, 2).Delete
Next
End With
Application.ScreenUpdating = True
End Sub

Gruß
Christian

Anzeige
AW: Leere Zellen löschen wenn
14.06.2009 14:49:24
walli
Hallo Christian,
das stimmt zwar aber nicht mit 2 Spalten.
Das Makro läuft unendlich, die letzte Zelle die in der Spalte N
steht sollte das Ende sein.
Kannst Du bitte nochmal schauen ?
mfg walli
AW: Leere Zellen löschen wenn
14.06.2009 15:14:08
Christian
Hallo,
ersetze die Zeile:
lngLR = .Cells.Find("*", , xlValues, 2, 1, 2, 0, 0).Row
mit:
lngLR = .Cells(.Rows.Count, 14).End(xlUp).Row
Dann wird die letzte beschriebene Zelle aus Spalte "N" (=14) als Grenze genommen.
Gruß Christian
Anzeige
AW: als Einzeler
14.06.2009 14:44:16
Daniel
Hi
über die SpecialCells-Methode kannst du aufwendige Schleifen vermeiden und das ganze als Einzeiler schreiben:

Sub Löschen()
Intersect(Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow, _
Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow, _
Range("6:" & Rows.Count)).EntireRow.Delete
End Sub


Gruß, Daniel

Anzeige
AW: On Error Resume Next o.T.
14.06.2009 15:29:27
Gerd
Gruß Gerd
On Error Resume Next Wohin ?
14.06.2009 15:44:19
walli
Hallo Daniel u. Gerd,
wo setze ich den dies hin ?
On Error Resume Next
Habe festgestellt das die Spalten 1-3 ebenfalls die Daten jetzt nicht mehr stimmen,
Warum ?
Wenn ich händig Zeile löschen und nach oben verschieben
bleiben die Daten davor erhalten.
mfg Walter
Anzeige
Daniel habe mal so aber leider auch
14.06.2009 16:19:09
walli
Hallo Daniel,
habe mal so geändert: deLete Shift:=xlUp
aber es werden immer die ganzen Zeilen davor verschoben.
Intersect(Columns(14).SpecialCells(xlCellTypeBlanks).EntireRow, _
Columns(15).SpecialCells(xlCellTypeBlanks).EntireRow, _
Range("6:" & Rows.Count)).EntireRow.deLete Shift:=xlUp
Warum denn ?
mfg walli
Anzeige
AW: C+D=leer unter Zeile 5 löschen
14.06.2009 16:59:06
Gerd
Hallo Walli!
die SpecialCells u. was dazugehört sind etwas kippelig. :-)

Sub Makro2()
Dim Z As Integer
For Z = Application.Max(6, Range("D65536").End(xlUp).Row) To 6 Step -1
If Len(Range("D" & Z)) * Len(Range("E" & Z)) = 0 Then
Range("D" & Z).Resize(1, 2).Delete shift:=xlUp
End If
Next
End Sub


Gruß Gerd

Anzeige
Danke Gerd !!! -)
14.06.2009 18:13:24
walli
Guten Abend Gerd,
das ist prima,
danke
mfg walli
Dann war aber Deine Vorgabe irreführend !
14.06.2009 18:31:04
Matthias
Hallo
Siehe Ausgangsfrage, da hast Du in der Datei ganz klar dargestellt wie Du Dir das Ergebnis vorstellst.
Userbild
Hallo Matthias bei mir
14.06.2009 18:49:20
walli
hallo Matthias,
bei mir ist das kommmmischerweise so wie ich das haben wollte.
Ich habe gerad mal mit anderer Spalte getestet, ebenfalls,
allerdings dauert es sehr lange.
Es wird von unten nach oben die Zeile von Spalte N:O nach oben geschoben, wenn in der Zelle der
Spalte N nichts drin steht.
Die Spalten A bis M werden nicht verändert !
Hier das geänderte Makro:
Dim ZL As Integer
For ZL = Application.Max(6, Range("N65536").End(xlUp).Row) To 6 Step -1
If Len(Range("N" & ZL)) * Len(Range("N" & ZL)) = 0 Then
Range("N" & ZL).Resize(1, 2).deLete shift:=xlUp
End If
Next
mfg walli
Anzeige
klappt es so ...
14.06.2009 18:16:45
Matthias
Hallo

Sub walli()
Dim lox&
For lox = 23 To 6 Step -1
If IsEmpty(Cells(lox, 4)) And IsEmpty(Cells(lox, 5)) Then Rows(lox).Delete
Next
End Sub


Gruß Matthias

Leider nicht
14.06.2009 18:59:46
walli
Hallo Matthias,
machte plötzlich halt.
Dieses Makro von Matthias lief soweit gut, (schnell) allerdings
wurde dann die Zeile davor auch gelöscht z.b. wie ich gerade getest habe,
von A bis M.
mfg walli
Anzeige
AW: Leider nicht
14.06.2009 19:09:25
Gerd
Hi,
A und M sind Spaltenbezeichnungen. Von Massendatenverarbeitung war noch nicht die Rede :-)
4= Spalte D in "Cells" , 5= Spalte E

Sub walli4()
Dim lox&
For lox = 23 To 6 Step -1
If IsEmpty(Cells(lox, 4)) And IsEmpty(Cells(lox, 5)) Then Range(Cells(lox,4),Cells(lox,4)). _
Delete
Next
End Sub


Gruß Gerd

Anzeige
Hallo Gerd sehr langsam
14.06.2009 19:25:51
walli
Hallo Gerd,
habe dies mal für die Spalte 14 + 15 geändert,
es dauert sehr lang.
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lox&
For lox = 500 To 6 Step -1
If IsEmpty(Cells(lox, 14)) And IsEmpty(Cells(lox, 15)) Then Range(Cells(lox, 14), Cells(lox, 15)). _
deLete
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Es soll ja nur die Zeile von Spalte 14+ 15 gelöscht werden, wenn die Zelle
in der Spalte 14 lehr ist.
mfg walli
Anzeige
weniger als 1 Sek bei 1000 Zeilen
14.06.2009 19:41:02
Matthias
Hallo
Der Code läuft bei mir mit 1000 Zeilen weniger als 1 Sekunde. Du schreibst von nur 500 Zeilen
Magst Du das Sheet mal hochladen.
Ich glaube so kommnen wir nicht weiter.
Gruß Matthias
AW: weniger als 1 Sek bei 1000 Zeilen
14.06.2009 19:49:27
walli
Hallo Matthias,
IHR habr ja auch viel GEDULD, DANKE !
Anbei die Musterdatei, allerdings sind in der Orginaldatei viele Daten noch mit Formeln
etc., vielleicht ist es deshalb so langsam ?
https://www.herber.de/bbs/user/62424.xls
mfg walli
Anzeige
das klappt doch perfekt ...
14.06.2009 19:58:45
Matthias
Hallo
... auch in Deiner Datei
Einfach den Code in ein Modul 

Sub walli()
Dim lox&
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For lox = 500 To 6 Step -1
If IsEmpty(Cells(lox, 14)) And IsEmpty(Cells(lox, 15)) Then Range(Cells(lox, 14), Cells(lox,  _
15)).Delete
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "fertig !"
End Sub


Userbild
Gruß Matthias

Anzeige
Das war aber ein ... -))))
14.06.2009 21:50:14
walli
Guten Abend Matthias,
das war ein hartes Stück ARBEIT von Dir !!!
Danke !
Ich weiß nicht warum aber es geht tatsächlich sehr SCHNELLLLL !
Danke nochmals
mfg walli
Anzeige
Danke, fürs Feedback :o)
15.06.2009 16:23:03
Matthias
nicht ganze Zeilen löschen
15.06.2009 18:55:42
Daniel
Hi
die ganzen Zeilen werden gelöscht, weil ich das so geschrieben habe.
aus deinem Beispiel und deiner Beschreibung war wahrscheinlich nicht deutlich genug ersichtlich, daß die Zellbereiche drumherum nicht geändert werden dürfen
so sollte es funktionieren, daß die Zellen nur in den Spalten D und E gelöscht werden:

Sub Löschen()
Intersect(Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow, _
Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow, _
Range("6:" & Rows.Count), Range("D:E")).Delete Shift:=xlup
End Sub


ein On Error Resume Next könnte man noch einbauen, weil die Specialcells-Funktion sonst mit einem Fehler abbricht, wenn keine passenden Zellen gefunden werden:


Sub Löschen()
on error resume next
Intersect(Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow, _
Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow, _
Range("6:" & Rows.Count), Range("D:E")).Delete Shift:=xlup
on error goto 0
End Sub


mit "on error" sollte man aber vorsichtig umgehen und nur die Codezeilen darin kapseln, die auch einen Fehler verursachen dürfen.
Gruß, Daniel

Anzeige
Hallo Daniel auch SUPER -)
15.06.2009 20:00:14
walli
Hallo Daniel,
auch Dir nochmal DANKE, deins ist ebenfalls sehr schnell !!!!
mfg walli
;

Forumthreads zu verwandten Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Formatierung Zelle auf "1 M" statt "1.000"
Chris

Hallo Leute,
Ich habe eine Frage bezüglich einer Zellformatierung.
Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
14.11.2008 16:50:09
Thread-ID: 1024652
5 Beiträge
wenn/dann/sonst???
m-andi

Hallo zusammen,
in VBA bin ich noch ein Depp,
ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
15.11.2008 13:30:42
Thread-ID: 1024753
4 Beiträge
Anzeige
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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