VBA Automatisierungsfehler?

Guten Tag zusammen,

ich habe folgendes Problem: Wenn ich aus der Excel-Datei per Makro eine PDF erstellen möchte, kommt seit kurzem folgender Fehler:

Laufzeitfehler -2147417848 (80010108):
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt.

Lt. Debugger ist folgender Zeile betroffen:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     DateiName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
     False

Der Fehler tritt nur bei Excel 2016 auf. Bei der Verson 2010 gibt es keine Probleme. Kann es daran liegen, das Excel 2016 noch nicht gekauft wurde sondern nur die Testversion ist? Jedoch halte ich dieses für unwahrscheinlich..

Der Fehler ist auch im Internet bereits bekannt, jedoch habe ich bisher noch keine Lösung gefunden.

Gruß

29.08.2020, 14:32

Der Fehler besteht weiterhin. Microsoft 2016 wurde jetzt neu gekauft..

Es kann ja nicht sein, dass es bei mir am PC funktioniert aber hier am Laptop nicht. Da muss doch irgendwo ein Einstellungsfehler sein? Bei beiden Geräten wied die PDF per Adobe Acrobat Reader DC erstellt.

Lt. Internet sollte man die Eigenschaften des Err-Objekts überprüfen und dei On Error Resume Next -Anweisung verwenden. Da habe ich jetzt aber keine Ahnung.

3 Antworten

Hannes62a

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

16.08.2020, 19:05

Sehr oft liegt das eigentliche Problem nicht in der Zeile, über die der Debugger stolpert, sondern im Programmablauf deutlich davor. Da müsste man schon den ganzen Code sehen.

Ist der Dateiname korrekt und eindeutig? Enthält er den Pfad, oder wo kommt der her? Was ist aktuell die Selection (BTW, ich vermeide .Select und Selection, wo immer es möglich ist)?

Hast Du mal versucht, in XL2016 die Schritte als Makro aufzuzeichnen?

RobinM66

Fragesteller

16.08.2020, 19:16

@Hannes62a

Also am Makro direkt kann es nicht liegen, weil der Code unter XL2010 funktioniert und es exakt die selbe Datei ist- bzw. eine Kopie.

Dateiname und -Pfad sind beide korrekt und eindeutig. Solch ein Fehler würde auch anders benannt werden.

Das mit dem Selecr und Selection habe ich schonmal gehört, ändert aber nichts am Problem.

Bisher habe ich es noch nicht über XL 2016 aufgenommen, lediglich geschrieben.

Aber zur Vorgeschichte: Den Code habe ich mit meinen alten PC über XL2016 geschrieben. Dort hat er auch funktioniert. Durch einen PC wechsel habe ich nun die Version XL2010. Dort funktioniert die Datei ebenfalls problemlos. Auf dem Notebook, wo es funktionieren soll, wieder unter XL2016 funktioniert es leider nicht.

Nun denke ich mal, dass es eine Einstellungssache am PC oder an Excel sein muss. Ich kann den Fehler ansonsten nicht nachvollziehen.

RobinM66

Fragesteller

23.08.2020, 20:16

Ich habe mir jetzt mal Microsoft Office 2016 gekauft und aktiviert. Bei mir funktioniert es wunderbar, keine Probleme bzgl der PDF.

Also muss entweder der Fehler daran bestehen, dass beim Laptop Office noch nicht aktiviert wurde oder es muss eine PC Einstellung sein.

Ich werde es mal weiter ausprobieren. @Hannes62a

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

17.08.2020, 19:59

Also ich mache dies auch so:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
mit Excel 2016
Bei Filename achte ich noch auf das bewusste wandeln von möglichen Sonderzeichen die in "myName" möglich sind.

RobinM66

Fragesteller

17.08.2020, 20:03

Ich kann morgen mal den kompletten Code reinsetzen. Finde diesen Fehler halt nur sehr mysteriös.

Der Dabeiname enthält keine Sonderzeichen, lediglich Buchstabend und Zahlen.

IchMalWiederXY

18.08.2020, 18:55

@RobinM66

In der Tat ein seltsamer Effekt. Meinen Code habe ich auch über verschiedene Office Version erhalten und nie Ärger gehabt. Ggf mal in den Verweisen schauen, ob hier die Häkchen auch die neuen Versionen gewechselt sind.

hannes1806

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

17.08.2020, 09:06

Zeichne mal mit Excel 2016 ein kleines Makro auf, mit dem du ein Blatt nach PDF exportierst. Da siehst du wahrscheinlich einen Unterschied.

Das allererste Glied "Selection" kommt mir komisch vor, sollte da nicht "ActiveSheet" oder Sheet("blabla") stehen?

Woher ich das weiß:eigene Erfahrung – Faulheit >> Neugier >> Wissen

RobinM66

Fragesteller

17.08.2020, 10:39

Ich werde es mal versuchen. Finde es halt nur komisch, weil es vorher auf den alten Rechner funktioniert hat

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zur Frage

VBA mehrere Tabellen zur PDF zusammenfügen?

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.


Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

...zur Frage

Excel VBA Blatt als PDF speichern Dateiname?

Moin Leute,

ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5

Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?

Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"

anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein

Danke schonmal

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Excel VBA Formel zum Speichern als PDF funktioniert nicht immer. Wie beheben?

Hey. Ich habe einen Code zum Speichern von Tabellenblättern als PDF in Ordnern und Unterordnern, die erstellt werden. Ich habe noch ein paar mal daran herum gebaut, also sieht der Code möglicherweise nicht sehr clean aus.

Ich füge den Code Stückweise ein, weil er zu viele Zeichen hat.

Mein Problem ist nun: Auf meinem PC funktioniert der Code super, ohne zwischenfälle. Ich habe nun die Excel-Datei schon mehrmals per USB auf einen anderen Rechner gezogen und den Dateipfad angepasst. Dennoch funktioniert er hier nur teilweise, da nur Oberordner und Unterordner erstellt werden. Der zweite Unterordner und die PDF Dokumente bleiben weg. Vielleicht kann mir hierbei jemand helfen. Einen schönen 4. Advent euch noch!

...zur Frage

Excel VBA Zwei Bereiche zu einer 2-seitigen pdf exportieren?

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

...zur Frage

PDF Datei per Excel via Outlook senden?

Hallo Zusammen!

Ich habe folgenden Code zum erstellen einer PDF aus einem Sheet.

Der Code erstellt einen PDF namen und gibt dem Benuzter die Wahl zu speichern wo er will.. Danach kommt noch eine MSG Box und führt einen Datenbankbefehl aus usw.. Alles soweit ok..

Kann man zusätzlich die Datei noch in "Temp" speichern und per PDF senden? Als Betreff den Dateinamen ? Gerne würde ich auch den Emailempfänger direkt vorgeben und wenn möglich auch das senden ohne bestätigen ausführen.. geht das?

Sub speichern_unter_PDF_AV() a = MsgBox("WKZ ins Budget übertragen?", _ vbYesNo + vbQuestion, "WKZ buchen, PDF erstellen?") If a = vbYes Then 'Bereich kopieren Sheets("AV Markt").Range("AH14:AO14").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Datenbank AV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False Name = Range("Z1") Sheets("AV Markt").Activate Dim neuerDateiname As String neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "AV - " & Name & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (.pdf),.pdf") If Not neuerDateiname = "Falsch" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True Dim loI Dim WsShell Set WsShell = CreateObject("WScript.Shell") loI = WsShell.Popup("WKZ erfolgreich übertragen!" & vbCrLf _ & " " & vbCrLf _ & "AV bitte übermitteln" & vbCrLf _ & " " & vbCrLf _ & "AV´s müssen unterschrieben auf dem Laufwerk abgelegt werden!" & vbCrLf _ & "Danke", Title:=" Power Team") End If End If End Sub

...zur Frage

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zur Frage

Excel VBA Makros: Spalte mit bestimmter Überschrift in anderes Tabellenblatt kopieren?

Hallo zusammen,

ich stehe im Moment auf dem Schlauch.... Leider bin ich kein Profi in VBA.

Mein Problem ist folgendes: Ich möchte bestimmte Spalten aus einem Tabellenblatt in ein anderes kopieren. Da die Reiehnfolge der Spalten nicht immer gleich ist, ermittle ich die zu kopierenden Spalten anhand der Überschrift in der ersten Zeile. Soweit so gut...

Nun scheitere ich leider an der Umsetzung. Bis zum kopieren funktioniert es. Doch klappt das einfügen in das neue Tabellenblatt nicht...

Es tritt folgender Fehler auf:

"Laufzeitfehler 1004

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"

Ich hoffe ihr könnt mir weiterhelfen

Viele Grüße

...zur Frage

Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

...zur Frage

Excel VBA Blattschutz ein und aus per Button?

Hallo allerseits,

ich bin gerade dabei einen Kalkulator mit Excel zu erstellen.

Dabei bin ich auf folgendes Problem gestoßen:

Ich möchte Das Blatt per Button entsperren, sperren und man sollte im gesperrten Zustand die Zeilen formatieren können.

AllowFormattingCells:=True

Sub Blattsperren()

On Error Resume Next

If ActiveSheet.ProtectContents = False Then GoTo Fehler

ActiveSheet.Unprotect

Exit Sub

Fehler:

ActiveSheet.Protect "+1516"

End Sub

Hat da jemand eine Idee, wie man die Formel richtig aufstellt?

Vielen Dank im Voraus

...zur Frage

VBA Dateiauswahl - Bei Abbruch Laufzeitfehler 5, jemand Ideen?

Hallo zusammen,

was müsste ich hinzufügen, um den Laufzeitfehler 5 zu umgehen? Wenn ich den VBA-Code ausführe, öffnet sich das Fenster für den Import von DAT-Dateien. Drücke ich auf Abbrechen, erscheint der Laufzeitfehler 5. Vermerkt wird der Code "Set F = fs.GetFolder(strPfad)". Wo und welchen Code müsste ich hinzufügen, um den Fehler zu beheben? Vielen Dank im Voraus. :)

Sub Schaltfläche1_Klicken()
'
'
'*** Öffnen von DAT-Dateien
Dim strText As String, strFilter As String

strText = "Bitte eine Auswertung Auswählen"
strFilter = "DAT-Dateien (*.DAT), *.DAT"""
strAuswahl = Application.GetOpenFilename(strFilter, 1, strText)
strPfad = Pfad_ermitteln(strAuswahl)
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(strPfad)
Set fc = F.Files

If ActiveSheet Is Nothing Then Workbooks.Add
For Each File In fc
    Zeile = Cells(65000, 1).End(xlUp).Row + 2
    strEinfügen = Cells(Zeile, 1).Address
    strAuswahl = File.Path

    'Einfügen
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strAuswahl _
        , Destination:=Range(strEinfügen))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = ","
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
  End With
  Range(strEinfügen).QueryTable.Delete
Next
End Sub
_______________________________

 Function Pfad_ermitteln(ByVal strAuswahl As String) As String
 
 For i = Len(strAuswahl) To 1 Step -1
    If Mid(strAuswahl, i, 1) = "\" Then
        Pfad_ermitteln = Left(strAuswahl, i - 1)
        Exit Function
    End If
Next
End Function

...zur Frage

Excel VBA Range-Objekt?

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

...zur Frage

Problem mit Excel Macro die Datei im Netzwerk abspeichert / Wie Makro in Excel auf anderes Netzwerk abspeichern lassen?

Hallo,

Ich hab heute in der Arbeit ein Dokument in Excel 2010 erstellt.

Im Dokument habe einen Button erstellt und ihm einer Makro zugewiesen.

Der Button soll die Datei als .PDF unter einem bestimmten Pfad abspeichern und die Zeile [F7] als Dateinamen benutzen.

Der Code für die Makro:

Sub Speichern_PDF()

ChDir "PFAD"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Range("F7").Value & "_" & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

End Sub

Soweit funktioniert auch alles wie gewünscht, jedoch wenn ich das Verzeichnis von [C:] auf [M:] ändere wird die Datei nicht mehr abgespeichert.

In Excel selbst habe ich unter dem Sicherheitscenter den Pfad schon als Vertrauenswürdig eingetragen, und Vertrauenswürdige Dokumente im Netzwerk erlaubt.

Wenn ich den UNC Pfad verwende erstellt es eine Datei, aber nach schließen des Dokumentes funktioniert die Makro wieder nicht.

Eventuell hat ja jemand von euch eine Gute Antwort auf mein Problem.

Würde mich freuen

Gruß Maximilian

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen