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
Anzeige