Tabelle einblenden

Forumthread: Tabelle einblenden
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabelle einblenden

Tabelle einblenden

11.07.2005 08:22:02

Axel

Hallo,
ich möchte in Tabelle2 alle leeren Zeilen löschen (bin auf Tabelle1) und diese erst "nach" dem löschen anzeigen. In dem unten angezeigten Makro löscht er mir alle leeren Zeilen von dem aktiven Blatt.
Wer kann mir helfen?
.
.
zl = Sheets("Tabelle2").UsedRange.Rows.Count
ActiveSheet.Range("A2").Select
For l = 1 To zl
If Len(ActiveCell.Value) = 0 _
Then Selection.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Next l
Worksheets("Tabelle2").Select
.
.
Dank und Gruß
Axel

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle einblenden

11.07.2005 09:42:15

serge
AW: Tabelle einblenden

11.07.2005 09:55:01

Axel
AW: Tabelle einblenden

11.07.2005 10:08:19

Beate

AW: Tabelle einblenden

11.07.2005 09:42:15

serge

Hallo Axel
ich bin kein SuperVBA aber ich würde es folgendermasse lösen:
Application.ScreenUpdating = False (Bildschirmberechnung ausschalten)
Sheets("Tabelle2").Select (geht in Tabelle2 aber wird nicht angezeigt)
HIER DEIN LÖSCHMAKRO UND DANN
Application.ScreenUpdating = TRUE (Bildschirmberechnung wieder einschalten)
Sheets("Tabelle1").Select
sERGE

AW: Tabelle einblenden

11.07.2005 09:55:01

Axel

Danke !
gruß Axel

AW: Tabelle einblenden

11.07.2005 10:08:19

Beate

Hallo Axel,
versuch mal diesen Code:


Sub DelEmptyLines()
Dim i As Long  ' Zeilenzähler
Application.ScreenUpdating = False  ' Bildschirmausgaben abschalten
Sheets("Tabelle2").Select
For i = Sheets("Tabelle2").Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
If i Mod 100 = 0 Then Application.StatusBar = i
Next
Application.StatusBar = False       ' Statuszeile wieder ans Excel zurückgeben
Application.ScreenUpdating = True   ' Bildschirmausgaben einschalten
End Sub

Code abgeleitet von: Löschen leerer Zeilen
Gruß,
Beate