Makro wird im bestimmten Sheet nicht ausgeführt
20.03.2017 06:13:57
Andi
habe nun lange eine Ursachenforschung betrieben, wann genau beim Ausführen des Makros " Speichern in " die Fehlermeldung "1004 Wir haben nichts zum Drucken gefunden" auftritt.
Eigentlich nur wenn aus dem Sheet "Bearbeiten" das Makro ausgeführt wird.
Wird das Makro von Sheet "Drucken ,Hilfstabelle, oder gar von der Tabelle1" - um die es ja bei der Speicherung in XLSX und PDF geht- funktioniert alles wie es soll.
Allerdings ist es mir am Sinnvollsten, das Makro doch von "Sheet Bearbeiten" aus zu starten.
Wo könnte da der Fehler liegen?
Der Versuch mit "Sheets("Tabelle1").Select" brachte auch noch nicht die Lösung.
Option Explicit
Public Sub Speichern_in_PDF_XLSX()
Call Makro8
Dim varPath As Variant
On Error GoTo Fin
varPath = Application.GetSaveAsFilename( _
InitialFileName:="D:\Elektro Arbeit\", _
FileFilter:="Excel(*.xlsx), *.xlsx", _
Title:="Save as XLSX and PDF")
If Not varPath = False Then
If Dir(varPath) "" Then
Select Case MsgBox("Datei überschreiben?", 4 Or 32 Or 0, "Datei")
Case vbYes
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Sheets("Tabelle1").Copy
With ActiveWorkbook
.SaveAs varPath, 51
.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True
.Close False
End With
End Select
Else
Sheets("Tabelle1").Copy
With ActiveWorkbook
.SaveAs varPath, 51
.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True
.Close False
End With
End If
Else
MsgBox "Abgebrochen..."
End If
Fin:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Grüße Andi