Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern mit Abfrage des Dateinamens

Forumthread: Speichern mit Abfrage des Dateinamens

Speichern mit Abfrage des Dateinamens
01.10.2014 11:41:31
stormlamp
Hallo Zusammen,
ich möchte eine Mappe in einen Pfad absteichern in dem bereits eine andere Datei steht und dabei einen Teil des Dateinamens abfragen. Beispiel:
In Mappe1 gibt es die Tabellenblätter 1-3.
Das Script soll folgendes durchführen:
- Tabelle3 der Mappe1 in eine neue Mappe kopieren.
- Einen String abfragen, der als Teil des zukünftigen Dateinamens gilt
- Die neue Mappe abspeichern im gleichen Pfad, in der die Ausgangsmappe steht (UNC-Pfad)
- Der Dateiname ist "Bearbeiter_"& abgefragter Teil &"_Jahr_Monat_Tag_Stunde_Minute"
- Abspeicherung im CSV-Format ohne Rückfrage
Es wäre prima, wenn mir jemand diese Script zusammenstellen könnte.
Gruß
Hans

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit Abfrage des Dateinamens
01.10.2014 12:23:51
yummi
Hallo Hans,
du musst nur anpassen woher der string kommen soll

Sub SpeichereDatei()
Dim wkb As Workbook
Dim wks As Worksheet
Dim strpath As String
Dim strDatei As String
Set wkb = ThisWorkbook
Set wks = wkb.Sheets("Tabelle3")
strpath = wkb.Path
strDatei = strpath & "\Bearbeiter_" & wks.Cells(1, 1).Value & "_" & Year(Now) & "_" & Month( _
Now) & "_" & Day(Now) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".xls"
wks.Copy
ActiveWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSV, CreateBackup:=False
End Sub
Gruß
yummi

Anzeige
AW: Speichern mit Abfrage des Dateinamens
01.10.2014 12:51:45
stormlamp
Hallo Yummi,
danke für die Hilfe.
Was beim Dateinamen allerdings jetzt als
wks.Cells(1, 1).Value
enthalten ist, soll stattdessen als Benutzereingabe mit einer Messagebox abgefragt werden.
Ideal wäre, wenn dabei aus Zelle A2 der Wert Teil(A2;2;2) vorgeschlagen würde, aber ergänzt oder überschrieben werden könnte.
Gruß
Hans

Anzeige
AW: Speichern mit Abfrage des Dateinamens
01.10.2014 13:00:40
yummi
Hallo Hans,
dein A2,2,2 interpretiere ich mal als aus dem String ab der 2. stelle 2 zeichen (deswegen der teil mit Mid bei strdefault
dann so:

Sub SpeichereDatei()
Dim wkb As Workbook
Dim wks As Worksheet
Dim strpath As String
Dim strDatei As String
Dim strdefault  As String
Dim strName As String
Set wkb = ThisWorkbook
Set wks = wkb.Sheets("Tabelle3")
strpath = wkb.Path
strdefault = Mid(wks.Cells(2, 1).Value, 2, 2)
strName = InputBox("geben Sie einen Zusatz ein: ", "Eingabe", Default:=strdefault)
strDatei = strpath & "\Bearbeiter_" & strName & "_" & Year(Now) & "_" & Month(Now) & "_" &  _
Day(Now) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".xls"
wks.Copy
ActiveWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSV, CreateBackup:=False
End Sub
Gruß
yummi

Anzeige
AW: Speichern mit Abfrage des Dateinamens
01.10.2014 13:11:02
stormlamp
Hallo yummi,
der abzufragende Teil wird nicht vorgeschlagen und das Script bleibt bei der Zeile
wks.Copy
mit Laufzeitfehler 1004 hängen
Gruß
Hans

Gelöst: Speichern mit Abfrage des Dateinamens
01.10.2014 13:14:07
stormlamp
Hallo yummi,
danke, funktioniert doch - bei mir heißt die tabelle3 nur anders, das hatte ich übersehen.
Vielen Dank für Deine Hilfe
Freundliche Grüße
Hans
Anzeige
;

Forumthreads zu verwandten Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Pfad der letzten Speicherung
Iro

Hallo Excel-Gemeinde,
ist es möglich den Ordner herauszufinden, in dem zuletzt von Excel etwas gespeichert wird?
Hintergrund ist, dass in genau diesem Ordner gespeichert wird, wenn ich mit dem Befehl
Spreadsheet.Export Filename:="Filename.xls", Action:=ssExportActionNone
ein...
07.01.2009 18:00:59
Thread-ID: 1037642
3 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
Anzeige
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
Anzeige
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Anzeige
Excel mit Zeit & Datum speichern
Hajo
Hallo Kerstinwenn Du Dich mit VBA Auskennst kannst Du bestimmt folgendes Makro umarbeiten das beim speichern wirktin DieseArbeitsmappe
Gruß Hajo
14.04.2002 21:08:54
Thread-ID: 113230
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