Gruppe
Funktion
Problem
Die Formel in Spalte E soll ermitteln, ob eine Zahlungsfrist überschritten wurden und wenn ja, wie lange.
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