Hallo

wie die Meisten habe ich ein Problem mit Excel oder besser gesagt mit VBA. Ich bin noch blutiger Anfänger.

Ich arbeit in einem Ingenieurbüro für kältetechnische Anlagen. Für wiederkehrende Berechnungen hab ich mir bereits einige Berechnungstools gebastelt. Diese bestanden hauptsächlich aus Zellenverknüpfungen und ein paar einfachen Makros.

Um für die Berechnung von Gaszuständen wie z..B bei Ammoniak den Druck und die Temperatur usw. zu berechnen gibt es einige Add inn´s die man verwenden kann. So weit so gut.

Nun hat mir mein Chef ein Berechnungstool gegeben, das auf eine dieser Add inn´s / Stoffdatenbank zugreift. Diese Datenbank ist von NIST und heißt REFPROP. Leider bekomme ich das Programm nicht zum laufen obwohl ich den korrekten Pfad der Datenbank hinterlegt habe. Es wir immer der Laufzeitfehler 453: DLL-Einsprungpunkt rp_setup in NISTRefprop.dll nicht gefunden angezeit. Leider hab ich keine Ahnung was das rp_Setup zu bedeuten hat. Ich hoffe das ihr mir helfen könnt. Viele Grüße Stefan

'Laden und Grenzen:
Sub KMLaden()
    Dim i As Integer
    Dim nc As Long
    Dim hfmix As String * 80
    Dim hrf As String * 3
    Dim ierr As Long
    Dim herr As String * 255
    Dim htyp As String * 3
    Dim t As Double, D As Double, p As Double, _
        tmin As Double, tmax As Double, pmax As Double, h As Double
    Dim kph As Long
    Dim herr1 As String * 255
    Sheets("KM").Select
    Range("C10").Value = "bitte warten !"
    For i = 1 To 5
        hfiles(i) = Cells(4, i + 24).Value
        z(i) = Cells(2, 29 + i).Value
    Next i
    For i = 1 To 21
        K(i) = Cells(2, i + 34).Value
    Next i
    nc = K(1)
    hfmix = Range("I3").Value
    hrf = "IIR"
    herr = " "
    rp_setup nc, hfiles(), hfmix, hrf, ierr, herr
    Range("a29").Value = " "
    Range("a28").Value = Range("I1").Value
    If Abs(ierr) > 0 Then
           Range("a29").Value = herr
    End If
    Range("C31").Value = K(7)
    Range("C10").Value = " "
    Range("A1").Select

End Sub