Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen/Einfügen/Offset/

Zeilen löschen/Einfügen/Offset/
11.11.2004 23:47:27
Karl-Otto
Grüße an's Forum
Ich beiß' mir den ganzen Nachmittag die Zähne an folgender Datei aus:
https://www.herber.de/bbs/user/13342.xls
Problem: "löschen2" löscht nicht alles, "löschen3" löscht zwar alles,
aber nur mit fixem Bereich. "Ergebnis, aber langsam" tut zwar alles, aber bei
größeren Bereichen zu langsam.
Mit variablen Bereichen ist das alles natürlich effektiver.
Warscheinlich brüte ich zu lange darüber.
Hat jemand eine Lösung für var. Bereiche?
Grüße KO

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen/Einfügen/Offset/
PeterW
Hallo Karl-Otto,
ich mag auch auf dem Schlauch stehen aber was willst du löschen, was soll die Objektvariable und was soll die Formel? Vielleicht hilft dir das weiter (für Tabelle 1)

Sub Loeschen_4()
Dim lgRow As Long
Dim LgCount As Long
lgRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For LgCount = lgRow To 31 Step -1
If IsEmpty(Cells(LgCount, 1)) Then
Rows(LgCount).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß
Peter
AW: Zeilen löschen/Einfügen/Offset/
Karl-Otto
Hallo Peter
"IsEmpty" war der Gedankensprung, der mir fehlte.
Ich danke Dir.
Grüße und eine angenehme Nacht
KO
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige