Makro endet unerwartet
11.09.2020 13:26:31
Pascal
ich sitze gerade an einem Makro zum PDF-Report erstellen.
An einer Stelle (nach einem Counter) endet einfach die Abfolge der Einzelschritte.
Nach Range("g8").Value = Range("g8").Value + 1 endet es ohne Fehlermeldung. Im Einzelschritt kann ich es auch nicht ausführen lassen.
Weiß jemand, woran das liegt?
Vielen Dank für die Hilfe vorab.
LG, Pascal
Hier der Code:
Sub Kunden_PDF_Erzeugen()
If Range("g8").Value >= Range("i8").Value Or Range("m8").Value > Range("k8") Then
MsgBox "Text1" & vbCrLf & "Text2."
Else:
' Kunden_PDF_Erzeugen Makro
Worksheets("XY").Visible = True
Sheets("XV").Select
ActiveSheet.Unprotect Password:=Worksheets("ZZ").Range("n4").Value
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Range("$p$7").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("$q$7").Value
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Range("$p$15").Value
ActiveChart.Axes(xlValue).MaximumScale = Range("$q$15").Value
Range("F1:K62").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Worksheets("ZZ").Range("f31").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveSheet.Protect Password:=Worksheets("ZZ").Range("n4").Value
Worksheets("XY").Visible = False
Sheets("ZZ").Select
ActiveSheet.Unprotect Password:=Range("N4").Value
Range("g8").Value = Range("g8").Value + 1
ActiveSheet.Protect Password:=Range("N4").Value
MsgBox "Text3" & vbCrLf & "Text4"
End If
End Sub