Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige
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

300 Forumthreads zu ähnlichen Themen

Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
Anzeige
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
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
VBA - Automatisches Nummerieren deaktivieren
Hans

Hallo zusammen,
ich benötige Hilfe bei einem Code zum deaktivieren der automastischen Nummerierung und Vervollständigung beim "ziehen" von Zellen.
Beispiel:
Ich habe in Zelle A1 stehen: "SO"
markiere ich Zelle A1 und ziehe sie Richtung A3 vervollständigt Excel in A2 "MO" in A3 "...
29.09.2016 12:57:59
Thread-ID: 1517159
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
11
14
3
3
2
3
10
4
1
4
5
1
3
5
2
1
5
23
2
2
1
3
9