VBA-Programmierung in Microsoft Excel

Zahlen unter Berücksichtigung von Monat und Jahr summieren

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

    

Beiträge aus dem Excel-Forum zu den Themen Matrix und Matrixfunktion