ich würde gern die Zelleninhalte für markierten Zellenbereich per VBA mit 4 multiplizieren. Wie mache ich das?
Vielen Dank im Voraus...
Liebe Grüße
SELMA
Sub Makro3()
' Makro3 Makro
' Makro am 18.10.2005 von SELMA aufgezeichnet
Range("O518:O533").Select
ActiveCell.FormulaR1C1 = "2527*4"
Range("P523").Select
End Sub
Sub Mal4()
Dim c As Range
For Each c In Selection
c = c * 4
Next
End Sub
Sub Multiplikation()
Dim °MULTI%
Dim °BEREICH As Range, °ZELLE As Range
Set °BEREICH = Application.InputBox("Bereich markieren!", Type:=8)
°MULTI = InputBox("Mit wieviel soll multipliziert werden?", "Multiplikation", 0)
For Each °ZELLE In °BEREICH
°ZELLE = °ZELLE * °MULTI
Next
End Sub