Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1552to1556
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

Daten löschen per VBA

Daten löschen per VBA
11.04.2017 14:05:23
Simone
Hallo,
ich habe diesen Code mit der wird die 1999999 alle Zeilen gelöscht.
Sub löschen2()
Dim letztezeile As Long
Dim i As Long
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = letztezeile To 1 Step -1
If ActiveSheet.Cells(i, 4).Value = 1999999 Then
ActiveSheet.Rows(i).Delete
End If
Next i
End Sub

Jetzt möchte ich 5 weitere Nummer eingeben, die gelöscht werden müssen.
23232323
87878787
15987829
45698723
32698401
Wie mach ich das am besten ?
Danke an alle :-)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten löschen per VBA
11.04.2017 14:21:27
UweD
Hallo
Sub löschen2()


    Dim letztezeile As Long
    Dim i As Long
    letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For i = letztezeile To 1 Step -1
        Select Case ActiveSheet.Cells(i, 4).Value
            Case 1999999, 23232323, 87878787, 15987829, 45698723, 32698401
                ActiveSheet.Rows(i).Delete
        End Select
    Next i
End Sub
LG UweD
Anzeige
AW: Daten löschen per VBA
11.04.2017 14:23:58
ChrisL
Hi
Z.B. so...
Sub löschen2()
Dim letztezeile As Long
Dim i As Long, j As Long, ar As Variant
ar = Array(1999999, 23232323, 87878787, 15987829, 45698723, 32698401)
With ActiveSheet
letztezeile = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = letztezeile To 1 Step -1
For j = 0 To UBound(ar)
If .Cells(i, 4).Value = ar(j) Then
.Rows(i).Delete
Exit For
End If
Next j
Next i
End With
End Sub

cu
Chris
AW: Daten löschen per VBA
11.04.2017 15:23:46
Daniel
Hi
hier bietet sich der Autofilter an:

Sub test()
With ActiveSheet.UsedRange
.AutoFilter Field:=4, _
Criteria1:=Array("15987829", "19999999", "23232323", "32698401", "45698723", "87878787"), _
Operator:=xlFilterValues
If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
.Offset(1, 0).Resize(.Rows.Count - 1).EntireRow.Delete
End If
.AutoFilter
End With
End Sub
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige