Thema Datum  Von Nutzer Rating
Antwort
11.02.2025 13:40:29 Peter
NotSolved
11.02.2025 23:52:20 Gast26673
NotSolved
12.02.2025 13:40:32 Peter
NotSolved
12.02.2025 14:01:09 Gast38528
NotSolved
Rot VBA: Währung umrechnen ohne Zelle zu brauchen
 12.02.2025 23:10:01 Gast45268
NotSolved
13.02.2025 06:54:46 Peter
NotSolved
13.02.2025 07:16:48 ralf_b
Solved
13.02.2025 09:13:30 Peter
Solved
13.02.2025 22:49:47 xlKing
NotSolved
14.02.2025 10:23:07 Peter
NotSolved

Ansicht des Beitrags:
Von:
Gast45268		 Datum:
12.02.2025 23:10:01		 Views:
24		 Rating:
     
Antwort:
  Ja
Thema:
VBA: Währung umrechnen ohne Zelle zu brauchen

Versuch mal das:

Sub TestExchangeRate()
    Dim rate As Double
    rate = GetExchangeRate("USD", "EUR")
    MsgBox "Der Wechselkurs von USD zu EUR ist: " & rate
End Sub

Function GetExchangeRate(fromCurrency As String, toCurrency As String) As Double
    Dim ws As Worksheet
    Dim tempCell As Range
    Dim EXR As Double
 
    set ws = activesheet

    ' Währungspaar in eine Zelle schreiben und konvertieren
    Set tempCell = ws.range("A1")
    tempCell.Value = fromCurrency & "/" & toCurrency
    tempCell.ConvertToLinkedDataType ServiceID:=268435456, LanguageCulture:="en-US"

    ' Den Wechselkurs abrufen
    On Error Resume Next
    EXR = Evaluate("=A1.[Price]")

    ' Falls kein gültiger Wert abgerufen wurde
    If Err.Number <> 0 Then
        EXR = -1 ' Fehlerwert setzen
    End If
    On Error GoTo 0

    ws.Cells.Clear

    ' Ergebnis zurückgeben
    GetExchangeRate = EXR
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2025 13:40:29 Peter
NotSolved
11.02.2025 23:52:20 Gast26673
NotSolved
12.02.2025 13:40:32 Peter
NotSolved
12.02.2025 14:01:09 Gast38528
NotSolved
Rot VBA: Währung umrechnen ohne Zelle zu brauchen
 12.02.2025 23:10:01 Gast45268
NotSolved
13.02.2025 06:54:46 Peter
NotSolved
13.02.2025 07:16:48 ralf_b
Solved
13.02.2025 09:13:30 Peter
Solved
13.02.2025 22:49:47 xlKing
NotSolved
14.02.2025 10:23:07 Peter
NotSolved