Sub Leere_Zeilen_Loschen_c1_bis_c65536()
Application.ScreenUpdating = False
Sheets("Tab1").Select
Range("c1:c65536").Select
Dim i As Long
For i = Selection.Cells(Selection.Cells.Count).Row To 1 Step -1
If ActiveSheet.Cells(i, 5).Value = "ja" Then
Rows(i).delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Aber es loescht nicht weg!
Gruss
mehmet
Sub Loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value "ja" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß aus dem Sauerland
Jens
Sub Loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = 65536 To 1 Step -1
If Cells(i, 3).Value "ja" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Gruß aus dem Sauerland
Jens
Sub OhneJaZeileLöschen()
Application.ScreenUpdating = False
On Error GoTo weiter
Dim x
For x = 65536 To 1 Step -1
If Cells(x, 3) = "" Then GoTo weiter
If Cells(x, 3) "ja" Then Rows(x).Delete
weiter:
Next
Application.ScreenUpdating = True
End Sub
Gruß Matthias
Sub RowDel()
Dim loZeile As Long
With Sheets("Tab1")
For loZeile = 1 to .Cells(Rows.Count, 3).End(xlUp).Row
If .Range("C" & loZeile).Value = LCase("ja") Then
.Rows(loZeile & ":" loZeile).Delete Shift:=xlUp
loZeile = loZeile -1
End If
Next
End With
End Sub
Konnte ich helfen?
Ciao
Thorsten
Sub Makro1()
Columns("A:A").Insert Shift:=xlToRight
Range("A1:A" & Cells(65536, 4).End(xlUp).Row).FormulaR1C1 = "=IF(RC[3]=""ja"",ROW(),TRUE)"
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
Columns("A:A").SpecialCells(xlCellTypeFormulas, 4).EntireRow.Clear
Columns("A:A").Delete
End Sub
Sub Makro2()
Range("A1").CurrentRegion.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes
Range("A1").AutoFilter Field:=1, Criteria1:="ja", Operator:=xlAnd
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A1").AutoFilter
End Sub
Gruß, Daniel