AW: Eingabebox ?
31.03.2005 20:31:17
Oberschlumpf
Hallo Jürgen
Ich wollt Dir schon von nem Kumpel antworten, bei dem ich war, und der zufällig das gleiche Problem mit meiner Excel-Datei hatte :-)
Aber als ich fast fertig war mit antworten, stürzte der olle PC ab...so n shit
Nun hoffe ich, dass ich die Lösung noch einigermaßen hinbekomme.
Die Fehlermeldung, wegen "Projekt oder Bibliothek nicht gefunden", kommt daher, weil ein bestimmter Verweis im VBA-Code nicht gesetzt wurde.
Und dieser Verweis wurde nicht gesetzt, weil die dazu notwendige Datei nicht auf Deinem PC ist.
Öffne mit ALT-F11 in Excel den VBA-Editor und klicke auf Extras/Verweise
Da sollten dann die vorhanden Dateien (Verweise aktiviert sein mit Haken davor)
Vei einer Auswahl wird direkt neben dem Haken stehen: "fehlt" oder so was in der Art.
Und direkt unter diesem Auswahlfenster steht zu jedem Eintrag, den Du mit der Maus anklickst (blau hinterlegt) der Pfad und Dateiname der DAtei, um die es sich jeweils handelt.
Bei der DAtei, die bei Dir (noch) fehlt, müsste es sich, wenn ich mich recht erinnere, um die Datei
MSCOMCT2.OCX
handeln.
Downloaden kannst Du die datei hier:
http://www.magente.com/m/CServ/cp.asp (die Datei in der Mitte)
Diese Datei speicherst Du dann in dieses Verzeichnis:
LW:\%windir%\System32
LW = das Laufwerk, auf dem bei Dir Windows installiert ist (oft C:\)
%system% = steht für das Verzeichnis, in dem Windows installiert ist (oft WINDOWS)
Soo...wenn Du das gemacht hast, dann sollte die Exceldatei fast funktionieren.
Ein weiteres Problem, welches bei meinem Kumpel auftrat, war ein bestimmter Code-Block.
dieser hier:
Range("A1:A49").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
such diesen bitte, und ändere ihn um wie folgt:
Range("A1:A49").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dieser Fehler tritt bei meinem Kumpel auf, weil er das Bestriebssystem Windows Millenium installiert hat. Auf meinem PC ist Windows XP.
Wenn also bei Dir auch entweder Win Millenium oder Win 98 ist, dann ändere bitte diesen Code.
Wenn Du auch Win XP hast, dann sollte die Codeänderung nicht erforderlich sein.
Nach dieser Änderung konnte ich jedenfalls meinem Kumpel die Datei "vorführen" :-)
Sooooo...bin fertig :-)
Und? Läufts? :-)
Ciao
Thorsten