C-Button -> Druck, Datei speichern + zurücksetzen

Hallo Forum,
um sehr viel Zeit sparen zu können benötige ich euch.
Gibt es die Möglichkeit einen Code zu erstellen, welcher nachfolgendes eingefügt in einen CommandButton sozusagen per Knopfdruck erledigt?
Tabelle A soll beim Klicken auf den Button gedruckt werden, dabei soll parallel eine Datei unter Pfad X erstellt werden mit Benennung der Zelle B2.
Des Weiteren soll anschließend die Tabelle A auf den Ursprungszustand zurückgesetzt werden.

Bzgl. des Ursprungszustands ist es erforderlich den tatsächlich Zustand wiederherzustellen.
Ich habe es bereits mit einem Code versucht, welcher den Inhalt in Zelle X, Y & Z löscht, da ggf. aber auch Formeln überschrieben werden, welche dann durch reines Löschen des Inhalts in den entsprechenden Zellen nicht wieder hergestellt werden, ist das keine Option.
Es ist natürlich kein Problem eine zweite Tabelle (Tabelle B) - Kopie vom Ursprungszustand Tabelle A - zu erstellen, worauf sich der Code dann beziehen kann.
D.h. der Code löscht dann nach dem Drucken und dem Speichern der Datei dieses Tabellenblatt A und kopiert Tabellenblatt B, mit Benennung X.
Das wäre jetzt meine Idee, aber ich kenne mich mit der Umsetzbarkeit leider überhaupt nicht aus. Ggf. gibt es auch einen besseren respektive einfacheren Weg.
Ich habe für mich festgestellt, dass ClearContents nur passend ist, bei Zellen, die vorher keine Formel hinterlegt habe, welche dann möglicherweise aufgrund von bestimmten Faktoren überschrieben werden kann.
Ich bedanke mich im Voraus für eure Hilfe! 
Gruß,
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
generell würde ich in solchen Fällen als ersten Schritt das kopieren der noch leeren Vorlage in ein neues Blatt bzw Datei ausführen und dann mit dieser Kopie arbeiten.
Für einen neuen Lieferschein fertigt man dann einfach eine neue Kopie der Vorlage an, dann hat man diese Probleme nicht.
wenn du bei deiner Vorgehensweise bleiben willst und das Problem hast, dass es Felder gibt, in denen eine Formel steht, die aber überschrieben werden kann und dann beim Rücksetzen wieder die Formel erscheinen soll, dann kannst du das so relativ einfach realisieren:
1. jedes solcher Eingabefelder mit Vorbelegungsformel besteht aus zwei Zellen.
2. die linke Zelle enthält die Formel bzw den "Standardwert"
3. die rechte Zelle ist leer, bzw hier wird dann der Wert manuell eingetragen.
4. die Spaltenbreite der linken Zelle ziehst du jetzt auf den kleinstmöglichen Wert größer 0 (ein Pixel), die Zelle darf nicht ausgeblendet sein.
das hat dann zur folge, dass wenn die rechte Zelle leer ist, der Wert aus linken Zelle in die rechts daneben liegende Zelle weiter geschrieben wird und somit sichtbar ist
ist die rechte Zelle befüllt, wird natürlich ihr Wert angezeigt und der Wert der linken Zelle verschwindet, weil die Zelle eben sehr schmal ist.
sobald du die rechte Zelle leerst, erscheint wieder der Inhalt der linken Zelle.
Zu beachten ist, dass das Formelergebnis der linken Zelle ein Text sein muss und keine Zahl, da nur Texte leere Nachbarzellen überschreiben und Zahlen immer nur innerhalb der Zelle selbst angezeigt werden. Dh Zahlenergebnisse müssten dann mit TEXT eben unmgewandelt werden.
mit diesem Konstrukt kannst du also in deinem Formular überschreibbare Formeln verwenden, ohne das die Formeln verloren gehen.
Nach leeren der Eingabezelle wird wieder das Formelergebnis angezeigt und du kannst dein Formular einfach durch löschen aller Eingabezellen wieder zurücksetzen.
Gruß Daniel

Sub DruckenSpeichernRücksetzen() With ThisWorkbook.Sheets("Tabelle A") '--- Blatt drucken .PrintOut '--- Datei als Kopie speichern .Copy ActiveWorkbook.SaveCopyAs "C:\Pfad X\" & .Range("B2").Value '--- Rücksetzen .Range("A1,B1,C1").ClearContents .Range("D1").Formula = "Was immer deine Formel hier sein soll" .Range("F1").Formula = "Was immer deine Formel hier sein soll" End With End Sub

Private Sub CommandButton1_Click() With ThisWorkbook.Sheets("Formular") '--- Blatt drucken .PrintOut '--- Datei als Kopie speichern .Copy ActiveWorkbook.SaveCopyAs "C:\Users\XXX\Desktop" & .Range("B2").Value '--- Rücksetzen .Range("B1,B2").ClearContents End With End Sub

Private Sub CommandButton1_Click() Const FTYPE$ = ".xlsx" 'Dateityp der Ziel-Mappe With ThisWorkbook.Sheets("Formular") '--- Blatt drucken .PrintOut '--- Datei als Kopie speichern .Copy ActiveWorkbook.SaveCopyAs "C:\Users\XXX\Desktop\" & .Range("B1").Value & FTYPE '--- Rücksetzen .Range("B1,B2").ClearContents End With End Sub

Sub DruckenSpeichernRücksetzen() With ThisWorkbook.Sheets("Tabelle A") If .Range("B1").Value = "" Then MsgBox "Bitte Referenznummer eintragen" Else '--- Blatt drucken .PrintOut '--- Datei als Kopie speichern (Tabelle A) .Copy ActiveWorkbook.SaveAs FileName:="C:\Users\XXX\Desktop\" & .Range("B2").Value, _ FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close '--- Rücksetzen .Range("B1,B2").ClearContents End If End With End Sub

Beliebteste Forumthreads (12 Monate)

C-Button -> Druck, Datei speichern + zurücksetzen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

C-Button -> Druck, Datei speichern + zurücksetzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread