Office: (Office 2010) Zeilen mit bestimmten Werten löschen

someguy · 4. September 2013

Hallo,

ich habe hier eine Tabelle mit circa 500 Zeilen und circa 70 Kriterien.
In Spalte 1 sind Firmennamen eingetragen, über die Spalten hinweg einige Kritierien.

Da ich von VBA keine Ahnung habe, habe ich mir schon versucht via Makrorekorder zu helfen: ich möchte jede Zeile, in der "n.a." (englisch für "nicht erhältlich") für das entsprechende Kriterium eingetragen wurde, löschen.
Dabei habe ich gemerkt dass ich das folgendermaßen machen muss:

den Filter für jede Spalte erst aktivieren

"n.a." eingeben

Shift + Strg + Pfeil runter und Strg + - und Zeilen löschen

Filter deaktiveren

in nächste Spalte gehen

Nun, das geht aber irgendwie nicht für mehrere Spalten. Problem ist, das Makro das dabei herauskommt funktioniert nur für die schon genutzten Spalten (so würde ich Laie das interpretieren zumindest):
Code:

Sub naZeilen()
'
' naZeilen Makro
'

'
Range("AG1").Select
Selection.End(xlToLeft).Select
Range("C1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter
Range("C1").Select
ActiveSheet.Range("$C$1:$BZ$423").AutoFilter Field:=1, Criteria1:="n.a."
Range("C33").Select
Selection.EntireRow.Delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein zweiter Versuch:
Code:

Sub bla()
'
' bla Makro
'
' Tastenkombination: Strg+k
'
Range("U1").Select
Selection.End(xlToLeft).Select
Range("C1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFilter
ActiveSheet.Range("$C$1:$AR$423").AutoFilter Field:=1, Criteria1:="n.a."
Range("C33").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$C$1:$AR$413").AutoFilter Field:=1
ActiveSheet.Range("$C$1:$AR$413").AutoFilter Field:=2, Criteria1:="n.a."
Range("D64").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$C$1:$AR$411").AutoFilter Field:=2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie kann man das für alle existenten Spalten machen? *Smilie

:)

Hasso · 6. September 2013

Hallo someguy,

ich möchte jede Zeile, in der "n.a." (englisch für "nicht erhältlich") für das entsprechende Kriterium eingetragen wurde, löschen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das geht so: Code:

Option Explicit

Sub ZellenLöschen()

Dim rngZelle As Range
Dim intZeile As Integer
Dim intLetzteZeile As Integer

With Worksheets("Tabelle1")
intLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row

For Each rngZelle In .Range("A1:A" & intLetzteZeile)
If WorksheetFunction.CountIf(Range(rngZelle.Row & ":" & rngZelle.Row), "n.a.") > 0 Then
.Rows(rngZelle.Row).EntireRow.Delete
End If
Next rngZelle
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V) · 6. September 2013

Hallo Hasso,

Löschen von Zeilen tust du von unten nach oben. *wink.gif*

Code:

Sub ZellenLöschen()

Dim rngZelle As Range
Dim intLetzteZeile As Integer
Dim i As Long
With Worksheets("Tabelle1")
intLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
For i = intLetzteZeile To 1 Step -1
Set rngZelle = Rows(i)
If WorksheetFunction.CountIf(rngZelle, "n.a.") > 0 Then
rngZelle.EntireRow.Delete
End If
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

someguy · 6. September 2013

Ein Danke an HS(V), er hat eine funktionierende Lösung bereitgestellt.
Thema hat sich erledigt. *Smilie

(Lustigerweise schien wohl jede Zeile ein "n.a." zu beinhalten... Code ist aber einwandfrei, habe ihn an einem anderen Beispiel erfolgreich getestet.)

Office: (Office 2010) Zeilen mit bestimmten Werten löschen

Zeilen mit bestimmten Werten löschen

Zeilen mit bestimmten Werten löschen

Zeilen mit bestimmten Werten löschen

Zeilen mit bestimmten Werten löschen - Similar Threads - Zeilen bestimmten Werten

Wenn in Zeile bestimmter Wert dann ganze Zelle kopieren

Zeilen mit bestimmten Wert in andere Tabelle (VBA Makro)

Werte in einer bestimmten Zeile einer Tabelle zählen

Zeile ausblenden anhand bestimmter Werte

Zeilen aus Tabelle mit bestimmten Wert in verschiedene Tabellenblätter sortieren

Zeile ausblenden wenn bestimmter Wert in Spalte

Zeilen mit bestimmten Werten selektieren