Makro für Umwertung von Arbeitsblättern
16.05.2006 17:54:35
Arbeitsblättern
ich habe eine Arbeitsmappe mit ca 60 sheets, die für einen SAP Excel-upload verwendet werden. Ich möchte diese nun mit x Prozent umwerten. Ausserdem soll der Bereich in dem die Zahlen stehen flexibel flexibel über eine Varable definierbar sein. Ich habe hier mal einen Beispiel-code (der auch eher unvollkommen ist). Dieser bleibt aber immer bei rng.Select hängen, kann mir mal bitte jemand auf die Sprünge helfen?
Sub AbwertungTest()
'
' AbwertungProz Makro
' Wertet die Tabellen um x% ab
'
'
Dim ws As Worksheet
Dim iPerc As Double
Dim rng As Range
iPerc = InputBox("Umwertung auf wieviel % angeben")
Set rng = Application.InputBox("Bitte einen Bereich zum Umwerten:", Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.Activate
Range("K5").Select
ActiveCell.FormulaR1C1 = iPerc
Selection.Copy
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("K5").Select
Selection.ClearContents
Next
End Sub