Clever-Excel-Forum

Hallo VBA-Freunde,

dank eurer Hilfe habe ich meinen Code jetzt am Laufen.

In diesem Code stört mich nur eine Kleinigkeit. Wenn ich eine schon vorhandene Datei ausgewählt habe
kommt die Dialogbox "... ist bereits vorhanden, möchten Sie sie ersetzen?"

Diese Dialogbox möchte ich weg haben. Mit
Application.DisplayAlerts = False
klappt das nicht.
Mein Ziel ist eigentlich nur über die Dialogbox "Speichern unter" dem User die Möglichkeit zu geben
einen neuen Speicherort und Namen zu ermöglichen und diesen nachher für weitere Verwendungen unter VBA
in 2 Zellen zu schreiben.

Gäbe es da noch einen anderen Weg?
Vielen Dank für eure Überlegungen.

Heinz

Code:
Sub saveas()

Application.DisplayAlerts = False

Sname = Application.Dialogs(xlDialogSaveAs).Show

Application.DisplayAlerts = True

If Sname = False Then

    strTxt = Worksheets("MsgBoxes").Range("B3").Value

    MsgBox strTxt, vbCritical

    Exit Sub

End If

Range("B8").Value = ThisWorkbook.Path

Range("C8").Value = ThisWorkbook.Name

End Sub

Hallo Heinz,

Du müsstest das Speichern und den Dialog trennen, z.B. so:

Code:
...

sname = Application.GetSaveAsFilename(InitialFileName:="NeueDatei", Filefilter:="Excel Dateien (*.xlsx),*.xlsx*")

Application.DisplayAlerts = False

ActiveWorkbook.saveas sname

Application.DisplayAlerts = True

...

Hallo André,

vielen Dank für deinen Rat.

Ich habe das Problem mit vielem Knobeln und Tante Google jetzt so gelöst.

Die Trennung war die Lösung.

Danke.
Gruß Heinz

Code:
Sub saveas()

Application.DisplayAlerts = False

Sname = Application.Dialogs(xlDialogSaveAs).Show

Application.DisplayAlerts = True

If Sname = False Then

    strTxt = Worksheets("MsgBoxes").Range("B3").Value

    MsgBox strTxt, vbCritical

    Exit Sub

End If

Range("B8").Value = ThisWorkbook.Path

Range("C8").Value = ThisWorkbook.Name

End Sub

Heinz Ulm

schauan

Heinz Ulm