Tabellenblatt zurücksetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten,
ich habe gehofft, dass es eine recht simple Funktion gibt, bei der man nur das Tabellenblatt im Initialzustand speichert, dann seine Rechnung schreibt und dann - bildlich gesprochen - schließt (ohne zu speichern) und gleich wieder öffnet. Somit könnte man ja auf die ursprüngliche Vorlage zurück kommen. Aber wie es scheint übersteigt das den gratis Support in dem Forum :D
Soweit hab ich ja alles selbst geschrieben... auch das Speichern von einzelnen Tabellenblättern funktioniert. Es hadert lediglich an dem zurück kommen zur Vorlage.
An sich kann ich deinen Vorschlag nutzen, aber da ich für jeden Eintrag bei der Rechnung eine Zeile hinzufüge, muss ich diese ja auch wieder komplett löschen. Aber wenn sich keine andere Lösung findet, werde ich eine Variable mit hoch zählen, die mir dann sagt wie viele eingefügte Zeilen ich wieder löschen muss. Die Kundendaten kann ich auch so überschreiben... wären ja nur 8 Zellen.
Vielleicht hat ja noch ein anderer Nutzer einen Vorschlag in der Richtung. Würde mich auf jeden Fall interessieren.
Viele Grüße
Simon

Hi Simon,
und wieso wehrst du dich so sehr dagegen, eine Bsp-Datei mit den erwähnten Tabellen zu erstellen, die Überschriften mit Bsp-Daten zu füllen und auch einige Datenzeilen mit Bsp-Daten einzutragen?
Und zu deiner Aussage: "Aber wie es scheint übersteigt das den gratis Support in dem Forum :D" kann ich nur schreiben: "Nun hör mal auf zu jammern! Ich bin sicher, auch du weißt, wie oft generell, wie oft bei Nachfragen und vor allem wie kompetent hier bei herber.de geholfen wird!"
Nur, wenn du (oder irgdwer anders) so gar keine erforderlichen Infos, am besten eben in Form von Bsp-Dateien, da lässt, sondern das Problem so allgemein wie es nur geht, formuliert, da kann man echt kaum helfen - wir wissen doch gar nicht, in welchen Zellen deine Daten sind.
weitere Idee von mir (auch gratis^^):


Sub sbTest()
Sheets("Rechnungsvorlage").Copy After:Sheets(Sheets.Count)
With ActiveSheet
.Name = "Rechnung 123"
.Range("A1").Value = Sheets("?").Range("?").Value 'für ? = Name der Tabelle, wo die Daten herkommen und Name der Zelle
.Range("A2").Value = Sheets("?").Range("?").Value
...usw
End With
End Sub

dieser Code erstellt eine Kopie von deiner Rechnungsvorlage als zusätzliches Tabellenblatt am Ende aller Tabellenblätter, ´ändert den Namen der kopierten Tabelle und fügt aus Tabelle?.Zelle? die Werte in Zelle A1 + A2 ein
Deine Tabelle "Rechnungsvorlage " wird gar nicht weiter angefasst, "Rechnungsvorlage" könntest du auch ausblenden.
Hilfts?

Sub aaa() Application.ScreenUpdating = False Application.DisplayAlerts = False With Sheets("Rechnung") '.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="Rechnung_" & Format(Now, "DD.MM.YYYY hhss") .Delete End With With Sheets("Vorlage") .Visible = xlSheetVisible .Copy after:=Sheets(Sheets.Count) .Visible = xlSheetVeryHidden End With Sheets(Sheets.Count).Name = "Rechnung" Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread