Hallo,
ich habe folgendes Problem:
ich habe eine Funktion die mir einen EAN-Code anhand einer Artikelnummer ausrechnet:
Public
Function EANCODE(strCode As String)
Dim intI As Integer
Dim intGer As Integer, intUng As Integer
For intI = 1 To 12
strCodeK = "4016598" & strCode
If intI Mod 2 = 0 Then
intGer = intGer + Val(Mid(strCodeK, intI, 1))
Else
intUng = intUng + Val(Mid(strCodeK, intI, 1))
End If
Next
If (intGer * 3 + intUng) Mod 10 = 0 Then
PZ = 0
Else
PZ = 10 - (intGer * 3 + intUng) Mod 10
End If
EANCODE = 4016598 & strCode & PZ
End Function
die Funktion funktioniert auch tadellos! Jedoch möchte ich sie in jeder Excel Tabelle verwenden können. Ich habe sie auch in der PERSNL.XLS abgelegt, die auch im Hintergrund geöffnet wird, kann die Funtion jedoch nicht in anderen Arbeitsmappen verwenden.
Es funktioniert nur wenn ich in der andren datei dann auf das modul der persnl.xls verweise, das hilft mir aber nicht wirklich weiter, ich möchte ja dass die funktion immer zur verfügung steht, als onicht dass ich jedesmal auf irgendetwas verweisen muss oder etwas einfügen muss.
Gibt es eine Möglichkeit?
Vielen Dank im Vorraus
Gruß
Michael