Vereinfachung eines Makros
Holger
ich bringe mir ein wenig VBA bei. Deswegen würde ich derne einmal wissen, wie Ihr das unten stehenden Makro vereinfachen würdet.
Sub Bestand()
' Bestand Makro
' Makro am 02.05.2010 erstellt
Sheets("Bestandsübersicht").Select
ActiveSheet.Unprotect
Sheets("Inventar").Select
Range("p1").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("l1").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("A10:Y110").Select
Selection.AutoFilter Field:=2, Criteria1:=""
Range("A15:G110").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("A14").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("N15:Y110").Select
Selection.Copy
Sheets("Bestandsübersicht").Select
Range("H14").Select
ActiveSheet.Paste
Sheets("Inventar").Select
Range("A8").Select
Selection.AutoFilter
Range("P1").Select
Sheets("Bestandsübersicht").Select
Range("a1").Select
ActiveSheet.Protect
End Sub
Vielen Dank!Schöne Grüße
Holger