Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1060to1064
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
Inhaltsverzeichnis

Makro läuft nicht richtig

Makro läuft nicht richtig
24.03.2009 17:07:16
Jan
hallo.
ich habe ein problem mit einem makro. leider läuft es nicht richtig:

Sub Leerzeilen_Loeschen()
'Tool zum Löschen von Zeilen, die keine Daten oder 0 enthalten
'Variablen setzen:
Calculate
I = 1
Range("1:1").Select 'Zeilen löschen
Selection.Delete Shift:=xlUp
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
'löschen der letzten drei Zeilen
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-3, 15)).Activate
Selection.Delete Shift:=xlUp
'Anzahl Schleifen ermitteln:
EndZeile = Selection.Rows(Selection.Rows.Count).Row - 3
'Leerzeilen löschen:
While I 


Und zwar werden die Leerzeilen nicht sauber gelöscht. Wenn in Spalte D und E nicht steht oder 0 dann soll die ganze Zeile gelöscht werden.
Das ging mal, aber nun läuft es nicht mehr sauber. danke für eure Hilfe!!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelt! owT
24.03.2009 18:38:06
Timmy

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige