Hallo zusammen,
nachfolgenden Code der bis jetzt läuft, wollte ich wie folgt abändern, habe leider keinen Plan, darum bitte ich um Unterstützung.
Der Dateiname setzt sich zusammen aus:
- Formelname = Angebotsnummer (da schreibt der User seine eigne Angebotsnummer z. B. 25 rein / steht im Sheet "User" Zelle T2)
- Diese Angebotsnummer soll mit jedem mal drucken auf PDF um die Zahl 1 erhöht werden, also = 26
- Und dazu soll der Text aus dem Sheet "AngebotDrucken" Zelle F1 dazu gefügt werden.
>> Der ursprüngliche Code macht folgendes, er zählt mit jedem Drucken um 1 hoch, setzt das Jahresdatum dazu + den Text aus Zelle F1.
Jetzt soll der Code folgendes machen:
>> Nehme den Wert aus Zelle "Angebotsnummer" addiere 1 dazu, setzt das Jahresdatum dazu + den Text aus Zelle F1.
An welcher Stelle und wie muss der Code angepasst werde?
Herzlichen Dank für die Hilfe.
VG Eisi :-)
------------------------------------------------------
Dim RechNr As Long
Dim Jahr As Long
Dim WS As Worksheet
Dim DateiName As String
Set WS = ThisWorkbook.Worksheets("AngebotDrucken")
Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
' RechNr = ActiveWorkbook.BuiltinDocumentProperties(5)
' RechNr = ActiveWorkbook.Names("Angebotsnummer").RefersTorRange.Value
RechNr = ActiveWorkbook.Names("Angebotsnummer").Value
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
If Jahr <> Year(Date) Then
RechNr = 0
Jahr = Year(Date)
ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr
End If
RechNr = RechNr + 1
ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr
DateiName = "Angebot " & Format(RechNr, "0") & " - " & Jahr & " ! " & WS.Range("F1").Text
WS.Range("B3") = DateiName