VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zahlen in Abhängigkeit von ihrem Wert multiplizieren

Gruppe

Allgemein

Bereich

Berechnen

Thema

Zahlen in Abhängigkeit von ihrem Wert multiplizieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen