VBA Do Loop PDF erstellen...

[Seeqi]

Hallo zusammen,

die Urlaubsplanung steht wieder an und meine Arbeitskollegin bat mich eine Urlaubsdatei zu erstellen um Urlaubskarten zu drucken.
Funktioniert auch alles soweit gut, Dynamisch für alle Jahre habe ich das ganze jetzt einmal erstellt.

Faul wie der Mensch nunmal ist habe ich eine Druck Funktion eingebaut zum speichern und umbenennen der Datei.

Soweit so gut, Problem ist, dass er mir bei der Do Loop until schleife zwar alle daten Druckt, aber er die erste Datei überschreibt.

Was habe ich falsch gemacht?    

Wenn noch jemand das Problem lösen könnte mit den Rotenfeldern am ende des Monats wäre auch super :) muss aber nicht unbedingt  .

Liebe Grüße

Seeqi

[Seeqi]

Moin nochmal,

habe gesehen das die Button beide gleich benennt waren :) hier nun mit unterschiedlicher Beschriftung.

[Kuwer]

Hallo,

Code:

Sub DruckAlle()
  Dim Jahr As String
  Dim Name As String
  Dim Ziel As String
 
  Ziel = Range("AN7").Value + 1
  Jahr = Range("O5").Value
 
  Do
    Name = Range("O7").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Urlaubskarte" & "_" & Jahr & "_" & Name & ".pdf"
    Range("AM7").Value = Range("AM7").Value + 1
  Loop Until Range("AM7").Value = Ziel
End Sub

---

Mit direkter Zählschleife ginge es z.B. so:

Code:

Sub DruckAlle()
  Dim i As Long
  Dim Jahr As String
 
  Jahr = Range("O5").Value
  For i = 1 To Range("AN7").Value
    Range("AM7").Value = i
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Urlaubskarte" & "_" & Jahr & "_" & Range("O7").Value & ".pdf"
  Next i
End Sub

Gruß, Uwe

[Seeqi]

Hat klasse geklappt :)

Danke dir! :D