Excel 2000 Vba Tester gesucht

Reinhard_fb8cb7 · 18. September 2011 um 08:38

Hallo Interessierte,

es geht um den obersten der nachfolgenden Codes, In Excel 2000 gestartet steigt Excel komplett aus nach der Msgbox
Es kommt dann diese nette Meldung von Win mit Fehlerbericht senden usw.
Der Code steht in einer Userform und wird mit einem Commandbutton auf der UF gestartet, die Uf wird gestartet mit einer Schaltfläche auf dem Tabellenblatt, hier die Datei:

http://www.uploadagent.de/show-177673-1316327796.html

In meinem XL 2007 läuft der Code problemlos. Ein anderer hat es mit XL 2003 getestet, da läuft er auch.

Jetzt habe ich nur noch die einzigste Frage, läuft er in meinem XL 2000 nicht oder generell nicht in XL 2000?

(Beim zweiten Code ist es genauso)

Danke ^ Gruß
Reinhard

Option Explicit

Private Sub Neuer\_Monat\_Click()
Dim Dateiname As String, Endung As String
Application.DisplayAlerts = False
Application.EnableEvents = False
Unload Konfig
Endung = Mid(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
Dateiname = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
ThisWorkbook.SaveCopyAs Dateiname & Format(Date, "yyyy-mm-dd") & Endung
If Dir(ThisWorkbook.Path & "\" & "NeueMappex" & Endung) "" Then
 Kill ThisWorkbook.Path & "\" & "NeueMappex" & Endung
End If
MsgBox "-" & ThisWorkbook.Path & "\" & "NeueMappex" & Endung & "-"
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & "NeueMappex" & Endung
'Workbooks.Open ThisWorkbook.Path & "\" & "NeueMappex" & Endung
End Sub




Private Sub Neuer\_Monat\_Click()
 Dim Dateiname As String, Endung As String
 Application.EnableEvents = False
 Me.Hide
 Endung = Mid(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "."))
 Dateiname = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
 Dateiname = Dateiname & Format(Date, "yyyy-mm-dd") & Endung
 ThisWorkbook.SaveCopyAs Dateiname
 MsgBox "-" & Dateiname & "-"
 Dateiname = ThisWorkbook.Path & "\" & "NeueMappex" & Endung
 ThisWorkbook.SaveCopyAs Dateiname
 MsgBox "-" & Dateiname & "-"
 Workbooks.Open Dateiname
 Application.EnableEvents = True
 Unload Konfig
 End Sub

MwieMichel · 18. September 2011 um 10:46

Hallo Reinhard,

habe die angegebene excel-Datei auf meine Festplatte kopiert und geöffnet. Die in Deinem Text angegebenen Prozeduren konnte ich auf der VBE-Umgebung aber nicht finden.

Nach Klick auf „Konfiguration“ wird die UserForm geladen (wahrscheinlich hätt ich da nach der Routine sehen müssen?). Mit Klick auf „Neuen Monat erstellen“ wird offensichtlich eine neue excel Datei angelegt (tatsächlich finde ich nach dem Abbruch zwei neue Dateien), und es kommt zu einem Fehler (Anweisung - Speicher - read).

Mit Abbrechen kommt man ins MS Developper Studio (VBE6.DLL - Access violation). Die dann aufgeführten Zeilen sgarn mir leider nix. Ich Arbeite mit Excel 2000 unter Windows XP.

MfG MwieMichel

drambeldier · 18. September 2011 um 11:19

Moin, Reinhard,

unter W2000 wird die gleiche Mappe unter dem Namen NeueMappe.xls angelegt, mehr passiert nicht.

Gruß Ralf

Reinhard_fb8cb7 · 18. September 2011 um 11:40

Hallo MwieMichel

habe die angegebene excel-Datei auf meine Festplatte kopiert
und geöffnet. Die in Deinem Text angegebenen Prozeduren konnte
ich auf der VBE-Umgebung aber nicht finden.

? ich habe jetzt auch von meinem gezeigten Link heruntergeladen.
Die userform heißt „Konfig“. Wenn du die UF gefunden hast muß dieses Bild rechts zusehen sein:

http://www.uploadagent.de/show-177675-1316337244.html

(Links mußt du dich durchlicken wie im Win-Explorer, also auf Pluszeichen usw. klicken bis du „Konfig“ siehst, dann darauf einen DoppelKlick…

Nach Klick auf „Konfiguration“ wird die UserForm geladen
(wahrscheinlich hätt ich da nach der Routine sehen müssen?).

warum nach der Routine=Code sehen?

Mit Klick auf „Neuen Monat erstellen“ wird offensichtlich eine
neue excel Datei angelegt (tatsächlich finde ich nach dem
Abbruch zwei neue Dateien),

Ja, wenn du die Datei in einen Ordner gestellt hast und da den Code laufen läßt so hast du dann die Datei in dem Ordner stehen und jenachdem wie weit der Code kommt dann max. zwei neue Dateien Dazu dort stehen.
Die eine heißt wie die Datei hat aber noch hinten das Datum angehängt, die andere heißt NeueMappex.xls.

und es kommt zu einem Fehler
(Anweisung - Speicher - read).

Also Excel bricht nicht zusammen und du kannst weiterarbeiten damit?
Magst du mir den exakten Text der Fehlermeldung nennen oder ein Bild davon zeigen?
Bild vom Bildschirm ist einfach, einfach auf „Druck“ drücken auf der Tastatur, dann falls du Irfanview(kostenlos ) haben solltest, dort Strg+v, dann ggfs. mit der maus ein Rechteck um das vom Bild ziehen was wichtig ist, dann Strg+c, dann Taste D, dann Strg+v, dann Bild abspeichern un mit upload o.ä., s. FAQ:2606 hochladen. Danke.

Vielleicht komme ich ja aufgrund der genauen Fehlermeldung weiter.

Mit Abbrechen kommt man ins MS Developper Studio (VBE6.DLL -
Access violation).

Du meinst das „Abbrechen“ bei der Fehlermeldung?
Von diesem Developer Studio hörte ich nur, k.A. für was man das braucht, was es macht.

Die dann aufgeführten Zeilen sagen mir leider nix.

Glaube ich gerne auch ihne die Zeilen zu kennen.
Vielleicht benennen/zeigen sie nur die Inhalte einiger Speicheradressen im Moment des Fehlers oder sowas.
So für Dumies wie mich erklär ich mir das so, da wird angezeigt daß das was in Excel passiert ist zum Absturz von Excel führte und es kam zum Absturz weil Excel in die Arbeitspeicherzelle 4711 die Zahl 7 eintrug.

Nicht wirklich hilfreich wenn man von dem Metier keine Ahnung hat.

Ich Arbeite mit Excel 2000 unter Windows XP.

Sorry, vergessen, ja ich hab auch WinXP.

Danke für dein Testen.

Für mich als Fazit deiner Antwort ist, bei dir geschieht etwas anderes als bei mir wenn der Code läuft aber es kommt trotzdem zu einem Fehler.

Gruß
Reinhard

Reinhard_fb8cb7 · 18. September 2011 um 11:49

unter W2000 wird die gleiche Mappe unter dem Namen
NeueMappe.xls angelegt, mehr passiert nicht.

Hallo Ralf,

du meinst mit W2000 Win 2000?
Hast du es mit deinem XL 2000 getestet und der Code lief durch?
Außerdem müssen da wenn schon zwei mappen angelegt worden sein.

Gruß
Reinhard

drambeldier · 18. September 2011 um 12:17

Hi Reibhard,

Hast du es mit deinem XL 2000 getestet und der Code lief
durch?

genau.

Außerdem müssen da wenn schon zwei mappen angelegt worden
sein.

Schtümmt, gemeldet wird aber nur die NeueMappe.xls.

Gruß Ralf

Reinhard_fb8cb7 · 18. September 2011 um 14:11

Hallo Rolb, *gg*

Hi Reibhard,

ich gebe Reibhard das Hi weiter wenn ich ihn treffe

Hast du es mit deinem XL 2000 getestet und der Code lief
durch?

genau.

Danke dir. Muß ich doch mal zumindest im Bereich der Office_Programme die alle mal runterschmeißen und wieder neu installiern.
Oder doch format c:\ /s? (

Außerdem müssen da wenn schon zwei mappen angelegt worden
sein.

Schtümmt, gemeldet wird aber nur die NeueMappe.xls.

Naja, was erwartestet du von einer MsgBox im Code? *grins*

Gruß
Reinhard

MwieMichel · 18. September 2011 um 21:13

Hallo Reihnard,

mit Alt + Druck wird das jeweils aktive Fenster in die Zwischenablage kopiert. Weil ich das so selten uploade ist das jedes Mal 'ne Tortour.

Hallo MwieMichel

habe die angegebene excel-Datei auf meine Festplatte kopiert
und geöffnet. Die in Deinem Text angegebenen Prozeduren konnte
ich auf der VBE-Umgebung aber nicht finden.

? ich habe jetzt auch von meinem gezeigten Link
heruntergeladen.
Die userform heißt „Konfig“. Wenn du die UF gefunden hast muß
dieses Bild rechts zusehen sein:

http://www.uploadagent.de/show-177675-1316337244.html

(Links mußt du dich durchlicken wie im Win-Explorer, also auf
Pluszeichen usw. klicken bis du „Konfig“ siehst, dann darauf
einen DoppelKlick…

Nach Klick auf „Konfiguration“ wird die UserForm geladen
(wahrscheinlich hätt ich da nach der Routine sehen müssen?).

warum nach der Routine=Code sehen?

Mit Klick auf „Neuen Monat erstellen“ wird offensichtlich eine
neue excel Datei angelegt (tatsächlich finde ich nach dem
Abbruch zwei neue Dateien),

Ja, wenn du die Datei in einen Ordner gestellt hast und da den
Code laufen läßt so hast du dann die Datei in dem Ordner
stehen und jenachdem wie weit der Code kommt dann max. zwei
neue Dateien Dazu dort stehen.
Die eine heißt wie die Datei hat aber noch hinten das Datum
angehängt, die andere heißt NeueMappex.xls.

und es kommt zu einem Fehler
(Anweisung - Speicher - read).

Also Excel bricht nicht zusammen und du kannst weiterarbeiten
damit?
Magst du mir den exakten Text der Fehlermeldung nennen oder
ein Bild davon zeigen?

Ich gehe davon aus, dass Excel seinen Dienst an dieser Stelle bereits quittiert hat. Das Developper Studio scheint zu versuchen, einen Bug zu fixen.

Die Fehlermeldung findest Du (hoffentlich) hier:
[url=[http://www.uploadagent.de/show-177715-1316372378.htm…](http://www.uploadagent.de/show-177715-1316372378.html][img]http://www.uploadagent.de/files/1316372378/thumb_test_008.jpg[/img][/url)]

Bild vom Bildschirm ist einfach, einfach auf „Druck“ drücken
auf der Tastatur, dann falls du Irfanview(kostenlos ) haben
solltest, dort Strg+v, dann ggfs. mit der maus ein Rechteck um
das vom Bild ziehen was wichtig ist, dann Strg+c, dann Taste
D, dann Strg+v, dann Bild abspeichern un mit upload o.ä., s.
FAQ:2606 hochladen. Danke.

Vielleicht komme ich ja aufgrund der genauen Fehlermeldung
weiter.

Mit Abbrechen kommt man ins MS Developper Studio (VBE6.DLL -
Access violation).

[url=[http://www.uploadagent.de/show-177717-1316373087.htm…](http://www.uploadagent.de/show-177717-1316373087.html][img]http://www.uploadagent.de/files/1316373087/thumb_test_009.jpg[/img][/url)]

Du meinst das „Abbrechen“ bei der Fehlermeldung?
Von diesem Developer Studio hörte ich nur, k.A. für was man
das braucht, was es macht.

Die dann aufgeführten Zeilen sagen mir leider nix.

[url=[http://www.uploadagent.de/show-177718-1316373151.htm…](http://www.uploadagent.de/show-177718-1316373151.html][img]http://www.uploadagent.de/files/1316373151/thumb_test_010.jpg[/img][/url)]

Glaube ich gerne auch ihne die Zeilen zu kennen.
Vielleicht benennen/zeigen sie nur die Inhalte einiger
Speicheradressen im Moment des Fehlers oder sowas.
So für Dumies wie mich erklär ich mir das so, da wird
angezeigt daß das was in Excel passiert ist zum Absturz von
Excel führte und es kam zum Absturz weil Excel in die
Arbeitspeicherzelle 4711 die Zahl 7 eintrug.

Nicht wirklich hilfreich wenn man von dem Metier keine Ahnung
hat.

Ich Arbeite mit Excel 2000 unter Windows XP.

Sorry, vergessen, ja ich hab auch WinXP.

Danke für dein Testen.

Für mich als Fazit deiner Antwort ist, bei dir geschieht etwas
anderes als bei mir wenn der Code läuft aber es kommt trotzdem
zu einem Fehler.

Gruß
Reinhard

Wenn das mit den Bildern nicht funzt, gib mir bitte Bescheid.

MfG Micha

Reinhard_fb8cb7 · 19. September 2011 um 09:33

Hallo Micha,

mit Alt + Druck wird das jeweils aktive Fenster in die
Zwischenablage kopiert. Weil ich das so selten uploade ist das
jedes Mal 'ne Tortour.

mit Vba kann man das automatisieren aber das Problem ist, das klappt genau dann nicht wenn da eine msgbox oder ein Infofenster ist.

Wie wäre es mit sowas:

http://www.info.hardcopy.de/

Grad kurz die Freeware-Version getestet. dann ist da unten in der Taskleiste ein Symbol. Da mit rechter Maustaste klicken bringt das Hauptmenue…

und es kommt zu einem Fehler
(Anweisung - Speicher - read).

Also Excel bricht nicht zusammen und du kannst weiterarbeiten
damit?
Magst du mir den exakten Text der Fehlermeldung nennen oder
ein Bild davon zeigen?

Ich gehe davon aus, dass Excel seinen Dienst an dieser Stelle
bereits quittiert hat.
Das Developper Studio scheint zu
versuchen, einen Bug zu fixen.

Sehe ich genauso.

Wenn das mit den Bildern nicht funzt, gib mir bitte Bescheid.

Es hat nicht funktioniert mit den Links.
uploadagent bietet nach dem Hochladen von Bildern ca. drei Links an zum Rauskopieren, man muß den untersten nehmen um ihn in w-w-w zu zeigen.

Und ich danke dir für die Mühe aber hab nachgedacht, mir werden die Bilder von dem Developermeldungen ja auch nix bringen

Was ich ja wissen will ob mein Code auch in einem anderen Excel 2000 nicht durchläuft hast du mir ja beantwortet.

Gruß
Reinhard