Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen von Zeilen per Makro

Löschen von Zeilen per Makro
18.07.2003 11:39:59
Bastian H.
Hallo zusammen,
ich hätte folgende Frage:
Gibt es einen Makrobefehl der es mir ermöglicht, Zeilen, welche leere Zellen enthalten, zu löschen???
Danke und Gruß
Bastian

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Zeilen per Makro
18.07.2003 11:45:14
ivan


hi Bastian
Sub GanzeZeileLoeschen()
Dim intRow As Integer
Dim intCol As Integer
Dim x As Variant
For intRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
x = ""
For intCol = 1 To ActiveSheet.UsedRange.Columns.Count
x = x & Cells(intRow, intCol)
Next intCol
If x = "" Then
Cells(intRow, 1).EntireRow.Delete
End If
Next intRow
End Sub
gruss
ivan

Anzeige
AW: Löschen von Zeilen per Makro
18.07.2003 11:44:16
Knut
Meinst du, wenn alle zellen einer Zeile leer sind?
Knut

AW: Löschen von Zeilen per Makro
18.07.2003 12:37:15
Bastian H.
Nein, wenn irgendeine Zelle in der Zeile leer ist (über 5 Spalten hin betrachtet).
>Meinst du, wenn alle zellen einer Zeile leer sind?
>
>Knut

AW: Löschen von Zeilen per Makro
18.07.2003 12:45:29
Knut
Mal ein Beispiel für die ersten fünf Spalten:
Option Explicit

Sub leerzeile()
Dim z As Long
For z = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Range(Cells(z, 1), Cells(z, 5))) = 0 Then
Range(Cells(z, 1), Cells(z, 5)).Delete shift:=xlUp
End If
Next
End Sub

Knut

AW: Löschen von Zeilen per Makro
18.07.2003 13:05:59
Bastian H.
Danke!!!
:-)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige