Excel Ordner erstellen und Tabellen Baltt ablegen

Ersetze den vorhandenen Code komplett durch den Code unten, dann wird der Pfad immer im aktuellen Blatt aus Zelle D3 bestimmt.

Alles gut?

Andreas.

Option Explicit

Sub MakeFolders()
Dim Path As String, FName As String
'Pfad generieren
Path = "P:\" & Range("D3") & "\"
'Erzeugen
If Not FolderCreate(Path) Then
MsgBox Path, vbCritical, "Kann Pfad nicht erzeugen:"
Exit Sub
End If
'Dateiname generieren
FName = Format(Now, "dd.mm.yyyy_hh.mm__") & ".PDF"
'Exportieren
ActiveSheet.ExportAsFixedFormat xlTypePDF, Path & FName
End Sub

Private Function FolderCreate(ByVal Path As String) As Boolean
'Creates a complete sub directory structure
Dim Temp, i As Integer
On Error GoTo ExitPoint
If Dir(Path, vbDirectory) = "" Then
If Right$(Path, 1) = "\" Then Path = Left$(Path, Len(Path) - 1)
If Left$(Path, 2) = "\\" Then
i = InStr(3, Path, "\")
Temp = Split(Mid$(Path, i + 1), "\")
Temp(0) = Left$(Path, i) & Temp(0)
Else
Temp = Split(Path, "\")
End If
Path = ""
For i = 0 To UBound(Temp)
Path = Path & Temp(i) & "\"
If Dir(Path, vbDirectory) = "" Then MkDir Path
Next
End If
FolderCreate = True
ExitPoint:
End Function

Habe mein Problem auf dem Tabellenblatt1 meiner Mappe welche ich an Dich gesendet habe nochmal beschrieben.

Hoffentlich kannst Du helfen

Hab vielen Dank alles Suppi!!! Oh, wie einfach doch manche Dinge sind, ich bin begeistert.

Vielen Dank nochmal

Frank

Da brauche ich noch nicht mal zu kucken, denn Du brauchst Deinen Code nicht in meine Sub einbauen. Lass Deinen Code wie er ist und rufe am Ende einfach meine Sub auf... brauchst Du nur den Namen hinschreiben.

Also angenommen Deine Sub heißt Test, dann sähe das so aus:

Sub Test()
'Hier steht Dein Code

'Meine aufrufen
MakeFolders
End Sub

Alles klar?

Andreas.

Werter Andreas

Ich bin wieder mal wie so oft in diesem Forum von den Socken. Habe zwar noch nicht verstanden an welcher Stelle das Tabellenblatt in den angelegten Ordner kommt, aber es ist drin. --- TOLL

Kleines Problem für mich bleibt aber, dass Daten für das Tabellenblatt in meinem Sub aus einer Kundentabelle geholt werden.

In Deinem Sub wüsste ich nicht die Stelle wo ich solch eine Schleife einbauen könnte - da ich Deinen Zauber noch nicht verstanden haben. Ich bin halt Laie!!

Habe an Deine Adresse nochmal eine Tabelle gesendet welche Deinen und meinen Sub enthält. In der Hoffnung das Du aus beiden einen Funktionierenden machen kannst, sage ich erst mal vielen Dank.

Frank