Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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ß
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige