Ankündigung

Einklappen
Keine Ankündigung bisher.

Euro Umrechner - vba in excel

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Euro Umrechner - vba in excel

    Hallo
    bin was kleines am testen...was ist hier der fehler

    Option ExplicitFunction Euroumrechner(EuroBetrag, Optional Sonderkurs) Dim Kurs, Kurs1, Kurs2, Kurs3, Kurs4 Dim CHFBetrag Kurs1 = 1.58Kurs2 = 1.55Kurs3 = 1.5Kurs4 = 1.47 If IsMissing(Sonderkurs) Then Select Case EuroBetrag Case Is < 500 CHFBetrag = EuroBetrag * Kurs1 Case Is < 1000 CHFBetrag = EuroBetrag * Kurs2 Case Is < 2500 CHFBetrag = EuroBetrag * Kurs3 Case Is >= 2500 CHFBetrag = EuroBetrag * Kurs4End SelectEuroumrechner = Round(CHFBetrag / 5, 2) * 5End Function


    gruss
    __________________________
    l'important, c'est pas la chute, c'est l'atterrissage!

  • #2
    Die Darstellung?
    Da ich mich in VBA nix die Bohne auskenne kann ich Dir leider keine Antwort geben.

    grz zer00

    Kommentar


    • #3
      Ich habe den Code mal im VBA-Editor unter Excel eingegeben, ich hatte immer eine Fehlermeldung bei der Var CHFBetrag, kann dir aber leider immer noch nicht sagen an was dass liegt.
      Nach VBA-Hilfe stimmt die Syntax der case Ausdrücke.


      grz zer00

      Kommentar


      • #4
        thx

        merci...dann pröble ich man noch ein bisschen...:-)
        __________________________
        l'important, c'est pas la chute, c'est l'atterrissage!

        Kommentar


        • #5
          Hallo icone

          Der Fehler liegt bei der nicht geschlossenen If anweisung:
          Korrektes Schema einer IF-Anweisung:
          Code:
          If (Bedingung) then
              'Anweisung
          else
             'Andere Anweisung
          end if
          Hier der Code, mit Sonderkurs:

          Code:
          Option Explicit
          Function Euroumrechner(EuroBetrag, Optional Sonderkurs)
          
              Dim Kurs, Kurs1, Kurs2, Kurs3, Kurs4
              Dim CHFBetrag
              
              Kurs1 = 1.58
              Kurs2 = 1.55
              Kurs3 = 1.5
              Kurs4 = 1.47
              
              If IsMissing(Sonderkurs) Then
                  Select Case EuroBetrag
                      
                  Case Is < 500: CHFBetrag = EuroBetrag * Kurs1
                  Case Is < 1000: CHFBetrag = EuroBetrag * Kurs2
                  Case Is < 2500: CHFBetrag = EuroBetrag * Kurs3
                  Case Is >= 2500: CHFBetrag = EuroBetrag * Kurs4
                  
                  End Select
              Else    
                  'Spezialkurs
                  CHFBetrag = EuroBetrag * Sonderkurs
              End If
              
              Euroumrechner = Round(CHFBetrag / 5, 2) * 5
              
          End Function
          Bei mir (WinXP + Office 2003) funktionierts.

          Gruss Michi

          Kommentar

          Lädt...
          X