VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zahlungsfrist prüfen

Gruppe

Funktion

Bereich

WENN

Thema

Zahlungsfrist prüfen

Problem

Die Formel in Spalte E soll ermitteln, ob eine Zahlungsfrist überschritten wurden und wenn ja, wie lange.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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 Funktion und WENN