Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
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
Leerzeilen löschen
11.01.2015 01:46:57
Dom-Kam
Hallo ich möchte per makro leerzeilen löschen, das geht auch gut aber ich möchte das dieses nur von spalte A bis H passiert. Mit dem makro was ich raus gesucht habe löscht er auch alle Leerzeilen der Spalten die über H hinausgehen.
Dim lngLetzte As Long
Dim lngZeile As Long
Application.ScreenUpdating = False
lngLetzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row + 1, 65536)
For lngZeile = lngLetzte To 13 Step -1
If Cells(lngZeile, 2) = "" Then
Cells(lngZeile, 2).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ja, weil da '...EntireRow...' steht, ...
11.01.2015 02:15:42
Luc:-?
…Dom-Kam;
schreibe: Cells(lngZeile, 1).Resize(1, 8).Delete xlShiftUp
Morrn, Luc :-?

AW: Leerzeilen löschen
11.01.2015 22:41:57
Dom-Kam
ok geht, aber ich möchte gerne das er in tab1 das makro ausführt und in tab2 soll es ausgelöst werden.

AW: Leerzeilen löschen
11.01.2015 23:12:04
Daniel
HI
schreibe einfach vor jedes Cells oder Range den Tabellenblattnamen:
Sheets("Tab1").Range("B65536")
Gruß Daniel
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige