habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
Sub Loeschen()
Dim L As Long
For L = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
If Cells(L, 11)
Gruß
Uwe
(:o)
Sub Makro2()
Range("K:K").AutoFilter Field:=1, Criteria1:="
Gruß, Daniel
Sub Wenn_Ohne_Ueberschrift()
Dim Bereich As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
With ThisWorkbook.Sheets("Tabelle1")
Set Bereich = .Range("K1", .Cells(Rows.Count, 11).End(xlUp))
Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
Bereich.FormulaR1C1 = "=IF(RC11<180,0,"""")"
Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
.Columns(.Columns.Count).Delete
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Sub Wenn_Mit_Ueberschrift()
Dim Bereich As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
With ThisWorkbook.Sheets("Tabelle1")
Set Bereich = .Range("K2", .Cells(Rows.Count, 11).End(xlUp))
If Intersect(Bereich, Rows(1)) Is Nothing Then
Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
Bereich.FormulaR1C1 = "=IF(RC11<180,0,"""")"
Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
.Columns(.Columns.Count).Delete
End If
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Gruß Tino
Sub Wenn_Ohne_Ueberschrift()
Dim Bereich As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
With ThisWorkbook.Sheets("Tabelle1")
Set Bereich = .Range("K1", .Cells(Rows.Count, 11).End(xlUp))
Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
Bereich.FormulaR1C1 = "=IF(RC11<180,0,"""")"
If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then
Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End If
.Columns(.Columns.Count).Delete
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Sub Wenn_Mit_Ueberschrift()
Dim Bereich As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
With ThisWorkbook.Sheets("Tabelle1")
Set Bereich = .Range("K2", .Cells(Rows.Count, 11).End(xlUp))
If Intersect(Bereich, Rows(1)) Is Nothing Then
Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
Bereich.FormulaR1C1 = "=IF(RC11<180,0,"""")"
If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then
Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End If
.Columns(.Columns.Count).Delete
End If
End With
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Gruß Tino