übergabeEinerVariablenAnRange
05.07.2002 14:32:40
Stefan Preisler
ich muss jetzt nur noch erreichen das der wert zellenzahl an das "range" übergeben wird. oder muss ich einen anderen befehl als "range" verwenden?
"Sub test()
'
' test Makro
'
zellenzahl = InputBox("geben sie die Zeilenanzahl ein: ", zellenzahl)
'
ActiveSheet.Unprotect
Worksheets("spares for switching").Range("zellenzahl").Select
Selection.EntireRow.Insert
ActiveWindow.SmallScroll ToRight:=2
Range("H15").Select
Selection.AutoFill Destination:=Range("H11:H15"), Type:=xlFillDefault
Range("H11:H15").Select
Range("F15").Select
Selection.AutoFill Destination:=Range("F11:F15"), Type:=xlFillDefault
Range("F11:F15").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub"
Anzeige