Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle einblenden

Tabelle einblenden
11.07.2005 06: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
Anzeige
AW: Tabelle einblenden
11.07.2005 07: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 07:55:01
Axel
Danke !
gruß Axel
AW: Tabelle einblenden
11.07.2005 08: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige