Löschen
12.01.2007 06:39:25
Peter
ich hab da ein Makro mit dem ich bestimmte bereiche in einem Blatt löschen kann.
Ist es möglich den Code so zu ändern das in mehrere Blätern der gleiche Bereich gelöscht wird? Bitte um Hilfe !!!!
Gruß Peter :-))
Hier der Code:
Sub Entf_Tipps()
Range("AI9").Select
ActiveWindow.SmallScroll Down:=3
Range( _
"AI9,X9:X28,V9:V28,T9:T28,R9:R28,P9:P28,N9:N28,L9:L28,J9:J28,H9:H28,F9:F28,E9:E28" _
).Select
Range("E9").Activate
Selection.ClearContents
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-21
Range("D1").Select
End Sub