Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion verfügbar machen
 19.03.2007 11:11:16 Michael
NotSolved
19.03.2007 11:44:52 Rasta
NotSolved
20.03.2007 11:36:03 Michael
NotSolved
26.03.2007 10:06:30 rasta
NotSolved
20.03.2007 12:09:51 Michael
NotSolved

Ansicht des Beitrags:
Von:
Michael		 Datum:
19.03.2007 11:11:16		 Views:
2600		 Rating:
     
Antwort:
  Ja
Thema:
Funktion verfügbar machen
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.

Wie muss ich vorgehen?

Vielen Dank im Vorraus

MFG
Michael

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
Rot Funktion verfügbar machen
 19.03.2007 11:11:16 Michael
NotSolved
19.03.2007 11:44:52 Rasta
NotSolved
20.03.2007 11:36:03 Michael
NotSolved
26.03.2007 10:06:30 rasta
NotSolved
20.03.2007 12:09:51 Michael
NotSolved