PDA

Vollständige Version anzeigen : Preisänderung, Werte aus Inputbox


b.rohr
19.02.2008, 16:45
Hallo die Spezialisten,

mit folgendem Makro ändere ich Werte in zuvor markierten Zellen.

Sub Korrektur()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
Zelle.Value = Application.WorksheetFunction.Round(Zelle.Value * Range("J3"), 2)
End If
Next
End Sub

Funktioniert tadellos - ist ja auch nicht von mir;)

Gibt es die Möglichkeiten bei ausführen des Makros über eine Inputbox/Abfrage:
- den Wert aus Zelle J3 einzutragen?
- eine Auswahlmöglichkeit ob multipliziert oder dividiert werden soll?
- die Anzahl der Stellen auf die gerundet wird (0-2) einzustellen?

Ich hoffe das ist nicht zu unverschämt:entsetzt:
Bin für jeden Tip dankbar.

Gruß Bernhard

Sebastian Schulz
19.02.2008, 17:13
Hallo Bernhard,

vll. kannst du ja folgendes kleins Beispiel als Ausgangsbasis nehmen.

Grüße

b.rohr
19.02.2008, 18:16
Hallo Sebastian,

Ausgangsbasis?
Sieht sehr nach der Lösung aus. Vielen Dank.

Ich bin immer wieder überrascht wie schnell und kompetent geantwortet wird.
Habt Ihr nichts anderes zu tun als Euch mit den Problemen Anderer zu beschäftigen? ;) .

Grüße Bernhard