Löschen einer Zeile

Forumthread: Löschen einer Zeile

Löschen einer Zeile

19.02.2004 16:49:41

Frank

Hallo zusammen,
ich habe längere Dateien in denen vereinzelt in Zeilen Werte stehen.
Zur Auswertung dieser Zellen (mit Werten)sollen die ohne Werte gelöscht
werden ohne jede Zeile einzeln zu markieren und dann zu löschen..
Gruß
Frank

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Löschen einer Zeile

19.02.2004 16:53:07

K.Rola

AW: Löschen einer Zeile

19.02.2004 16:53:07

K.Rola

Hallo,


Sub Leere_löschen()
Dim x As Long, lz As Long
lz = 65536: If [A65536] = "" Then lz = [A65536].End(xlUp).Row
For x = lz To 1 Step -1
If Application.CountA(Rows(x)) = 0 Then
Rows(x).Delete
End If
Next
End Sub

Gruß K.Rola

Forumthread: Löschen einer Zeile

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread