komplett leere zeilen löschen

Forumthread: komplett leere zeilen löschen

22.01.2009 14:30:00

Hallo zusammen,
bin auf der such nach einer funktion oder einem vba code:
Excel soll Zeilen löschen, in denen hinter der spalte "A" kein Eintrag mehr folgt.
Also alle "leeren" Zeilen rausschmeißen.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: komplett leere zeilen löschen

22.01.2009 14:37:00

Hajo_Zi
AW: komplett leere zeilen löschen

22.01.2009 15:10:00

robert
AW: komplett leere zeilen löschen

22.01.2009 15:13:26

Tino
da fehlt noch ein Punkt...

22.01.2009 15:19:36

Tino

AW: komplett leere zeilen löschen

22.01.2009 14:37:00

Hajo_Zi

Hallo Nick,
das Forum hart auch eine Suchfunktion.
Gruß Hajo

AW: komplett leere zeilen löschen

22.01.2009 15:10:00

robert

hi,
und gruß
robert
Nick-Names
NickNames sind nicht erwünscht. Diese Frager werden bei der Beantwortung nicht gerade bevorzugt behandelt. Nenne Deinen Vornamen, damit man Dich ansprechen kann.

AW: komplett leere zeilen löschen

22.01.2009 15:13:26

Tino

Hallo,
teste mal hiermit, die letzte Spalte muss noch frei sein für eine Formel,
diese Spalte wird am Ende wieder gelöscht.

Sub Makro2()
Dim Bereich As Range

With Application
 .ScreenUpdating = False
 
    With Sheets("Tabelle1")
    
         Set Bereich = Range("A1", .Cells(.UsedRange.Cells(.UsedRange.Cells.Count).Row, 1))
         Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
            
            Bereich.Offset(0, .Columns.Count - Bereich.Column) = _
            "=IF(COUNTBLANK(RC[-" & .Columns.Count - 1 & "]:RC[-1])>=COLUMN()-2,0,"""")"
        
        
            If Application.WorksheetFunction.CountIf(.Columns(.Columns.Count), 0) > 0 Then
             Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
            End If
            
            .Columns(.Columns.Count).Delete
         
    End With
 
 .ScreenUpdating = True
End With

End Sub

Gruß Tino

da fehlt noch ein Punkt...

22.01.2009 15:19:36

Tino

Option Explicit

Sub Makro2()
Dim Bereich As Range

With Application
 .ScreenUpdating = False
 
    With Sheets("Tabelle1")
    
         Set Bereich = .Range("A1", .Cells(.UsedRange.Cells(.UsedRange.Cells.Count).Row, 1))
         Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
            
            Bereich.Offset(0, .Columns.Count - Bereich.Column) = _
            "=IF(COUNTBLANK(RC[-" & .Columns.Count - 1 & "]:RC[-1])>=COLUMN()-2,0,"""")"
        
        
            If Application.WorksheetFunction.CountIf(.Columns(.Columns.Count), 0) > 0 Then
             Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
            End If
            
            .Columns(.Columns.Count).Delete
         
    End With
 
 .ScreenUpdating = True
End With

End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: komplett leere zeilen löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread