Anzeige
Archiv - Navigation
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelt ausgeführt

Re: Doppelt ausgeführt
15.04.2002 18:02:23
mathias r.

Komisch !
Tritt das auch auf wenn du den Aufruf in...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
call FExport
End Sub

...machst (dann nicht den OnSave Befehl verwenden)?

Interessant wäre am Anfang der Routine einen Haltepunkt zu setzen, dann bei dem Halt die Aufrufliste anzeigen zu lassen (Ansicht/Aufrufliste) wer oder was die Aufrufe anstößt.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt ausgeführt
15.04.2002 16:59:55
Thomas
Wenn ich eine bestimmte Datei speichere, sollen die Daten der Zellen B7 und B12 in eine separate Text-Datei geschrieben werden (nach Abfrage).

Dafür hab ich mir unten stehendes Makro geschrieben, was im Prinzip auch funktioniert, doch dummer Weise doppelt ausgeführt wird, sobald ich speichere.

Hat jemand eine Idee (es sind keine anderen Makros in der Datei vorhanden).

mfg

Thomas Franz


Sub auto_open()
ActiveWorkbook.OnSave = "FExport()"
End Sub

Sub FExport()
x = MsgBox("Soll der Request gespeichert werden?", vbYesNo)
If x = 6 Then
Open "c:\temp\requests.txt" For Append As #1
Write #1, Sheets("Request").Range("B7").Value, Sheets("Request").Range("B12").Value
Close #1
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige