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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen