Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blatt kopieren nur mit Inhalt funktioniert nicht

Blatt kopieren nur mit Inhalt funktioniert nicht
20.02.2018 17:15:31
günne
Guten Abend Excel-Gemeinde,
ich habe mir selber eine kleine Rechnungsverwaltung erstellt und bis auf diese eine Sache läuft alles gut.
Wenn eine Rechnung geschrieben ist kommt der Druck. Hierbei wird nicht nur das Blatt gedruckt, sondern soll im Hintergrund als PDF und als Excel-Datei, aber ohne die Verknüpfungen/Formeln, dafür aber mit Inhaltswerten und Formaten, sowie der Kopfgrafik, in einen vorgegebenen Pfad gespeichert werden.
Die Excel-Datei wird auch entsprechend gespeichert. In der Vorschau sieht man auch alle Daten und das die Rechnung genau so aussieht, wie sie aussehen soll. Beim Öffnen der Datei (um daraus zum Beispiel eine Mahnung zu machen) erscheint folgende Meldung:
Das Dateiformat und die Dateierweiterung passen nicht zueinander. Möglicherweise ist die Datei beschädigt.
Nach dem Öffnen sind die eingetragenen Daten weg.
Ich habe alles Mögliche probiert, von anderen Excel-Formaten (xlsx, xls usw.), bis hin zum Makrorekorder...aber der bringt mir nicht die erhoffte Erlösung.
Hier noch mein Code:

Private Sub btnRechnungDrucken_Click()
'‚ Rechnung drucken
bez = ActiveSheet.Range("A1").Value
If bez = "" Then
Exit Sub
MsgBox ("Bitte zuerst die ganzen Daten erfassen. Ich kann nicht ohne Kundendaten drucken!")
Else
'jetzt eintrag in mahnwesentabelle
Eintrag_Mahnwesen_REKopie   '_REKopie
'Zahlungsziele_festlegen
frmPrinter.Show
Blatt = "REKopie"
ActiveSheet.Range("A1").Select
'‚ Aufruf der Druckroutine
Drucken Blatt, Bereich
MsgBox ("Die Rechnung wird jetzt als PDF gesichert in:" & Chr(13) & _
"Ordner: ABLAGE_RECHNUNGEN" & Chr(13) & _
"mit der Bezeichnung: Rechnungsnummer + Name + Datum")
'pdf der Rechnungskopie erzeugen
Range("A1:G37").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\PV-Reinigung\ABLAGE_RECHNUNGEN\ " & ActiveSheet.Range("A1").Value, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
XLSRechnungAblage
Sheets("Rechnung").Activate
rechnung_neu
Sheets("Menü").Select
End Sub

Sub XLSRechnungAblage()
'
' XLSRechnungAblage Makro
Sheets("Rechnung").Select
Range("A1:G38").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "c:\PV-REINIGUNG\ABLAGE_RECHNUNGEN\" & Range("a1").Value & ".xlsx"
Windows("2018_PV-Reinigung-Rechnungserstellung.xls").Activate
Sheets("Rechnung").Select
Range("a5").Select
End Sub
Für jegliche Anregung bin ich dankbar

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt kopieren nur mit Inhalt funktioniert nicht
20.02.2018 17:31:21
ChrisL
Hi
Speichere mal als *.xlsm
cu
Chris
AW: Blatt kopieren nur mit Inhalt funktioniert nicht
22.02.2018 20:18:11
guenther.nebel@googlemail.com
Hallo nochmal, danke für den Tip, aber als xlsm erhalte ich den Fehler 1004...Meldung mit Dateityp. Mit XLSX speichert es zwar, aber leider zeigen mir dann die Felder in welchen Verknüpfungen waren nur Wert# oder NW#....wie gesagt, ich will einfach eine 1:1 Kopie des Blattes, welches später ggf. nochmals bearbeitet werden kann.
AW: Blatt kopieren nur mit Inhalt funktioniert nicht
25.02.2018 08:26:37
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Code kann nur eine XLSM Datei sein. XLSX enthält keinen Code.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: Blatt kopieren nur mit Inhalt funktioniert nicht
25.02.2018 19:07:53
GünNe
Lieber Chris, lieber Hajo,
besten Dank für Rat und Tat. Ich habe es tatsächlich geschafft. Vermutlich ist es nicht schön, aber es macht genau das was ich will.
Sub XLSRechnungAblage()
'kopiert die Rechnung als Excel-Datei zum Wiederbearbeiten
Dim sFile As String
ActiveWorkbook.Windows(1).SelectedSheets.Copy
ActiveSheet.Unprotect
sFile = Range("a1").Value
'sFile = InputBox("export in: Dateinamen angeben:")
If sFile = "" Then Exit Sub
If Dir(sFile)  "" Then
Beep
If MsgBox("Existiert schon, überschreiben?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ChDir "C:\PV-REINIGUNG\ABLAGE_RECHNUNGEN\"
ActiveWorkbook.SaveAs sFile & ".xlsx"
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige