Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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