|
Hi Ihr!
ich bräuchte mal wieder eure Hilfe.
aktuell wird meine Excel-Tabelle als PDF in einem Speicherort nach Wahl abgespeichert.
Dabei setzt sich der Dateiname aus den Eingaben des User´s in den jeweiligen Zellen zusammen.
Nun habe ich versucht die Datei anhand einer eindeutigen Nummer via Datum+Zeit+KW+Bezeichnung fortlaufend abzuspeichern
in meinem Fall sieht es aktuell so aus als Beispiel : Nr1612301341_52_Sabine_Schuster
Wie gesagt der Dateiname setzt sich zusammen aus: "Nr" + YYMMDD + aktuelle Zeit "_" + "KW" + "_" + "Vorname" + "Nachname"
der dazugehörige Code,welcher auch soweit funktioniert:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Sub aktivesBlattToPdf()
ChDir Range("Codeblatt!A11")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Nr" & _
Format(Date, "YYMMDD") & _
Format(Time, "HHMM") & _
"_" & _
Range("Codeblatt!B5") & _
"_" & _
Range("Tabelle1!A1") & _
"_" & _
Range("Tabelle1!B1") & _
".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
|
Nun finde ich den Dateiname zu unübersichtlich mit der Zahlenkolonne am Anfang und würde gerne eine laufende Nummer nach Vorhandensein-Prüfung im Verzeichnis dafür haben
dazu habe ich folgenden Code gefunden:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | Sub dateizähler()
Dim datei As String, zähler As Byte
zähler = 0
datei = Dir("C:\Users\blue\Desktop\Neuer Ordner\Zusatz*.xls")
Do Until datei = ""
zähler = zähler + 1
datei = Dir()
Loop
If zähler = 0 Then
ActiveWorkbook.SaveAs "C:\Users\blue\Desktop\Neuer Ordner\Zusatz.XLS"
Else
ActiveWorkbook.SaveAs "C:\Users\blue\Desktop\Neuer Ordner\Zusatz" & zähler & ".XLS"
End If
End Sub
Wie müsste ich das Makro nun Anpassen um den Dateinamen mit einer laufenden Nummer zu versehen im Ordner meiner Wahl?
Beispiel: Nr_Zähler_KW_Vorname_Nachname
- Nr_1_52_Sabine_Schuster
- Nr_2_52_Manfred_Neumann
- Nr_3_52_Sabine_Schuster
- Nr_4_01_Max_Mustermann
|
Wer kann helfen?
Bye Jens der Baerlina
|