Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

308 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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-Kopie mit Datum und Zeit speichern
Lenni

Moin Excellianer!
Mit folgender Anweisung speicher ich eine Excel-Datei an einem "2.Ort"

Me.SaveCopyAs "F:\Buero\Excel\MeinProjekt\" & Me.Name
Nun möchte ich aber meine Datei immer aktuell mit Datum und Zeit abspeichern. Bei meiner Recherche im Archiv habe ich dann folge...
20.02.2009 20:26:00
Thread-ID: 1052545
3 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

Links zu Excel-Dialogen

InputBox MessageBox

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
5
2
1
12
4
2
3
1
2
1
2
5
1
2
9
2
5
4
2
1
4
3
22
5
4