Private Sub CommandButton1_Click()
Dim i As Integer, a As Double, b As Double
a = InputBox("Kleinster Wert!")
b = InputBox("Größter Wert!")
For i = 1 To 100 Step 1
If Cells(i, 1) >= a And Cells(i, 1) <= b Then
Rows(i).Delete
End If
Next i
End Sub
Sub löschen1()
Dim i As Integer, a As Double, b As Double
a = ("60000")
b = ("60023")
For i = 1 To 7000 Step 1
If Cells(i, 1) (größer gleich) a And Cells(i, 1) (kleiner gleich) b Then '(habe Fehler bei Eingabe der größer/kleiner Zeichen bekommen
Rows(i).Delete
End If
Next i
End Sub
Sub Löschen()
Dim intI As Integer
For intI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(intI, 1).Value = "00000" And ActiveSheet.Cells(intI, 1).Value = "00999" Then
ActiveSheet.Cells(intI, 1).EntireRow.Delete
End If
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen