Live-Forum - Die aktuellen Beiträge
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
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


Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
Anzeige

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...

Hallo
Ich habe in einem Tabellenblatt einen fest definierten Bereich (A10:K20) Datensätze drin stehen. Also in A10:K10 der erste DS
A11:K11 der zweite DS
...usw
A20:K20 der 20ste DS
Nun werden verschidene DS, die nicht mehr gebraucht werden , gelöscht. Nun zum Problem. Ich...
Anzeige

Hallo zusammen,
ich habe da ein Makro, welches in verschiedenen Zellen abhängig vom Inhalt ein Bild einfügt. Am Anfang des Makros sollen alle Bilder gelöscht werden, da sich die Inhalte der Zellen ständig ändern.
Code:
Sub bilder()
Dim zeile, abstand, hoehe As Integer
D...

Hallo,
möchte alle DS löschen (ab Zeile 3) , die in Spalte X kein "Auto" stehen haben.
Dim i
For i = 1 To 100
If Cells(i, 24).Value "Auto" Then _
Cells(i, 1).EntireRow.Delete
Next i
Problem 1: irgend wie funktioniert der Code nicht richtig, er löscht immer nur die u...

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige