Thema Datum  Von Nutzer Rating
Antwort
31.05.2017 16:55:07 Sebo
NotSolved
Blau Umrechnungskurs in Excel
 05.06.2017 18:47:39 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
05.06.2017 18:47:39		 Views:
605		 Rating:
     
Antwort:
  Ja
Thema:
Umrechnungskurs in Excel

Hallo,

wenn in einer Excel-Tabelle die Kurse in dieser Form ...

Datum Währung Kurs
01.04.2016 NL 1,46 €
02.04.2016 NL 1,33 €

... vorhanden und mit einem Namen "Kurse" benannt wurden sind, dann können die Werte mit diesem Code ausgelesen werden:

Function ReadDB(datDate As Date, Money As String) As Double
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strFile As String, strCon As String, strSQL As String
    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    cn.Open strCon

    strSQL = "SELECT TOP 1 Kurs FROM Kurse where Datum = " & CLng(datDate) & " and Währung = """ & Money & """"
    
    rs.Open strSQL, cn
    
    ReadDB = rs.GetString
    
End Function

Sub Abfrage()
    Dim dat As Date
    dat = DateValue("1.4.2016")
    Debug.Print ReadDB(dat, "NL")
End Sub

Voraussetzung: Im VBA-Editor muss ein Verweis zur "Microsoft ActiveX Data Objects Library" vorhanden sein.

Der Code stammt ursprünglich von dieser Webseite und wurde etwas angepasst.

LG, BigBen

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
31.05.2017 16:55:07 Sebo
NotSolved
Blau Umrechnungskurs in Excel
 05.06.2017 18:47:39 BigBen
NotSolved