Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler falls keine Leerzeile

Forumthread: Fehler falls keine Leerzeile

Fehler falls keine Leerzeile
12.01.2005 13:46:29
Susann-Marie
Hallo,
ich benutze folgenden Befehl um meine Leerzeilen zu löschen!
ActiveSheet.Range("B1:B5000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Wenn ich in der Range keine Leerzeile vorhande ist, kriege ich den Laufzeitfehler 1004.
Was kann ich da machen?
Susann-Marie
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Fehler falls keine Leerzeile
Reinhard
Hi Susann,
davor ein
on error resume next
oder, wenn Zeile 5001 sowieso immer leer ist:
ActiveSheet.Range("B1:B5001").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Gruß
Reinhard
AW: Fehler falls keine Leerzeile
u_
Hallo,
On Error Resume Next
ActiveSheet.Range("B1:B5000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error Goto 0
Gruß
Anzeige
AW: Fehler falls keine Leerzeile
12.01.2005 17:43:36
Tom
ich hasse dieses rumgemurkse mit dem on error go to und kram, folgendermaßen find ichs sauberer:


Dim myRange: set myRange = ActiveSheet.Range("B1:B5000").SpecialCells(xlCellTypeBlanks)
If Not myRange Is Nothing Then myRange.EntireRow.delete


aber leerzellen würde ich eh folgendermaßen löschen:


For Each cell in ActiveSheet.Range("B1:B5000")
If cell.Value = "" Then cell.EntireRow.Delete
Next


Gruß, Tom
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige