immer wieder speichern ohne nachfragen

• immer wieder speichern ohne nachfragen von mayk vom 15.03.2005 14:12:04
• AW: immer wieder speichern ohne nachfragen - von P@ulchen am 15.03.2005 14:15:13
• zeig mal den Code...oT - von UweD am 15.03.2005 14:15:53
  • AW: zeig mal den Code...oT - von mayk am 15.03.2005 15:43:37
    • AW: zeig mal den Code...oT - von UweD am 15.03.2005 16:08:20
      • AW: danke für deine zeit läuft super oT. - von mayk am 15.03.2005 16:11:09

Betrifft: immer wieder speichern ohne nachfragen
von: mayk
Geschrieben am: 15.03.2005 14:12:04
kann mir bitte jemand weiterhelfen?,
ich möchte eine datei per klick in einem Netzwerkpfad in einen bestimmten Ordner speichern.
das habe ich über save as mit dem macro recorder aufgezeichnet.
Jetzt wird aber immer wieder gefragt, vorhandenen Datei überspeichern, ok abbrechen.
Kann man das ausstellen, so das es immer wieder überspeichert wird, ohne nachfrage.
Danke schon mal im vorraus
mayk

Betrifft: AW: immer wieder speichern ohne nachfragen
von: P@ulchen
Geschrieben am: 15.03.2005 14:15:13
Hallo Mayk,
bemühe mal die Recherche (Speichern ohne Nachfrage)...
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !

Betrifft: zeig mal den Code...oT
von: UweD
Geschrieben am: 15.03.2005 14:15:53
OT

Betrifft: AW: zeig mal den Code...oT
von: mayk
Geschrieben am: 15.03.2005 15:43:37
wie gesagt er ist mit recorder aufgezeichnet
in der recherche steht das im code von true auf false oder umgekehrt geändert werden soll,
aber was und wo habe ich nicht gefunden.
ChDir "P:\MAYK"
ActiveWorkbook.SaveAs Filename:="P:\MAYK\Mappe1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,'muß hier auf true geändert werden?' _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="P:\MAYK\Mappe1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
danke für die antwort
mayk

Betrifft: AW: zeig mal den Code...oT
von: UweD
Geschrieben am: 15.03.2005 16:08:20
Hallo
so gehts. Alles andere ist überflüssig..

Sub Test()
    ChDir "c:\temp"
    Application.DisplayAlerts = False ' schaltet die Warnhinweise aus
    ActiveWorkbook.SaveAs Filename:="c:\temp\Mappe1.xls", ReadOnlyRecommended:=True
    Application.DisplayAlerts = True ' schaltet die Warnhinweise wieder ein
End Sub

Gruß Uwe

Betrifft: AW: danke für deine zeit läuft super oT.
von: mayk
Geschrieben am: 15.03.2005 16:11:09

Beiträge aus den Excel-Beispielen zum Thema "immer wieder speichern ohne nachfragen"