Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1104to1108
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
Inhaltsverzeichnis

Wirklich leere Zeilen löschen

Wirklich leere Zeilen löschen
Markus
Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechenden Zeilen vorkommen.
D.h. es sollen nur Zeilen gelöscht werden, die wirklich "jungfräulich" sind.
Kann man das lösen?
Wenn ja, danke ich jetzt schon für eine Hilfestellung.
Markus

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

Betreff
Benutzer
Anzeige
AW: Wirklich leere Zeilen löschen
30.09.2009 14:36:43
Jochen
Hi,
du musst halt für jede Zelle eine entsprechenden Abfrage machen, das liest sich einfacher,
als es ist, wenn alle Formatierungsmöglichkeiten berücksichtigt werden sollen.
mfg Jochen
AW: Wirklich leere Zeilen löschen
30.09.2009 14:59:34
Markus
Hallo Jochen,
ja diese Antwort habe ich leider befürchtet!
Dann muss ich halt wohl oder übel von Hand löschen!
Gruss
Markus
AW: Wirklich leere Zeilen löschen
01.10.2009 00:49:12
Daniel
Hi
probier mal das Makro:
Sub ZeileLöschenWennGanzLeer()
Dim ze As Long, sp As Long
Dim Anz As Long
Dim AnzSpalten As Long
Dim Kommentar As String
With ActiveSheet.UsedRange
AnzSpalten = .Columns.Count
For ze = .Rows.Count To 1 Step -1
Anz = 0
On Error Resume Next
Anz = .Rows(ze).SpecialCells(xlCellTypeBlanks).Cells.Count
On Error GoTo 0
If Anz = AnzSpalten Then  '--- Prüfung, ob Zellen leer (keine Formeln, keine Inhalte
For sp = 1 To AnzSpalten
'--- Prüfung, auf Hintergrundfarbe
If .Cells(ze, sp).Interior.ColorIndex  xlNone Then Exit For
'--- Prüfung auf Kommentar
Kommentar = ""
On Error Resume Next
Kommentar = .Cells(ze, sp).Comment.Text
On Error GoTo 0
If Kommentar  "" Then Exit For
Next
If sp > AnzSpalten Then .Rows(ze).EntireRow.Delete
End If
Next
End With
End Sub

gelöscht werden alle Zeilen, die weder Text, Zahlen, Formeln, Hintergrundfarben noch Kommentare enthalten.
weiter Prüfungen auf Schriftfarbe oder Rahmen kannst du ja analog einbauen.
für inhalte kann man die ganze Zeile auf einmal prüfen, bezgl der Formatierungen muss jede Zelle einzeln geprüft werden.
Gruß, Daniel
Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige