Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leere Zeilen im markierten Bereich löschen

Leere Zeilen im markierten Bereich löschen
02.02.2005 06:53:11
Klaus
Guten Morgen zusammen
Ist es irgendwie möglich, dass ich alle leeren Zeilen in einem vorher markierten Bereich löschen kann?
Gruss Klaus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeilen im markierten Bereich löschen
WernerB.
Hallo Klaus,
wie gefällt Dir das?

Sub Klaus()
Dim Bereich As String, lo As String, ru As String, _
zo As Long, zu As Long, i As Long, _
sl As Integer, sr As Integer
Application.ScreenUpdating = False
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
For i = zu To zo Step -1
If WorksheetFunction.CountA(Range(Cells(i, sl), Cells(i, sr))) = 0 Then
Range(Cells(i, sl), Cells(i, sr)).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Leere Zeilen im markierten Bereich löschen
02.02.2005 07:46:10
Klaus
Hallo Werner
Wahnsinn....Klasse.
Funktioniert wunderbar
Vielen Dank
Gruss Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige