Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Marko um Zeile zu löschen, wenn 1.Zelle leer ist

Marko um Zeile zu löschen, wenn 1.Zelle leer ist
07.05.2008 18:27:43
vux
Hi,
heute poste ich doch recht häufig, ist ja ein super Forum...
Hat jeamand ein Makro parat, welches eine Zeile löscht, sobald die 1. Zelle leer ist?
Wäre super!
'1. Zeile: A,B,C,D
'2. Zeile: A,B,C,D
'3. Zeile: ,B,C,D
'4. Zeile: ,B,C,D
'5. Zeile: A,B,C,D
Zeilen 3,4 löschen

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Marko um Zeile zu löschen, wenn 1.Zelle leer ist
07.05.2008 19:00:00
hary
Hallo vux
Probier die mal

Dim var As Variant
Dim iRow As Long, iRowL As Long
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match("", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If


Ich weiss aber nicht ob es mit "" geht. Nicht ausprobiert. Da bei mir zwischen "" frei steht.
Gruss Hary

AW: Marko um Zeile zu löschen, wenn 1.Zelle leer ist
07.05.2008 19:40:24
vux
cool
vielen Dank!
Hab gerad über Autofilter die leeren Zeilen gefiltert (blanks), dann einfach alle Zeilen markiert und gelöscht. K.A. warum ich es nicht gleich so gemacht habe - zu VBA besessen ;-)
Aber teste bei Gelegenheit dein Skript und würde dann feedback geben
Grüße!

Anzeige
AW: Marko um Zeile zu löschen, wenn 1.Zelle leer
07.05.2008 20:31:00
Daniel
HI
es geht auch ohne Autofilter, wenn es echte Leerzellen sind (also keine Formeln, die als Ergebnis "" haben):
- erste Spalte markieren
- BERARBEITEN - GEHE ZU - INHALTE - LEERZELLEN klicken
- BEARBEITEN - ZELLEN LÖSCHEN - GANZE ZEILE klicken
bei grossen Datenmengen empfiehlt es sich aber, erst nach der Spalte zu sortieren, so daß die zu löschenden Zeilen einen zusammenhängenden Block bilden.
das erhöht die Verarbeitungsgeschwindigkeit, bzw wenn die Datenmenge zu groß ist, kann es sein, daß Excel die Übersicht verliert, was ausgeblendet ist und was nicht und falsche Zellen gelöscht oder eben nicht gelöscht werden.
Gruß, Daniel

Anzeige
AW: Marko um Zeile zu löschen, wenn 1.Zelle leer ist
07.05.2008 19:41:06
Gerd
Hi,
wenn kein Filter gesetzt ist, die letzte gefüllt Zelle oberhalb "A8192" ist u.
mindestens eine leere Zelle in diesem Bereich vorhanden.

Sub test()
ActiveSheet.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells _(xlCellTypeBlanks). _
EntireRow.Delete
End Sub


Gruß zurück
Gerd

AW: Marko um Zeile zu löschen, wenn 1.Zelle leer ist
08.05.2008 08:58:21
vux
Hi Gerd und Hary,
wenns schnell geht würde mich mal interessieren was die Befehle in den Makros genau machen, bzw wie man von alleine darauf kommt - ich würde gerne einige Basic VBA gerne verinnerlichen und nicht nur anwenden:
Method1
ActiveSheet.Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells _(xlCellTypeBlanks). _
Method2
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match("", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete

Anzeige
AW: Markosprache
08.05.2008 15:40:00
hary
Hallo vux
Mir gehts genau so. Ich moechte auch nicht fertige Sachen, ich will auch wissen warum das so ist und nicht anders. Aber da hilft nur lesen, lesen sich hier im Forum rumtreiben. Und ich mache es so, dass ich erklaerungen die hier auftauchen aufschreibe. So kommt Stueck fuer Stueck zusammen. Wollte eine Word Datei hochladen, aber zu gross. Da sind alle VBA erklaerungen in deutsch uebersetzt. 80 Seiten!
Was noch hilft: zb. Makrorecorder an, aufzeichnung starten, dann eine Zelle markieren, Recorder stoppen und sich das Makro ansehen. Beim naechsten Mal weisst Du schon mit welchen Befehl eine Zelle markiert wird. Dann etwas anderes usw. Die makros kann man ja loeschen.
Das sind kleine Dinge, aber die kann man nachvollziehen und so baut sich das schritt fuer schritt auf. Und das (fast niemand) alles weiss, sieht man ja an diesem super Forum.
Hary

Anzeige

311 Forumthreads zu ähnlichen 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
Anzeige
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
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1