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.
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
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