Office: Inhalte zurücksetzen auf Ausgang

Vielen Dank, ja das Problem mit dem Button sehe ich auch so, nur leider habe ich noch keine Idee für eine andere Lösung.

In der Arbeitsmappe ist ein Reiter der immer weiter gefüllt werden muss. Damit, wenn man in die anderen Reiter Zahlen einträgt, weiterführende Zellen automatisch gefüllt werden.
Die Datei muss nach dem Füllen, aber in einem anderen Ordner gespeichert werden, damit die Liste nicht verschwindet die immer weiter gefüllt werden muss mit informationen. Muss dies auch als Masterdatei abgespeichert werden.
Nur möchte der nächste der die Felder in den ersten 16Reitern füllen muss, sicher nicht hergehen und alles händisch löschen wollen, um diese dann füllen zu können, darum suchte ich eine Möglichkeit um die Daten mit einem Klick zu entfernen.

Was wie du auch schon erwähntest nicht ganz ungefährlich ist, daher habe ich diesen Button in rot und nur auf einem Reiter.

 

Button in rot ist gut und schön, bringt nur nix.
Du kannst noch eine Abfrage einbauen. Erfahrungsgemäß klicken allerdings User aufpoppende Meldungen ungelesen weg ("Welche Meldung? Achso die... das hab ich noch nie gelesen").

Code:

Oder ein bisschen gefinkelt, um das Lesen der Messagebox zu erzwingen

Code:

 

In einer anderen Frage von mir hatte ich ein Problem mit VBA angesprochen, bei mir kam dann nämlich immer folgender Text.

Ich hatte dann die komplette (da ich zum Glück noch nicht ganz soweit war) noch einmal bei null angefangen und die Tabelle neu geschrieben ohne Makros.
Nun habe ich eine Sicherungskopie gemacht und es noch einmal ausprobiert, jetzt ging es. Ich weiss leider nicht warum dies beim letzten mal nicht funktioniert hat.

Ich hoffe ich konnte in meinem vorherigen Beitrag einigermassen gut erklären warum ich das mit deinem Vorschlag nicht übernehmen konnte.

 

Weitere Idee:

Mach von allen 16 Tabellenblättern eine Kopie in der gleichen Arbeitsmappe mit der zusätzlichen Bezeichnung "Vorlage" oder ähnlichem. Diese blendest du in der Mappe aus.

Per Button kannst du die "originalen" Blätter löschen und die Vorlagen kopieren.

Selbes Ergebnis, läuft aber womöglich schneller (je nachdem, wieviele Felder du sonst händisch löschen lässt).

 

So das mit dem Button und den Codes funktioniert super. Das mit dem auf "Nein" klicken ist eine gute Idee.

Ich werde später nichts mehr mit der Tabelle zu tun haben, dies soll ein selbstläufer werden und verschiedene Abteilungen müssen Daten in diese Tabelle eintragen.
Das mit der Kopie der 16Datenbläter ist eine gute Idee, wird aber wahrscheinlich keiner machen wollen.

Gibt es vielleicht eine Möglichkeit (auch als Button *wink.gif* ) zu sagen "nimm Datenblatt 1, 2, 3, ...., 8 und lege dafür eine neue Datei an?

Das wäre eine optimale Lösung.

 

Dass das keiner händisch machen wird, ist klar. Die Idee war ja, die Blätter per VBA zu löschen und durch die Vorlagenblätter (die sowieso keiner sieht, da ausgeblendet) zu ersetzen.

Aber wenn dein Code jetzt eh schon funktioniert, wozu dann noch Zeit investieren in eine andere Lösung, die im Ergebnis nichts anderes macht?

 

Bei dieser Fehlermeldung geht es nicht um VBA.

Es ist möglich in einer freigebenen Arbeitsmappe VBA zu benutzen. Es gibt eine andere Meldung, die darauf hinweist, dass man VBA in einer freigegebenen Mappe nicht ändern kann. Trotzdem lässt sich der Code ausführen. Ich denke das führt manchmal zu Missverständnissen.

 

Genau dieses Verhalten bekommst du, wenn du eine Datei als Vorlage abspeicherst. Immer wenn du die Vorlage öffnest, wird eine neue, leere Datei erstellt, die man dann befüllen kann. Will man mit einer leeren Datei neu anfangen, "öffnet" man wieder die Vorlage.

 

\@Santa: Das hatte er aber schon erklärt, dass das nicht geht, weil in einem Tabellenblatt fortlaufend etwas eingetragen wird, was dann für den nächsten verfügbar sein soll.

 

Achso meintest du das, ja das würde mir jetzt beim schreiben eine Menge Zeit ersparen, dein Makro habe ich jetzt erstmal nur auf 8 Zellen angewendet.

Wenn dies natürlich für ganze Tabellenblätter geht ist deine Idee natürlich wesentlich besser und ich spare viel Zeit.

Also via Makro die 16 Datenblätter nehmen und als Datei speichern und durch neue ersetzen, meintest du dies so?

 

Jein.
Zuerst musst du mir aber sagen, wie der Ablauf sein soll.
Der User macht seine Eingaben. Und was soll mit diesen dann geschehen? Soll das in eine separate Datei gespeichert werden? Und danach die Vorlage wieder auf 0 gesetzt werden?

Und noch was:
Haben die 16 Blätter lauter unterschiedliche Namen oder lauten die auf "Blatt1", "Blatt2" usw.?

 

So da bin ich wieder hatte Urlaub und noch ein haufen anderer Sachen zu tun, sorry das ich nicht geantwortet hatte.

Genau der User gibt seine Daten ein und dann muss das als separate Datei gespeichert werden.

ja die 16 Blätter haben unterschiedliche Namen

 

So, ich hab mich nochmal durch den ganzen Verlauf gelesen um überhaupt wieder zu wissen, worum es geht.

Ich wiederhole nochmal meine Frage von oben:

Mach es doch einfach so mit dem Löschen der einzelnen Zellen bzw. Bereiche wie schon von dir angegeben.

 

Ich hab das nur für einen Reiter in 8 Zeilen ausprobiert, dies ist nicht komplett durchgeschrieben für alles, darum meine Antwort auf deine letzten Fragen.

 

Du musst ja nur EarlFreds Code entsprechend auf deine Bedürfnisse anpassen:

Code:

Dies setzt natürlich voraus, dass in jedem der 16 Blätter immer die gleichen Zelleninhalte geleert werden müssen. Sollte auf einem Blatt A1, auf einem anderen Blatt aber A2 geleert werden, dann darfst du die unterschiedlichen Zellen nicht in die Schleife mit reinpacken sondern musst diese separat je Tabellenblatt ansprechen. Das geht dann zB so:

Code:

usw. usw.
D.h. innerhalb der Schleife alle Zellen ansprechen, die in allen Tabellenblättern geleert werden. Einzelne Zellen über ein With ansprechen.