Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bitte um Hilfe ich kann es nicht

Bitte um Hilfe ich kann es nicht
26.09.2017 18:30:54
Engel
Hallo zusammen,
ich müsste mit VBA eine Excel Tabelle unter einen Bestimmten Pfad mit einem Dateinamen aus der Tabelle abspeichern und bekomme es nicht hin.
Könnte mir jemand dabei helfen?
Der Pfad sollte sein "E:\OP Plan\OP Pläne zum Planen"
und der Name der Datei steht in "A2" das ist das Datum.
Danke schön im voraus.
Peter der verzweifelte

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

Betreff
Datum
Anwender
Anzeige
AW: Bitte um Hilfe ich kann es nicht
26.09.2017 18:42:36
Stefan 

Public Function MakeDir(FolderName As String)
Dim S As Variant, i As Long, F As String
S = Split(FolderName, "\")
For i = LBound(S) To UBound(S)
If S(i)  "" Then
F = F & S(i) & "\"
On Error Resume Next
MkDir F
On Error GoTo 0
End If
Next i
End Function
Sub speichern
Dim pfad As String
Dim name As String
pfad = "E:\OP Plan\OP Pläne zum Planen"
name = ThisWorkbook.Worksheets(1).Range("A2")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderexists(pfad) Then
GoTo export
Else
Call MakeDir(pfad)
GoTo export
export:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
pfad & name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
End Sub
Probier es mal so
Anzeige
AW: Bitte um Hilfe ich kann es nicht
26.09.2017 18:44:28
Stefan
sorry, hab da was vergessen
pfad = "E:\OP Plan\OP Pläne zum Planen" & "\"
AW: Bitte um Hilfe-RECHERCHE nutzen?
26.09.2017 18:52:08
robert
:-(
AW: Bitte um Hilfe ich kann es nicht
26.09.2017 19:00:08
Engel
Hallo noch mal,
ui das schaut aber sehr kompliziert aus.
Geht bestimmt auch, aber ich kann es nicht
niederschreiben, weiß nicht wie?
AW: Bitte um Hilfe ich kann es nicht
27.09.2017 19:41:42
Stefan
sorry für die späte Nachricht,
das von mir kopieren,
Excelmappe öffnen,
ALT F11 drücken und das ganze in "diese Arbeitsmappe" kopieren,
Mappe als .xlsm speichern

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige