Gruppe
Matrix
Problem
Die Einträge zu einem jeweiligen Monat im Bereich A1:A100 sollen unter Berücksichtigung des Jahres gezählt werden.
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