VBA Blatt mit gefilterten Werten kopieren
18.11.2020 09:46:11
Hendrik
ich bräuchte einmal eure Hilfe bei folgendem Problem.:
Ich habe ein Makro, das mir in einer Arbeitsmappe ein einzelnes Blatt kopiert, darauf sämtliche Formeln durch feste Werte ersetzt, dieses Blatt dann einmal als PDF und einmal als neue Mappe abspeichert und dann das kopierte Blatt wieder löscht, damit die Ursprungsmappe unverändert bleibt.
Das funktioniert soweit auch prima, jedoch ist auf dem Blatt eine Tabelle enthalten, in der Werte gefiltert werden können. Sind keine Werte gefiltert, funktioniert alles, mit gefilterten Werten gibt's aber schon direkt beim Kopieren des Blattes den Fehler: Laufzeitfehler ( ) Automatisieungsfehler Das aufgerufene Objekt wurde von den Clients getrennt.
Der Wunsch ist, das dieses Makro auch mit gefilterten Werten funktioniert und in diesem Fall in der PDF und der neuen Arbeitsmappe nur die gefilterten Werte enthalten sind.
Ich hoffe das war verständlich.
Vielen Dank schonmal!
Der Code:
Sub speichern()
' Abspeichern Makro
Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
Range("A1:AW137").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim strMappe1 As String
Dim strTabelle1 As String
strMappe1 = Range("AG8") & " " & " Aufmaß " & Range("A2")
strTabelle1 = "Tabelle1 (2)"
Sheets(strTabelle1).Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveWorkbook.SaveCopyAs ActiveSheet.Range("BA2").Value & strMappe1 & " .xlsx"
'als pdf speichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveSheet.Range("BA2").Value & strMappe1 & " .pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWorkbook.Close savechanges:=False
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle1").Select
End Sub