Supportnet / Forum / Tabellenkalkulation
Zeilen per Makro löschen
Frage
Folgendes:
In einer Exceltabelle sollen automatisch alle Zeilen gelöscht werden, bei denen in Spalte B eine 0 (Null) steht.
Allerdings hab ich kein Plan von VBA. Wie müsste denn so ein Makro aussehen?
Gruss
Firestarter
Antwort 1 von Aliba
Hi Firestarter,
bin auch kein VB-Spezialist, aber wenn ich ein Marko mit dem Rekorder aufzeichne, das das Gewünschte tut, kommt folgendes heraus:
Sub Makro1()
'
' Makro1 Makro
'
'
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
Rows("2:500").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
Range("A1").Select
End Sub
CU Aliba
bin auch kein VB-Spezialist, aber wenn ich ein Marko mit dem Rekorder aufzeichne, das das Gewünschte tut, kommt folgendes heraus:
Sub Makro1()
'
' Makro1 Makro
'
'
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="0"
Rows("2:500").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
Range("A1").Select
End Sub
CU Aliba
Antwort 2 von Firestarter
Danke, aber ich habs inzwischen gottseidank geschafft mir selbst ein Makro zusammenzuschustern.
Gruss
Firestarter
Gruss
Firestarter