|
Hallo,
dachte ich wäre fertig, jedoch ist eine neue Schwierigkeit dazu gekommen. Das Makro funktioniert zwar, jeodch nur solange bis meine Projekte die Nummer W11599 überschreiten.
Sub PDF_Freigabe_Heisskanal()
'
' PDF_Freigabe_Heisskanal Makro
'
Dim Pfad As String
Pfad = Range("B5").Value
Sheets("Freigabe Heisskanal").Select
ChDir _
"Q:\Projekte\W11000-W11999\W11500-W11599\" & Pfad & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Q:\Projekte\W11000-W11999\W11500-W11599\" & Pfad & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang\Freigabedokument_" & Pfad & "_Test.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Eingabemaske").Select
ActiveWindow.SmallScroll Down:=-9
End Sub
Aus der Zelle B5 konnte ich den Projektnamen W12345 ziehen aber was mache ich mit den Überodnern W11000-W11999 und W11500-W11599. Diese Namen kann ich aus der Excel-Datei nicht mehr herausziehen.
Kann ich eine Schleife einbauen die nach dem Pfad W11500-W11599 sucht
Ansonsten suche W11600-W11699
Ansonsten suche W117xx...
Oder gibt es bessere Lösungen?
Bin noch sehr am Anfang was VBA angeht, kann selbst noch keine Schleifen schreiben.
|