ich habe folgenden VBA Code, welcher es mir ermöglicht, markierte Zellen mit dem Faktor, den ich weiter unten angebe (Beispiel: 0,9 - fett gedruckt), multipliziere. Ich möchte den Faktor aber nicht fest hinterlegen, sondern der Benutzer soll durch eine Msgbox oder Inputbox den Faktor selbst hinterlegen können.
Wie mache ich das? Kann ich den u.g. Code entsprechend erweitern?
Sub Planungumrechnen()
Dim Zelle As Range
Dim Ausgangswert As Double
Dim Zielwert As Double
Dim ZeilenAnzahl As Integer
Dim Bereich As String
Bereich = Selection.Address
ZeilenAnzahl = Selection.Rows.Count
On Error GoTo Ausstieg_wegen_Fehler 'zusammengesetzte
' Bereiche wuerden zu einer Fehlermeldung fuehrern
For Each Zelle In Selection
Ausgangswert = Zelle.Value
Zielwert = Application.WorksheetFunction.Round _
(Ausgangswert * 0.9, 0) 'Multiplikator 0 = Rundung
Zelle.Value = Zielwert
Zelle.Interior.ColorIndex = 27
Next Zelle
Range(Bereich).Resize(1, 1).Select
Selection.Offset(ZeilenAnzahl, 0).Select
Ausstieg_wegen_Fehler:
End Sub
Danke und Grüße,
Michael