Hallo Forumsgemeinde,

ich bin absoluter Nichtfachmann bei der Anwendung von Excel-Makros.

Mein Problem: Ich habe von einer Entwicklerseite die Software "Alkoholtafel" heruntergeladen, entpackt und installiert. Die Ergebnisausgabe soll über die Einbindung eines Makros möglich sein. Die Installationsroutine hat die Datei "Tafel.dll" ins Windows-Verzeichnis kopiert. Im Programmverzeichnis liegt die Datei "AlkTafel.bas", welche den Code für die erforderlichen Deklarationen enthält.

Nach Import der "AlkTafel.bas" in den VB-Editor wird der gesamte Code angezeigt. Nach "Ausführen" kommen nur Fehlermeldungen. Hier komme ich nicht weiter.

Gerne maile ich Ihnen auch noch die Datei "Tafel.dll", damit Sie selbst das Programm zum "Funktionieren" bringen (Email-Adresse ?).

Bei erfolgreicher Rückmeldung bedanke ich mich gerne mit Zusendung einer Flasche "Williams-International prämiert".

Im Folgenden der Inhalt der Datei "AlkTafel.bas":

'----------------------------------
' Alkoholtafel - Funktionen
' Verbindung zur Tafel.dll (sollte im Suchpfad zu finden sein,
' normalerweise im Windows-Verzeichnis....

Public Declare Function Tafel2 Lib "tafel.dll" (ByVal VolProz As Double) As Double
Public Declare Function Tafel3 Lib "tafel.dll" (ByVal VolProz As Double, ByVal Temperatur As Double) As Double
Public Declare Function Tafel4 Lib "tafel.dll" (ByVal VolProz As Double) As Double
Public Declare Function Tafel5 Lib "tafel.dll" (ByVal MasProz As Double) As Double
Public Declare Function Tafel6 Lib "tafel.dll" (ByVal Dichte As Double, ByVal Temperatur As Double) As Double
Public Declare Function Dichte Lib "tafel.dll" (ByVal VolProz As Double, ByVal Temperatur As Double) As Double

Public Declare Function Litergewicht Lib "tafel.dll" (ByVal VolProz As Double) As Double
Private Declare Function Version Lib "tafel.dll" () As Long
Private Declare Function Revision Lib "tafel.dll" () As Long

Public Function TafelVersion() As String
 TafelVersion = "Tafel.dll Version " & Version() & Revision()
End Function