Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehlermeldung ohne erkennbaren Grund und Funktion

Forumthread: Fehlermeldung ohne erkennbaren Grund und Funktion

Fehlermeldung ohne erkennbaren Grund und Funktion
29.01.2004 13:14:48
Stefan
Hi Zusammen!
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung ohne erkennbaren Grund und Funktion
29.01.2004 15:03:29
Matthias G
Hallo Stefan,
hast Du schon versucht "Application." vornanzustellen?
also
Application.Workbooks(Zname).Close SaveChanges:=False
Gruß
Matthias
AW: Fehlermeldung ohne erkennbaren Grund und Funktion
29.01.2004 15:29:34
Stefan
Hi Matthias.
Hab es gerade getestet leider ohne Erfolg!
Fehler bleibt!
Danke
Gruß Stefan
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige