Leere Zeilen Mit MAKRO Löschen !?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Abend Klaus-Dieter,
leider funktioniert auch ...


Sub OinEspalteLÖSCHEN()
Dim z As Integer, anz As Integer
anz = Cells(Count.Rows, 1).End(xlUp).Row
For z = anz To 1 Step -1
If Cells(z, A-IV) = 0 Then
Count(z).Delete
End If
Next z
End Sub

... nicht !!!
Abend Beate,
auch Dein MAKRO ...


Sub OinEspalteLÖSCHEN()
Dim z As Integer, anz As Integer
anz = Cells(Count.Rows, 1).End(xlUp).Row
For z = anz To 1 Step +1
If Cells(z, A-IV) = 0 Then
Count(z).Delete
End If
Next z
End Sub

funktioniert bei mir nicht !!!
Ich hab` hier einmal die betreffende Datei - etwas gekürzt - hochgeladen : https://www.herber.de/bbs/user/50940.xls
Dank euch für Eure Unterstützung !!! Frohe Ostern ...
MfG
Leo van der Haydn

Sub OinEspalteLÖSCHEN() Dim z As Integer, anz As Integer Application.ScreenUpdating = False 'Bildschirmaktualisierung aus anz = Cells(65500, 1).End(xlUp).Row 'letzte benutzte Zeile For z = anz To 1 Step -1 'prüfen ob alle Zellen in Zeile leer mittels Funktion If Application.WorksheetFunction.CountBlank(Rows(z)) = 256 Then Rows(z).Delete 'lösche Zeile End If Next z Application.ScreenUpdating = True End Sub

Abend zusammen,
dank euch erstmal für Eure tatkräftige Unterstützung am Samstagabend !!! Ist nicht selbstverständlich !!! Deshalb WORD UP !!! Ich hab` momentan viel Stress mit meiner privaten Datenbank weshalb ich mich wahrscheinlich nicht gut genug ausgedrückt habe bzw. auch die falsche Datei hochgeladen habe ...
Hier ist jetzt eine - gekürzte - Datei : https://www.herber.de/bbs/user/50942.xls
Ich möchte gerne aufgrund der leeren Zeilen/Zellen (in rot markiert) die ganze Spalte (in gelb markiert) löschen !!! Zur leichteren problemlösung hab ich mal beide MAKRO auch in die Datei bereits reinkopiert - doch die beiden funktionieren einfach nicht !!! Probierts einfach mal selbst ...
MfG
leo van der haydn
PS :
Vielen vielen dank für eure mühe ...
Übrigens hab ich mit `ner anderen Datei noch ein weiteres Problem - siehe neuen beitrag !!!

Sub OinEspalteLÖSCHEN() Dim z As Integer, anz As Integer Application.ScreenUpdating = False 'Bildschirmaktualisierung aus anz = Cells(65500, 1).End(xlUp).Row 'letzte benutzte Zeile For z = anz To 1 Step -1 'prüfen ob alle Zellen in Zeile leer mittels Funktion If Application.WorksheetFunction.CountBlank(Rows(z)) > (256 - 17) Then Rows(z).Delete 'lösche Zeile End If Next z Application.ScreenUpdating = True End Sub

Sub OinEspalteLÖSCHEN() Dim z As Integer, anz As Integer Application.ScreenUpdating = False 'Bildschirmaktualisierung aus anz = Cells(65500, 1).End(xlUp).Row 'letzte benutzte Zeile For z = anz To 1 Step -1 'prüfen ob alle Zellen in Zeile leer mittels Funktion If Application.WorksheetFunction.CountBlank(Rows(z)) > _ (256 - Range("a1").End(xlToRight).Column) Then Rows(z).Delete 'lösche Zeile End If Next z Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Leere Zeilen Mit MAKRO Löschen !?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

209 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zeilen Mit MAKRO Löschen !?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

209 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread