Dll mit VBA einbinden

[OasisCritter]

Hallo,

ich weis es gibt ein ähnlichen Thread hier:

http://www.tutorials.de/forum/visual-basic-6-0/164095-externe-dll-unter-vba-excel-einbinden.html

aber der hilft mir irgendwie nicht weiter.

Ich möchte eine .dll erstellen, welche ich dann über Verweise in Excel-Vba einbinde.

Die Excel-Datei ist im Anhang, mit der entsprechenden UserForm zu der, der Code in der .dll passt.

Hier ist der Code, welcher in der .dll steht:

'Private Declare Function EBK Lib "C:\Project1.dll" () As Long 


'#---EBK erfassen 
Private Sub BSFerfassen_Click() 

Dim EK 
Dim PS 
Dim sonstRueck 
Dim Verb 
Dim grund 
Dim TAM 
Dim andAnlagen 
Dim Roh 
Dim Betrieb 
Dim Hilfsstoffe 
Dim Kasse 
Dim Bank 
Dim Forderungen 
Dim fertErzeugnisse 
Dim unfertErzeugnisse 

EK = Val(UserForm1.Eigenkapital) 
PS = Val(UserForm1.Pension) 
sonstRueck = Val(UserForm1.sonstRueck) 
Verb = Val(UserForm1.Verbindlichkeiten) 
grund = Val(UserForm1.Grundstuecke) 
TAM = Val(UserForm1.TAM) 
andAnlagen = Val(UserForm1.andereAnlagen) 
Roh = Val(UserForm1.Rohstoffe) 
Betrieb = Val(UserForm1.Betriebsstoffe) 
Hilfsstoffe = Val(UserForm1.Hilfsstoffe) 
Kasse = Val(UserForm1.Kasse) 
Bank = Val(UserForm1.Bank) 
Forderungen = Val(UserForm1.Forderungen) 
fertErzeugnisse = Val(UserForm1.fertErzeugnisse) 
unfertErzeugnisse = Val(UserForm1.unfertErzeugnisse) 

'######### 

If EK > 0 Then 
ThisWorkbook.Sheets("EBK").Range("C7") = EK 
End If 

If PS <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("C12") = PS 
End If 

If sonstRueck <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("C13") = sonstRueck 
End If 

If Verb <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("C15") = Verb 
End If 

If grund <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E9") = grund 
End If 

If TAM <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E10") = TAM 
End If 

If andAnlagen <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E11") = andAnlagen 
End If 

If Roh <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E15") = Roh 
End If 

If Betrieb <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E16") = Betrieb 
End If 

If Hilfsstoffe <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E17") = Hilfsstoffe 
End If 

If Kasse <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E18") = Kasse 
End If 

If Bank <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E19") = Bank 
End If 

If Forderungen <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E20") = Forderungen 
End If 

If fertErzeugnisse <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E21") = fertErzeugnisse 
End If 

If unfertErzeugnisse <> 0 Then 
ThisWorkbook.Sheets("EBK").Range("E22") = unfertErzeugnisse 
End If 
End Sub

MfG