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

Makro zur Zeilen löschen verfeinern

Makro zur Zeilen löschen verfeinern
22.09.2008 13:23:19
Matthias
Hallo Zusammen,
ich habe ein Makro, das alle Zeilen löscht in denen kein Inhalt steht.
Allerdings würde ich das Makro gerne so anpassen, dass er eine Zeile komplett löscht, wenn in einer bestimmten Spalte die Zelle leer ist.
Das Makro soll also nicht die gesamte Zeile nach Inhalten durchsuchen, sondern nur gucken, ob in einer bestimmten Zelle in der Zeile ein Inhalt steht. Wenn das nicht der Fall ist, soll die ganze Zeile gelöscht werden.
Der Code sieht folgendermaßen aus:

Sub LeerZeilenLöschen()
Dim Zeile As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
For Zeile = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(Zeile, 2)) Then Rows(Zeile).Delete
Next Zeile
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub


Freue mich auf eure Ideen. Vielen Dank schonmal!!

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

Betreff
Datum
Anwender
Anzeige
AW: Makro zur Zeilen löschen verfeinern
22.09.2008 13:26:00
Rudi
Hallo,

nur gucken, ob in einer bestimmten Zelle in der Zeile ein Inhalt steht. 


? macht der Code doch.
Geht im Übrigen auch ohne Schleife:


Sub LeereLoeschen()
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Gruß
Rudi

AW: Makro zur Zeilen löschen verfeinern
22.09.2008 13:50:44
Matthias
hmmm, wenn ich ihn laufen lasse, löscht er nur die Zeile, wo in keiner Zelle ein Inhalt ist.
Dein Makrocode gefällt mir, er ist erheblich kürzer. Wo kann ich in deinem Code sehen, welche Zelle er prüft?
AW: Makro zur Zeilen löschen verfeinern
22.09.2008 13:57:20
Matthias
Ich war zu voreilig mit meiner Antwort.
Das x bei Colums(x) steht für die Spalte, die auf Inhalt gepfüt wird, ich habe es verstanden.
Vielen Dank für deine Lösung.
Gruß
Matthias
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige