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

leere und die vorhergehende Zeile löschen

leere und die vorhergehende Zeile löschen
09.07.2003 21:26:48
Herbert
Guten abend,
wie muss ich das unten angeführten makro ergänzen, damit auch die
4 vorhergehenden zeilen der zelle = "" mitgelöscht werden. die vorherhegenden
zeilen können müssen aber nicht leer sein.

Sub Zeilen_Löschen()
'   alle Zeilen Lösche wo Zelle in Spalte C leer
'   Anzahl der Zeilen an Spalte C ermitteln
Dim i As Integer
For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then Rows(i).Delete
Next i
End Sub

danke für die hilfe
herbert

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

Betreff
Datum
Anwender
Anzeige
AW: leere und die vorhergehende Zeile löschen
09.07.2003 21:50:51
ChristianG
Hallo Herbert,
meinst Du das so?

Sub Zeilen_Löschen()
'   alle Zeilen Lösche wo Zelle in Spalte C leer
'   Anzahl der Zeilen an Spalte C ermitteln
Dim i As Integer
Dim zeilen As String
For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then
If i < 5 Then Exit Sub
zeilen = i & ":" & i - 4
Rows(zeilen).Delete
i = i - 4
End If
Next i
End Sub

Hoffe, das hilft Dir weiter.
Gruß
Christian

AW: leere und die vorhergehende Zeile löschen
09.07.2003 22:11:05
herbert
Christian danke für deine schnelle Hilfe
Herbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige