vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Skript (VBS)
Excel 2000 - Excel 2007 lib check32.dll pfad ändern 
Autor: Dikey
Datum: 11.08.09 15:50
Hallo zusammen,

schon mal vielen Dank für jede antwort die mich weiterbringt.

Wir benutzen Citrix, wobei ich denke das es bei meinem Problem keine Rolle spielt.

Wir steigen zur Zeit von Excel 2000 auf Excel 2007 um.
Dabei ist uns bei einer Exceldatei ein Fehler aufgefallen.
In dieser Excelmappe wird eine Prüfsumme für einen Barcode errechnet.

Das modul das geschrieben wurde lautet Checksum von der Firma plexis oHG: 

 
Declare Function Calc Lib "check32.dll" (ByVal code As Long, ByVal sNutz As _
  String, ByVal sGesamt As String, ByVal nCount As Long) As Long
 
  Rem (c) 2002 plexis oHG. Alle Rechte vorbehalten!
 
  Function Checksum(ByVal nType As Integer, ByVal sNutz As String)
      Dim Gesamt As String * 100
 
      dummy = Calc(nType, sNutz, Gesamt, Len(sNutz))
      Checksum = Gesamt
  End Function
 
 
  Rem (c) 2002 plexis oHG. Alle Rechte vorbehalten!
aufgerufen wird die funktion so:
=WENN(TABELLE1!B1="";"";DATEINAME.xls!Checksum.checksum(5;C5))

Soweit ich rausgefunden habe liegt das Problem in der Libary check32.dll
Diese Libary existiert auf dem neuen System nicht.
Ich versuche nun den Pfad auf diese Libary zu ändern.
Leider bin ich bis dato gescheitert.

Dazu kommt das ich von VBA keine Ahnung habe.
Programmierkenntnisse sind jedoch vorhanden.

Mein letzter Versuch sah so aus: 

 Declare Function Calc Lib "e: \check32.dll" (ByVal code As Long, ByVal _
   sNutz As String, ByVal sGesamt As String, ByVal nCount As Long) As Long
 
  Rem (c) 2002 plexis oHG. Alle Rechte vorbehalten!
 
  Function Checksum(ByVal nType As Integer, ByVal sNutz As String)
      Dim Gesamt As String * 100
 
      dummy = Calc(nType, sNutz, Gesamt, Len(sNutz))
      Checksum = Gesamt
  End Function
 
 
  Rem (c) 2002 plexis oHG. Alle Rechte vorbehalten!
Ich hoff einer von euch kann mir weiterhelfen.

Vielen Dank

Dikey
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Excel 2000 - Excel 2007 lib check32.dll pfad ändern4.499Dikey11.08.09 15:50
Re: Excel 2000 - Excel 2007 lib check32.dll pfad ändern2.318Dikey12.08.09 09:13

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel