Clever-Excel-Forum

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? Dodgy

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

.

Liebe Grüße

Seeqi

Moin nochmal,

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

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

Hat klasse geklappt :)

Danke dir! :D

Seeqi

Seeqi

Kuwer

Seeqi