Anzeige
Archiv - Navigation
160to164
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
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

leere Zeilen löschen

leere Zeilen löschen
21.09.2002 12:15:52
geri
Hallo benutze folgendes Macro, funkt soweit i.O aber ... es weden nur Zeilen gelöscht welche mit "DEL" Zellinhalt gelöscht wurde und nicht wenn mit "SPACE" gelöscht wurde, falls Formel vorhanden ist natürlich Löschung nicht erwünscht (würde mir aber in diesem Falle keine Rolle spielen)

Option Explicit

Sub LeereZeilenLoeschen()

Dim anzZeilen As Long
Dim anzSpalten As Integer

Dim zaehler As Long
Dim z As Long
Dim s As Integer

Dim b As Boolean
Dim anz As Long

Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select

anzZeilen = ActiveSheet.UsedRange.Rows.Count
anzSpalten = ActiveSheet.UsedRange.Columns.Count

z = 1

For zaehler = 1 To anzZeilen
b = False
For s = 1 To anzSpalten
If IsEmpty(Cells(z, s)) Then b = True _
Else: b = False: Exit For
Next s

If b = True Then
Cells(z, s).EntireRow.Delete
anz = anz + 1
Else
z = z + 1
End If
Next zaehler

ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True

MsgBox "Es wurden " & anz & " leere Zeilen gelöscht!", _
vbOKOnly, Title:="Leere Zeilen löschen"

End Sub

kann mir jemand weiterhelfen

Danke Geri

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

Betreff
Datum
Anwender
Anzeige
Kann nicht gehen...
21.09.2002 12:30:57
Ramses
Hallo Geri,

eine Zelle mit "Space" ist nicht gelöscht sondern es ist ein Leerzeichen erhalten !!
Und mit IsEmpty frägst du ab, ob deine Zelle wirklich leer ist.
Ich denke hier musst du deine Benutzer anweisen richtig zu arbeiten.
Ansonsten musst du alle möglichen Kombinationen prüfen welche gelöscht werden dürfen.

Gruss Rainer

Re: Kann nicht gehen...
21.09.2002 13:40:17
geri
Ramses Danke für INFO
geri

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige