gefilterte Spalten löschen
25.03.2019 10:33:27
Okan
ich habe folgendes Anliegen.
Ich würde gerne die gelilterten Datensätze in ein anderes Tabellenblatt kopieren und die aus der Stammtabelle löschen.
Beim aufzeichnen der Arbeitsabläufe wurde mir u.a. nach leichter bearbeitung folgendes als Makro vorgeschlagen:
Sub DATEN()
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("1:1,3:3").Select
Range("A3").Activate
Selection.Delete Shift:=xlUp
Range("A1:I1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$5507").AutoFilter Field:=2, Criteria1:="101263"
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Ort"
Sheets("Stammdaten").Select
Rows("145:5337").Select 'kritisch muss Variabel sein / Alle Datensätze welche offen sind lö _
schen
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$I$5465").AutoFilter Field:=2
ActiveSheet.Range("$A$1:$I$5465").AutoFilter Field:=1, Criteria1:= _
"Anzeige