Habe im Macro folgenden Code:
ActiveSheet.Unprotect
ActiveWorkbook.Save
'selektiere alle nichtleeren Zellen in Spalte "K"
Selection.AutoFilter Field:=11, Criteria1:=""
Rows("2:200").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"S:\Leitz Anwendungen\Kaindl\Gelieferte Positionen\Geliefert_" & _
Mein erstes Problem ist dass ich nicht sicher bin ob die Autofilter Selection mit Rows ("2:200") zum Kopieren markieren richtig ist. Die Zeilenahzahl ist immer unterschiedlich und ich gebe immer Rows("2:200") vor, das ist die Gesamtzahl der Zeilen in dieser Arbeitsmappe.
Mein zweites Problem ist ich hätte gerne eine MsgBox in der mir vor dem Kopieren die Anzahl der Zeilen ausgegeben wird. Wie ist das möglich.
Danke für Eure Hilfe
Gerhard