Gruppe
Allgemein
Problem
Wie kann ich Zahlen in einem vorgegebenen Bereich in Abhängigkeit ihres Wertes mit anderen Zahlen multiplizieren?
StandardModule: basMain
Sub Berechnung()
Dim rngAct As Range
For Each rngAct In ActiveSheet.UsedRange
Select Case CStr(rngAct.Value)
Case "1"
rngAct = rngAct * 12
Case "3"
rngAct = rngAct * 8
Case "4"
rngAct = rngAct * 6
End Select
Next rngAct
End Sub