Thema Datum  Von Nutzer Rating
Antwort
Rot Makro endet unerwartet
11.09.2020 12:34:51 Pascal
NotSolved
11.09.2020 13:28:24 UweD
NotSolved

Ansicht des Beitrags:
Von:
Pascal
Datum:
11.09.2020 12:34:51
Views:
59
Rating: Antwort:
  Ja
Thema:
Makro endet unerwartet

Guten Tag,

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

 

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 "Export erfolgreich." & vbCrLf & "Die Fahrzeug-Kostenanalyse liegt unter dem angegebenen Pfad ab."
        
 
End If
 
End Sub
 
 
 
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro endet unerwartet
11.09.2020 12:34:51 Pascal
NotSolved
11.09.2020 13:28:24 UweD
NotSolved