Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

komplett leere zeilen löschen

komplett leere zeilen löschen
22.01.2009 14:30:00
M
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
Anzeige
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

Anzeige
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


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige