Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei mit Datum speichern

Datei mit Datum speichern
10.11.2006 09:02:53
Walter
Guten Morgen,
ich habe eine Datei, Name: "Muster", darin sind mehrere Sheets enthalten.
Die Sheets Namen: "Zimmer1", Zimmer2 u.s.w.
Nun möchte ich die Sheet als Datei mit dem Datum speichern, diese Datum
mit 2 Leerzeichen)steht in Zelle "A3".
Beispiel: "Zimmer1 10.11.06"
Nachher möchte ich das der Anwender, mittels Command-Button, die NEUE Datei:
"Zimmer1 10.11.06" ins Verzeichnis "C:\Musterhaus\Zimmer1 10.11.06" speichert.
Ist das Verzeichnis noch nicht vorhanden, soll es angelegt werden.
mfg walterK

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei mit Datum speichern
10.11.2006 11:38:18
Fred
Guten Tag Walter,
Habe eine Lösung. Kann aber erst Montag Hochladen.
Wartungsarbeiten: Muss sofort Anlage abschalten.
Fred
Brauch Lösung noch HEUTE, leider
10.11.2006 16:18:59
Walter
Hallo Fred,
brauch HEUTE noch Lösung, mal sehen, was noch läuft.
gruß WalterK
AW: Brauch Lösung noch HEUTE, leider
10.11.2006 17:42:13
Erich
Hallo Walter,
probier mal die beiden Versionen:
(Das Schließen der neuen Mappe ist auskommentiert, musst du selbst machen.) 
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
(ByVal PFAD As String) As Long
Sub BlattSpeichern1()
Dim strVerz As String
Const strStammverz = "C:\Musterhaus\"
If IsEmpty(Cells(3, 1)) Then Exit Sub
If Not IsDate(Cells(3, 1)) Then Exit Sub
strVerz = strStammverz & ActiveSheet.Name & "\"                ' Blattname als Verz.
If MakeSureDirectoryPathExists(strVerz) <> 1 Then              ' Verzeichnis prüfen/anlegen
MsgBox "Das Verzeichnis" & vbLf & vbLf & strVerz _
& vbLf & vbLf & "konnte nicht angelegt werden.", vbCritical
Exit Sub
End If
ActiveSheet.Copy                                               ' Blatt in neue Mappe
ActiveWorkbook.SaveAs _
strVerz & ActiveSheet.Name & " " & Cells(3, 1) & ".xls"     ' neue Mappe speichern
'   ActiveWorkbook.Close
End Sub
Sub BlattSpeichern2()
Dim strVerz As String, strDat As String
Const strStammverz = "C:\Musterhaus\"
If IsEmpty(Cells(3, 1)) Then Exit Sub
If Not IsDate(Cells(3, 1)) Then Exit Sub
strDat = ActiveSheet.Name & " " & Cells(3, 1)                  ' Blattname Datum als Verz.
strVerz = strStammverz & strDat & "\"
If MakeSureDirectoryPathExists(strVerz) <> 1 Then              ' Verzeichnis prüfen/anlegen
MsgBox "Das Verzeichnis" & vbLf & vbLf & strVerz _
& vbLf & vbLf & "konnte nicht angelegt werden.", vbCritical
Exit Sub
End If
ActiveSheet.Copy                                               ' Blatt in neue Mappe
ActiveWorkbook.SaveAs strVerz & strDat & ".xls"                ' neue Mappe speichern
'   ActiveWorkbook.Close
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Danke werde testen... -)
10.11.2006 18:37:56
WalterK
Hallo Erich,
werde testen, so komme ich schon zurecht,
Danke.
gruß WalterK
AW: Datei mit Datum speichern
10.11.2006 11:40:46
Harald
Hi Walter,
hab mal was gebastelt (Quelltexte von Herber-CD und Nepumuk)
Vielleicht hilft's ja.
Private Declare 

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long


Sub BlattSpeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = "C:\Musterhaus\" & ActiveSheet.Range("a3") & "\"
If sPath = "" Then Exit Sub
sFile = ActiveSheet.Range("a3")
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = ActiveSheet.Range("a3")
MakeSureDirectoryPathExists sPath
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True
End Sub



Gruss Harald
Anzeige
Habe Fehlermeldung
10.11.2006 12:09:14
Walter
Guten Tag Harald,
habe leider Fehlermeldung.
So ins Modul reingesetzt, hier kam Fehlermeldung:
MakeSureDirectoryPathExists sPath &lt&lt&lt&lt&lt
"Fehler beim Kompilieren Sub oder Function nicht definiert"
gruß WalterK
AW: Habe Fehlermeldung
10.11.2006 12:23:32
Harald
Hi,
mein test verlief wunschgemäß. Hab aber gesehen, dass die Darstellung der
Funktion im Beitrag zeilenversetzt ist. Schau mal ob du es so im Modul stehen hast.
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Gruss Harald
Keine Fehlermeldung aber
10.11.2006 12:39:40
Walter
Hallo Harald,
keine Fehlermeldung, aber habe auf der Oberfläche also als Aktive Datei "Mappe8"
Es sollte jetzt die Datei als Name der Sheet-Name + das Datum sein.
gruß walter
Anzeige
AW: Keine Fehlermeldung aber
10.11.2006 12:51:14
Harald
Hallo,
Der Code nimmt Datei- sowie Sheetname aus derselben Zelle
activesheet.range("A3")
-wie in der ersten Fragestellung gewünscht und von mir getestet-
Mehr kann ich leider nicht für dich tun, zumal ich gleich Feierabend hab.
Gruss Harald
Entschuldige war dann mein Fehler
10.11.2006 12:55:42
Walter
Hallo Harald,
ich bitte um Entschuldigung, sollte natürlich den Namen der Sheet nehmen.
Nur das Datum aus der Zelle, will mal versuchen ob ich es hinkrieg.
gruß Walter
zu
10.11.2006 17:34:16
zu
zu

305 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Anzeige
Mit Makro Excel-Datei unter anderem User speichern
Med

Hallo,
suche eine Lösung für folgendes Szenario:
1)Nutzer mit Leseberechtigung öffnet ExcelTabelle.
2)Makro speichert aktuellen Benutzernamen in eine externe Datei.
3)Benutzer macht Änderungen an der Datei.
4)Durch klick auf einen Button in der Excel-Tabelle wird diese mit...
16.02.2009 17:10:00
Thread-ID: 1051227
7 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 speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 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
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 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
4
2
5
9
6
2
4
1
3
4
3
4
1
1
3
13
4
2
4
7
3
13
3
6