Fehlermeldung ohne erkennbaren Grund und Funktion
29.01.2004 13:14:48
Stefan
Ich habe mit Hilfe des vbCmdBar Programmes mir ein Menü erstellt das folgende Funktion aufruft:
Sub Anzahl_Centera_mit_Einlesen()
quelldatei = Application.GetOpenFilename("Exceldokumente (*.xls), *.xls")
Open "c:\daten\xls\makro.ini" For Output As #1
Print #1, quelldatei
Close #1
' Öffnen des Makros
Workbooks.Open Filename:="C:\Daten\xls\Makros\Makroanzahlcenteramitpos.xls"
End Sub
Das klappt soweit auch super! In dem Workbook (C:\Daten\xls\Makros\Makroanzahlcenteramitpos.xls)
wird mit folgender Funktion die Funktion Anzahl_Centera aufgerufen.
Private Sub Workbook_Open()
Call Anzahl_Centera
End Sub
In ihr wird die aus der Makro.ini der Pfad und Datei gelesen und genutzt. als letztes steht in diesem Makro:
ChDrive ("C:")
ChDir ("C:\daten\xls\Ergebnis")
Application.SendKeys "Ergebnis Anzahl Centera von " & Qname & ".xls"
Application.Dialogs(xlDialogSaveAs).Show
Workbooks(Zname).Close savechanges:=False
Wenn ich nur das Makro (C:\Daten\xls\Makros\Makroanzahlcenteramitpos.xls) starte d.h. nicht über mein neues Menü funktioniert auch alles.
Wenn ich es über das Menü starte erhalte ich folgenden Fehler!
"Anwendungs oder Objektdefinierter Fehler".
Wenn ich jetzt die letzte Zeile (Workbooks(Zname).Close savechanges:=False
)in der das makro wieder geschlossen wird auskommentiere dann kommt dieser Fehler nicht.
Ich muß die Datei aber wieder schließen ohne zu speichern!!
Was kann ich tun ?
Gruß Stefan