Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zahlen in Abhängigkeit von ihrem Wert multiplizieren

Gruppe

Berechnen

Problem

Wie kann ich Zahlen in einem vorgegebenen Bereich in Abhängigkeit ihres Wertes mit anderen Zahlen multiplizieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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