Excel
14.11.2020 19:42:13
Pierangelo
Mein Latein ist am Ende und ich hoffe (nein da bin ich sicher) ihr könnt mir tipps geben.
Mein Makro erstellt PDF's mit einer Variablen Nummer in der Zelle J2. Den Wert wird von einer Tabelle ab Zelle K39 geholt.
Nun muss immer der gleiche Befehlt wiederholt werden und immer den Wert von der nächsten Zelle zuerst holen.
Ich möchte nicht 100x den Befehl schreiben.
Mein wunsch ist es die Tabelle von Zelle K39 abzuarbeiten bis eine leere Zelle kommt. Dann sollte auch noch ein Text aufpoppen (Arbeit zu ende).
Hier unten mein Makro
Sub SdC_PDF()
' SdC_PDF Makro
Const DateiPfad = "c:\users\ppa64\downloads\"
Dim DateiName As String
DateiName = DateiPfad & Range("E2") & ".pdf" ' Pfad + Name
Range("J2").FormulaR1C1 = Range("K39")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
DateiName = DateiPfad & Range("E2") & ".pdf" ' Pfad + Name
Range("J2").FormulaR1C1 = Range("K40")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
DateiName = DateiPfad & Range("E2") & ".pdf" ' Pfad + Name
Range("J2").FormulaR1C1 = Range("K41")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
DateiName = DateiPfad & Range("E2") & ".pdf" ' Pfad + Name
Range("J2").FormulaR1C1 = Range("K42")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
DateiName = DateiPfad & Range("E2") & ".pdf" ' Pfad + Name
Range("J2").FormulaR1C1 = Range("K43")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub