Leerzeilen löschen - Fehler im Code

Dieses Thema Leerzeilen löschen - Fehler im Code im Forum "Windows XP Forum" wurde erstellt von JonnyHeart, 7. Aug. 2006.

Thema: Leerzeilen löschen - Fehler im Code Hi all, folgender Code soll von Zeile 6 bis 400 alle Leerzeilen löschen (Code bis NEXT L). Dies soll gelten wenn...

  1. 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
     
  2. 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
     
Die Seite wird geladen...

Leerzeilen löschen - Fehler im Code - Ähnliche Themen

Forum Datum
Leerzeilen löschen mit VBA Windows XP Forum 29. Mai 2005
Makro zur Automatisierung des Ausblendens von Leerzeilen? Microsoft Office Suite 1. Okt. 2004
Löschen einzelner Einträge in der Systemsteuerung Windows 10 Forum 15. Aug. 2016
Windows Passwort löschen geht nicht Windows 10 Forum 13. Aug. 2016
Windows 10 Konto löschen, Programme behalten Windows 10 Forum 20. Mai 2016