Problem mit Speicher-Makro!
09.11.2003 06:51:22
Oliver S.
die schon wach sind. Ich benötige mal wieder Hilfe zu einem Makro. Ich benutze nachfolgendes Makro, um eine Datei zu speichern.
Sub Speichern()
Const DateiName = "S:\HAUSSTATION\Auslesedaten Zenner Zähler\Vorlagen\Vorlage Monatsauslesung Datenlogger.xls"
Dim s
Dim Abfrage As Boolean
Application.Dialogs(xlDialogSaveAs).Show
If a = 0 Then
Call Tabelle1_ein
Abfrage = False
s = ActiveWorkbook.FullName
Cancel = True
'If SaveAsUI Or UCase(ActiveWorkbook.FullName) = UCase(VorlagenName) Then
'Abfrage = True
Do
s = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe, *.xls")
If s = False Then Call Tabelle1_aus
If s = False Then Exit Sub 'Abbruch gedrückt
ok = True
If UCase(s) = UCase(VorlagenName) Then ok = False: _
MsgBox "Dies ist die Vorlage! Bitte andere Datei wählen!"
Loop Until ok = True
End If
Application.EnableEvents = False
Application.DisplayAlerts = Abfrage
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=s
On Error GoTo 0
Application.DisplayAlerts = True
Application.EnableEvents = True
'End If
a = 0
Call Tabelle1_aus
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Dieses Makro lässt es nicht zu, beim Speichern den Namen der Vorlagendatei zu vergeben. Die Datei muss immer unter einem anderen Namen abgespeichert werden. Einzige Ausnahme, wenn a = 1 (a wird durch eine Tastenkombination auf 1 gesetzt), dann kann die Datei unter ihrem Namen abgespeichert werden. Mein Problem ist nun folgendes, egal ob ich die Datei unter einem anderen Namen oder unter ihrem eigenen Namen speichere oder die Abbruchtaste drücke, das Fenster Speichern unter wird immer zweimal hintereinander geöffnet. Ich muss also immer zweimal speichern oder nach dem ersten Speichern die Abbruchtaste drücken. Ich komme einfach nicht dahinter wieso das so ist. Vielleicht hat ja hier jemand einen Tip für mich.
Für die Lösung wäre ich Euch dankbar.
Schon mal besten dank,
Oliver