Datum

Titel

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1916to1920

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

per VBA speichern unter mit Hindernissen

Forumthread: per VBA speichern unter mit Hindernissen
12 Beiträge zu diesem Forumthread
Anzeige
323 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

26.01.2023 08:35:39

Jörn

Hallo zusammen,
ich denk mein Problem ist nicht allzu gross Hab aber leider nichts passendes gefunden, bzw. nur Bruchstücke.
Ich möchte meine Exceldatei per Makro und Tastenkombination unter einem anderen Pfad weg speichern, der aktuelle Name soll erhalten bleiben. Es soll keine Nachfrage geben für Pfad oder Überschreibung der bestehenden Datei.
Auch soll sich an dem normalen bestehenden Pfad nichts ändern. Also wenn ich die Datei schliesse und noch einmal normal speichere soll die Datei am Ursprungsort gespeichert werden.
Hab es mit dem Makrorecorder versucht aber irgendwas fehlt mir immer :(
Wär super wenn mir jemand helfen könte.
Vielen Dank schonmal.
Gruß Jörn

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: per VBA speichern unter mit Hindernissen

26.01.2023 09:53:53

peterk
AW: per VBA speichern unter mit Hindernissen

26.01.2023 11:47:36

Jörn
AW: per VBA speichern unter mit Hindernissen

26.01.2023 10:19:38

Herbert_Grom
AW: per VBA speichern unter mit Hindernissen

26.01.2023 11:54:09

Jörn
AW: per VBA speichern unter mit Hindernissen

26.01.2023 16:15:31

Herbert_Grom
AW: per VBA speichern ohne Hindernis

26.01.2023 12:01:46

EtoPHG
AW: per VBA speichern ohne Hindernis

26.01.2023 14:41:32

Jörn
AW: per VBA speichern ohne Hindernis

27.01.2023 08:36:34

EtoPHG
AW: per VBA speichern ohne Hindernis

27.01.2023 09:39:52

Jörn
AW: per VBA speichern unter mit Hindernissen

27.01.2023 17:33:15

Herbert_Grom
AW: per VBA speichern unter mit Hindernissen

31.01.2023 14:12:29

Jörn
AW: per VBA speichern unter mit Hindernissen

01.02.2023 09:18:54

Herbert_Grom

AW: per VBA speichern unter mit Hindernissen

26.01.2023 09:53:53

peterk

Hallo
ThisWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLSM"
Peter

AW: per VBA speichern unter mit Hindernissen

26.01.2023 11:47:36

Jörn

Hallo,
Danke erstmal, bekomme leider immer die Fehlermeldung
Laufzeitfehler 1004
Datei konnte nicht gefunden werden. Wurde das Objekt vielleicht verschoben oder gelöscht? Beenden Debuggen
mit


Sub SaveAs()
'
' SaveAs Makro
'
' Tastenkombination: Strg+Umschalt+S
'
Application.DisplayAlerts = False
     ActiveWorkbook.SaveAs Filename:= _
"https://d.docs.live.net/xxxxxxxxxx/Anwesenheit/TFA_2023_Makro.xlsm" _
         , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 Application.DisplayAlerts = True
End Sub

funktioniert das Ganze. Leider bin ich dann in der Datei mit dem neuen Pfad.
Hast Du einen Ahnung was ich falsch mache ?
Gruß Jörn

AW: per VBA speichern unter mit Hindernissen

26.01.2023 10:19:38

Herbert_Grom

Hallo Jörn,
und wenn du dann noch diese Zeile voran setzt, entfällt auch die Nachfrage:

   Application.DisplayAlerts = False

Servus

AW: per VBA speichern unter mit Hindernissen

26.01.2023 11:54:09

Jörn

Danke, das hat geklappt, leider der Rest noch nich.
Gruß Jörn

AW: per VBA speichern unter mit Hindernissen

26.01.2023 16:15:31

Herbert_Grom

Hallo Jörn,
schau dir mal deinen Code genau an! Und, findest du da ein "SaveCopyAs " oder nicht? Also, ersetze dein "SaveAs" durch "SaveCopyAs ", dann sollte es auch funktionieren!
Servus

AW: per VBA speichern ohne Hindernis

26.01.2023 12:01:46

EtoPHG

Hallo Excel-Profi ?,
Wie wär es denn mit .SaveCopyAs oder noch einfacher, abundan mal die F1 Taste im VBE zu verwenden...
Gruess Hansueli

AW: per VBA speichern ohne Hindernis

26.01.2023 14:41:32

Jörn

Hallo Hansueli,
Excelprofi hast Du gut gelesen ;), VBA bescheiden leider nicht :(
...aber gut, danke für deinen Tipp!
Wenn du die anderen Threads auch gelesen hättest , wüsstest Du, dass ich mit SaveCopyAs nicht weiter gekommen bin.
Gruß Jörn

AW: per VBA speichern ohne Hindernis

27.01.2023 08:36:34

EtoPHG

Hallo Jörn,
Ich hab all Deine Beiträge in diesem Thread gelesen und nirgends ist SaveCopyAs erwähnt!
Also kann ich auch nicht weiterhelfen. Vielleicht machst Du dich mal schlau wie man:
Probleme richtig und vollständig beschreibst und wie man auf externen Speicherorten (wie Internet / Cloud) speicherst.
Über dein gewünschtes Zielverzeichnis habe ich zuwenig Angaben, vielleicht fehlt es an Deiner Authorisierung.
Gruess Hansueli

AW: per VBA speichern ohne Hindernis

27.01.2023 09:39:52

Jörn

Hallo, Danke für die Rückmeldung,
muss Dir recht geben, hab das wirklich nicht erwähnt.
Hatte es mit SaveCopyas probiert, sonst alles wie gehabt, wie gesagt SaveCopy funktioniert prima, SaveCopyas geht nicht.
Hab nun bissl gegoogelt, SaveCopyAs funktioniert auf Onedrive wohl nicht, Lösung soll sein die Datei mit SaveAs zu speichern , sich den Namen und Pfad "zu merken" und danach dort wieder zu speichern.
Bekomm ich aber mit meinen VBA Kenntnissen leider nicht hin :(
Gruß Jörn

AW: per VBA speichern unter mit Hindernissen

27.01.2023 17:33:15

Herbert_Grom

Hallo Jörn,
probiers noch mal damit:

Option Explicit
Sub SaveAs()
   Application.DisplayAlerts = False
   
   '* hiermit speicherst du die AM auf onedrive
      ActiveWorkbook.SaveAs Filename:= _
"https://d.docs.live.net/xxxxxxxxxx/Anwesenheit/TFA_2023_Makro.xlsm" _
               , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   
   '* und hiermit speicherst du die AM wieder mit dem alten Namen im Ausgangsverzeichnis
      ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\TFA_2023_Makro.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
   '* und wenn du die AM dann noch schließen & speichern willst,
   '* dann nimm noch die folgende Zeile dazu.
   '   ActiveWorkbook.Close True
End Sub

Servus

AW: per VBA speichern unter mit Hindernissen

31.01.2023 14:12:29

Jörn

Hallo Herbert,
ich bin leider erst heute dazu gekommen dein Makro auszuprobieren.
Das Wegspeichern der Kopie klappt. Beim 2. speichern kopiert er die grad gespeicherte Kopie dann nochmals in den aktuellen Pfad , also auf Onedrive.
Eigenlich müsste man sich irgendwie den originalen Pfad merken um die Datei wieder zurück zu speichern.
Hast Du da noch eine Idee?
Danke erstmal, toller Ansatz!
Gruß Jörn

AW: per VBA speichern unter mit Hindernissen

01.02.2023 09:18:54

Herbert_Grom

Hallo Jörn,
nachdem dein Thread heute ins Archiv verschoben wird und ich dir dann nicht mehr antworten kann, schicke mir deine eMail-Adr. Meine findest du hier bei den Profilen.
Servus