Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
07.12.2004 14:04:29
Martin
Hi Forum
Ich habe volgendes Prob mit diesem Code

Sub LeerZeilenKiller()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 5 Step -1
If Cells(i, 2).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Er funzt wirklich gut aber ich möcht noch etwas zusästlich haben.
Es sollen nur dann die Zeilen gelöscht werden wenn auch nichts in Spalte E Steht
Bitte um eure hilfe
Gruß martin

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

Betreff
Datum
Anwender
Anzeige
AW: Makro
WernerB.
Hallo Martin,
versuche es mal damit (ungetestet):

Sub LeerZeilenKiller()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 5 Step -1
If Cells(i, 2).Value = "" And Cells(i, 5).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Makro Wow das ging aber schnell
07.12.2004 14:11:58
Martin
Danke es funzt einwandfrei
Gruß Martin
AW: Makro Wow das ging aber schnell
WernerB.
Hallo Martin,
ich bin immer schnell - manchmal auch schnell aber falsch und manchmal auch schnell müde.
Danke für die Rückmeldung!
Gruß
WernerB.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige