Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern mit Pfad & Name aus Zellen

Speichern mit Pfad & Name aus Zellen
13.02.2017 13:53:28
Tino
Hallo zusammen,
Ich habe mir ein Makro aus dem Forum zusammengeschustert aber natülich habe ich einen fehler dirnen.
Sub Speichern1()
'Quelle: Herber
Dim SpeicherName As String
Dim Speicherpfad As String
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
Datum = Date
If Time > CDate("23:59:59") Or Time

Kann mir jemand von euch Profis sagen wo mein Fehler ist und ggf. gleich abändern? Ich habe leider keine Ahnung von VBA. :(
Gruß Tino

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit Pfad & Name aus Zellen
13.02.2017 14:16:09
harry
Hallo Tino,
in Codezeile 5 verwendest Du eine Variable "Pfad", der Du noch gar keinen Wert zugeordnet hast!
Was passiert mit der Variable "Datum"?
Was steht in JR9?
Alles ein bißchen wirr!
Grüße
harry
AW: Speichern mit Pfad & Name aus Zellen
13.02.2017 14:41:06
Tino
Hallo Harry,
in der Zelle JR8 bekomme ich: ="''"&"C:\Users\Tino\PDFs"&"\"&TEXT(KH1;"JJJJ")&"\"&TEXT(KH1;"MM MMMM JJJJ")&"\"
in JR9 gibt er mir den Dateinamen aus: =(TEXT(KH1;"TT.MM.JJJJ")&" "&KC55)&".pdf"
beides Funktioniert prima.
Mein Problem sind die fehlenden Kenntnisse in VBA.
Was muss ich machen?
Vielen Dank!
Gruß Tino
Anzeige
AW: Speichern mit Pfad & Name aus Zellen
14.02.2017 11:10:31
Tino
Guten Morgen Zusammen,
irgendwie habe ich mich gestern undeutlich ausgedrückt. Sry hierfür!
Mein Projekt ist fast fertig, Jetzt bin ich noch auf der Suche nach einem Makro zum Speichern als PDF.
wir haben auf dem PC einen Ordner "PDFs" in diesem befinden sich Unterordner die nach Jahreszahlen benannt sind (also 2015,2016,2017 ...), darin sind wieder Unterordner mit den Monaten.
Meine Excel Tabelle gibt mir in einer Zelle (JR8) den Ordner mit der Jahreszahl und den Ordner mit dem Monat. In der Zelle (JR9) befindet sich der Dateiname für das PDF.
Hier mein Versuch mit Hilfe vom WWW.
Sub Speichern_1()
Dim Speichern_Unter
Dim Pfad As String, Datum As Date
Pfad = "C:\Users\sicherheitsdienst\Ehrl\Dienstberichte\Bezug aus Zelle(JR8)\PDF  _
Dateiname =Bezug aus Zelle (JR9)"
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
With Sheets("Dienstbericht")
.PageSetup.PrintArea = "$JR$54:$KZ$99"
Speichern_Unter = Application.GetSaveAsFilename _
(InitialFileName:=Pfad & Format(Datum, "YYYYMMDD") & "_" & .Range("N97") & ".pdf",  _
fileFilter:="PDF, *.pdf")
If Speichern_Unter  "" And Speichern_Unter  False Then
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Speichern_Unter
Else
MsgBox "Nichts gespeichert"
End If
End With
End Sub
Was ich nicht hin bekomme ist zum einen der Pfad und den Dateinamen aus der Zelle und zum 2 soll er einfach speichern ohne Dialogfeld "Speichern unter" einzig die MsgBox mit "Datei vorhanden möchten sie ersetzen?" Ja/nein.
Diese Datei wird 2 mal gespeichert im gleichen verfahren nur an 2 Unterschiedliche Orte. Ist es möglich mit einem Makro, 2x speichern mit unterschiedlichen Pfaden durchzuführen?
Vielen Vielen Dank für jede Hilfe!
Gruß
Tino
Anzeige

103 Forumthreads zu ähnlichen Themen

Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Dateiname aus Zelle
Daniel

Hallo Experten,
Ich hab mich nun den halben Tag durchs Forum gehangelt und komm irgendwie doch auf keinen grünen Zweig...
ich habe ein Datenblatt, das von den verschiedensten Leuten verwendet wird; dieses liegt als Vorlage auf dem Server. (N:\Abteilung\Gruppe\Vorlage.xlt)
Nun habe i...
06.09.2009 10:21:50
Thread-ID: 1100641
6 Beiträge
Anzeige
Bilder einbinden, Dateiname aus Zelle? | Herbers Excel-Forum
joerg
Hallo,
Ich würde gern eine Reihe von Grafiken (ca. 6000, genaugenommen, aber alle sehr winzig) in meine Tabelle einbinden, und bei der menge natürlich nicht per Hand. Die Grafiken liegen alle im selben Verzeichnis, die Dateinamen habe ich in meiner Tabelle, immer in derselben Zeile, in der auch...
05.02.2010 20:29:32
Thread-ID: 1136277
8 Beiträge
Dateiname aus Zelle in Formel
Pat

Hallo zusammen,
folgendes Problem:
ich habe 52 Dateien, Datei1 - Datei 52.
In einer sogenannten Ergebnisdatei sollen Werte aus einer dieser Dateien per Formel verknüpft werden. Welche Datei aber angesprochen wird, entscheidet der Eintrag mit der lfd. Nr. in A1 der Ergebnisdatei.
...
17.03.2011 13:42:04
Thread-ID: 1206125
3 Beiträge
Datei speichern - Dateiname aus Zellen entnehmen
Cindy

Hallöchenich möchte durch ein Makro die aktuelle arbeitsmappe als datei abspeichern. der dateiname soll sich dabei aus den Inhalten von 3 zellen zusammensetzen. z.B.
Zelle A1 Inhalt: hallo
Zelle A2 Inhalt: ich
Zelle A3 Inhalt: binsder dateiname unter dem die arbeitsmappe automatisch ab...
12.05.2002 21:46:19
Thread-ID: 120302
2 Beiträge
Dateiname aus Zellen aut.speichern
Wolfgang

Hallo,
der Dateiname eines Tabellenblatt soll aut.aus dem Inhalt von 2 Zellen des Tabellenblattes(Zelle D19 und D20)abgespeichert werden.
gibt es da eine Möglichkeit als makro
danke im voraus
17.05.2002 10:36:48
Thread-ID: 121594
3 Beiträge
VBA Code / Freitags Werte aus Zelle auslesen
potetos00

Guten Tag,
ich bitte um Hilfe für folgendes Problem:
ich möchte aus den Arbeitsblatt "Berechnung" den Wert der Zelle "E5" JEDEN FREITAG auslesen. Dieser Wert soll dann in das Arbeitsblatt "Übersicht" in die Zelle "D2" eingetragen werden. In der Zelle E5 steht immer eine Zahl.
z.b: a...
20.08.2011 15:08:34
Thread-ID: 1226909
10 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
2
2
1
5
4
7
2
1
2
9
9
4
2
2
4
7
1
7
2
2
12
1
6
1
2