|
|
|
Thema:
|
Wenn Sie häufig Was-Wäre-Wenn-Kalkulationen
mit Excel durchführen, ändern Sie häufig mehrere Zellinhalte um
einen bestimmten Faktor. So wollen Sie vielleicht feststellen, wie es
um Ihren Gewinn bestellt ist, wenn sich die Kosten um 10% erhöhen
oder wenn Sie die Preise um 5% senken. Anstatt in so einem Fall jeden
Wert manuell anzupassen, sollten Sie statt dessen die VBA-Prozedur aus
dem folgenden Listing verwenden.
Sub BereichMulti()
Faktor = InputBox("Bitte geben Sie den Wert ein,
" & _
"mit dem die Inhalte der markierten Zellen "
& _
"multipliziert werden sollen:", _
"Zellen multiplizieren")
If Faktor = "" Then GoTo Ende
For Each Zelle In Selection
Zelle.Value = Zelle.Value * Faktor
Next
Ende:
End Sub
Nach der Eingabe des Makros markieren Sie dann einfach die Zellen,
deren Inhalte Sie mit einer Konstante multiplizieren wollen. Anschliessend
starten Sie das Makro, geben die Konstante ein und bestätigen mit OK.
Jede Zelle im markierten Bereich wird daraufhin mit dem gewünschten
Wert multipliziert.
|
|
