Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1748to1752
1748to1752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Speichern nach Wert ...

Forumthread: Automatisches Speichern nach Wert ...

Automatisches Speichern nach Wert ...
27.03.2020 11:04:18
Jochen
Hallo zusammen,
ich stehe mal wieder vor einer für mich unlösbaren Aufgabe.
Ich möchte das beim schließen die Tabelle automatisch in ein auswählbares Laufwerk + Verzeichnis + Unterverzeichnis gespeichert wird wo die Vorgabe in Zelle (A6) steht.
Ist der Pfad vorhanden, speichert er die Tabelle. Wenn nicht, Fehlermeldung!
Mein Problem liegt darin, wie ich es bewerkstellige das die Verzeichnisse erstellt werden wenn der Pfad aus (A6) nicht vorhanden ist.
Siehe Beispieldatei: https://www.herber.de/bbs/user/136149.xlsm
Ich hoffe ihr könnt mir helfen...
lg Jochen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Speichern nach Wert ...
27.03.2020 11:35:16
UweD
Hallo
so?

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LW As String, Pfad As String, Datei As String
Datei = ThisWorkbook.Name
With Sheets("Basis1")
LW = .Range("B1")
If Dir(LW, vbDirectory) = "" Then
MsgBox LW & " existiert nicht"
Cancel = True
Exit Sub
End If
Pfad = LW & .Range("B2") & "\"
If Dir(Pfad, vbDirectory) = "" Then
MkDir Pfad
End If
Pfad = Pfad & .Range("B3") & "\"
If Dir(Pfad, vbDirectory) = "" Then
MkDir Pfad
End If
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:=Pfad & Datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
End Sub

LG UweD
Anzeige
AW: Automatisches Speichern nach Wert ...
27.03.2020 11:47:36
Jochen
Großen Dank an UweD
Ist genau das was ich gesucht habe!
Bleibt alle Gesund !!!
lg Jochen
Prima. Danke für die Rückmeldung owT
27.03.2020 11:59:07
UweD
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 12:21:24
Jochen
Hi...
etwas hab ich dann aber doch noch...
Wenn Haupt- und/oder Unterverzeichnis leer ist kommt wieder die bekannte Fehlermeldung.
Kann man das noch irgendwie abfangen?
lg Jochen
Anzeige
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 12:45:41
UweD
Hallo
Ja, das geht.
Es können noch weitere Fehler auftreten
- \ am Ende vergessen
- ungültige Zeichen, die als Verzeichnisname nicht zugelassen sind
- Überschreitung der Länge
- ..
Da kannst du dich nach folgendem Muster austoben.

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LW As String, Pfad As String, Datei As String
Datei = ThisWorkbook.Name
With Sheets("Basis1")
LW = .Range("B1")
If Dir(LW, vbDirectory) = "" Then
MsgBox LW & " existiert nicht"
Cancel = True
Exit Sub
End If
If .Range("B2") = "" Then
MsgBox "Hauptverzeichnis Fehler"
Cancel = True
Exit Sub
End If
Pfad = LW & .Range("B2") & "\"
If Dir(Pfad, vbDirectory) = "" Then
MkDir Pfad
End If
If .Range("B3") = "" Then
MsgBox "Unterverzeichnis Fehler"
Cancel = True
Exit Sub
End If
Pfad = Pfad & .Range("B3") & "\"
If Dir(Pfad, vbDirectory) = "" Then
MkDir Pfad
End If
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:=Pfad & Datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
End Sub

LG UweD
Anzeige
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 14:09:20
Jochen
Hallo Uwe,
das abfangen klappt perfekt! Daumen hoch
Überschreiben klappt, ersetzen "nein" und "abbrechen" = Fehlermeldung.
Wenn man das noch irgendwie hinbekommen könnte ist die Katze im Sack ;)
lg Jochen
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 14:55:08
UweD
Hallo
soll die Nachfrage ob "Überschrieben werden soll" erscheinen?
Willst du das auswählen,
oder soll generell überschrieben werden, wenn schon da?
LG
Anzeige
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 15:19:34
Jochen
Hallo,
die Nachfrage darf schon erscheinen, ebenso abbrechen.
Die andere Möglichkeit ob generell überschreiben, würde ich mir auch gern ansehen.
Dann bleibt es an mir für welche Variante ich mich entscheide.
lg
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 15:42:12
UweD
Hallo
1)
immer überschreiben, ohne Nachfrage:

ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=Pfad & Datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
2)
Mit Nachfrage

ThisWorkbook.Save
If Dir(Pfad & Datei)  "" Then
If MsgBox("Datei schon vorhanden! Überschreiben?", vbCritical + vbYesNo, "Warnung")  _
= vbNo Then Exit Sub
Application.DisplayAlerts = False
End If
ThisWorkbook.SaveAs Filename:=Pfad & Datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
LG UweD
Anzeige
AW: Prima. Danke für die Rückmeldung owT
27.03.2020 15:54:11
Jochen
SUPER DANKE
Funktioniert wie gewünscht! Beide Daumen hoch !!
Schönes WE und bleibt alle hier fein Gesund !!
lg Jochen
;

Forumthreads zu verwandten Themen

nach Speichern automatisch Schließen
Valeri

Hallo liebes Forum,
ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
11.01.2012 11:23:23
Thread-ID: 1245611
12 Beiträge
Excel Datei automatisch speichern und versenden
Tobias

Hallo,
Klaus hat mir schon einmal super bei diesem Thema geholfen, mir gelingt es aber nicht Anpassungen vorzunehmen. Das Thema wurde hier behandelt:
https://www.herber.de/forum/archiv/1316to1320/t1317504.htm
Es geht darum eine Datei nach Benutzern zu filtern, danach pro Benutzer...
25.06.2013 15:48:12
Thread-ID: 1319636
15 Beiträge
Anzeige
Uhrzeit nach Wenn-Abfrage automatisch eintragen
GP

Hallo VBA-Künstler,
ich möchte automatisch die Uhrzeit nach nach einer Wenn-Abfrage eintragen und einfrieren.
Folgender Code wird verwendet:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub If Target.Value "ok" Th...
15.01.2014 14:59:00
Thread-ID: 1345327
4 Beiträge
Datei automatisch beim speichern nummerieren
Manfred

Wer kann mir helfen?
Ich habe eine Vorlage mit dem Namen Zuarbeitung. Diese muss
von einem Mitarbeiter ausgefüllt werden. Danach mittels Makro
in das Verzeichnis C:\Zuarbeit kopiert werden. Dies ist kein
Probelm.
Da aber bei einer neuerlichen Abspeicherung die alte Datei
ZB: Z...
19.07.2002 12:02:58
Thread-ID: 138423
4 Beiträge
Automatische Aufforderung zu Speichern nach Öffnen
Michael

Hallo,mein Problem: Ich möchte, dass nach dem Öffnen meiner Excel-Vorlage der Benutzer sofort zum Speichern dieser als xls-Datei aufgefordert wird.Kann mir jemand helfen?Michael
31.07.2002 14:18:16
Thread-ID: 143099
3 Beiträge
Wie Exceldatei automatisch speichern?
VBA-Anfänger

Hallo liebe Community,
ich würde gerne eine Ecxceldatei automatisch mittels eines Add-ins wöchentlich speichern lassen. Allerdings habe ich mittels Google kein Add-in für Excel 2010 gefunden. Kann mir hier jemand weiterhelfen?
Oder gibt es alternativ eine gute Lösung, dieses Problem mi...
21.01.2016 22:02:48
Thread-ID: 1470374
4 Beiträge
offene Datei automatisch abspeichern
Gerhard

Ich möchte aus einer geöffneten Excel ein automatisches Backup mit einer einstellbaren Zeit und mit einem einstellbaren Pfad erstellen.
20.05.2016 22:22:22
Thread-ID: 1494574
11 Beiträge
automatische Bildlaufleiste nach Uhrzeit
Gecko

Moin,
habe mal wieder ein Problem und hoffe auf eure Hilfe.
Ich habe bereits eine Tabelle auf der die Bildlaufleiste alle x Sekunden/Minuten/Stunden eine Zelle weiter nach rechts geht. Gestartet und Beendet per Klick.
Nun möchte ich das so umbasteln, dass zu einer bestimmten Uhrzeit...
09.06.2017 08:33:47
Thread-ID: 1563148
2 Beiträge
Datei automatisch schliessen und speichern
Bernhard

Hallo Experten,
ich suche eine Möglichkeit für das automatische Schliessen und Speichern einer Datei, wenn diese geöffnet ist, aber nicht benutzt wird.
Im Forum habe ich dies gefunden:
Option Explicit Private Sub Workbook_Open() startzeit End Sub
Private Sub Workbook_SheetSelec...
28.05.2019 12:05:29
Thread-ID: 1695113
4 Beiträge
Makros automatisch starten nach Uhrzeit
Christian

Hallo, kann mir jemand helfen?
Kann ich ein Makro so gestalten, dass es automatisch um eine bestimmte Uhrzeit ausgeführt wird, ohne dass ich die Datei dafür öffnen muss?
Das gleiche gilt auch für das automatische aktualisieren von SVERWEISEN.
16.01.2003 17:41:50
Thread-ID: 204709
6 Beiträge
Datei alle 10 Minuten automatisch speichern
Dieter
Hallo Forum, suche einen VBA Code der die Datei automatisch alle 10 Minuten speichert.
MFg Dieter
20.01.2004 14:11:47
Thread-ID: 367123
6 Beiträge
Exce-Datei automatisch speichern
claudine

Hallo!
ich habe folgendes Problem: Nachdem eine Excel-Tabelle angelegt wurde, soll diese automatisch - entweder bei Änderungen oder alle 5 Minuten - gespeichert werden. Dies möchte in einem AddIn verwirklichen, weil es bei allen Excel-Dateien geschehen soll, nicht nur in einer bestimmten.
11.11.2004 15:19:03
Thread-ID: 515931
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige