Leerzeilen löschen - Fehler im Code

JonnyHeart · 07.08.2006

Hi all,

folgender Code soll von Zeile 6 bis 400 alle Leerzeilen löschen (Code bis NEXT L).

Dies soll gelten wenn in Spalte A in der jeweiligen Zeile eine 0 steht oder wenn die Zeile sowieso leer ist.

Da dies nicht einwandfrei funktioniert habe ich Code mal hierein kopiert.

Problem bisher ist, dass nach der Ausführung einzelne Leerzeilen verbleiben, wenn etwa ind Spalte R auf eine andere Tabelle verwiesen wird ( bsp: =Daten!C11).

In meinem Code soll jedoch nur der Wert in Spalte A geprüft werden und dann die Löschung erfolgen, unabhängig davon was in den übrigen Spalten steht !

-----------
Private Sub CommandButton2_Click()

Dim L As Long
Dim ZL As Long

Sheets(Übersicht).Activate
ZL = ActiveSheet.UsedRange.Rows.Count
Range(A1).Select

For L = 6 To 400
If Len(ActiveCell.Value) = 1 _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select

End Sub

Vielen Dank

JONNY

Billy · 08.08.2006

Hallo

Ich hab dir mal ein kleines Sub gemacht (basierend auf deinem) damit du vergleichen kannst was ich anders gemacht hab als du.

Bei Frage, einfach Fragen

Code:

Sub LoeschDat()

Dim L As Long
Dim ZL As Long

Sheets(Übersicht).Activate

For L = 400 To 6 Step -1
 Cells(L, 1).Select
 
 If Len(ActiveCell.Value) = 0 Then
  Selection.EntireRow.Delete
 End If
Next

End Sub

MfG Billy

Leerzeilen löschen - Fehler im Code

JonnyHeart

Billy

Leerzeilen löschen - Fehler im Code

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums