Excel Zellen rücksetzen

[revell]

Hallo Alle,

Gibt es in Excell eine Funktion mit der ich bestimmte Zellen automatisch rücksetzen kann? Brauch das für ein Formular, das ich drucken möchte und dann wieder auf Null setzen will.
Wenn jemand eine Ahnung hat, wie ich mir einen Button mach, der vielleicht beides in einem Aufwaschen macht, wärs überhaupt toll...

Danke und lg,
revell

[flinx]

Gibt es in Excell eine Funktion mit der ich bestimmte Zellen automatisch rücksetzen kann?

Was genau willst du machen? Den Inhalt von bestimmten Zellen leeren?

[revell]

OK; also ich habe ein einfaches Formular, indem ich bestimmte Werte eingebe und anschließend die Summen verschiedener Zellen mittels simpler Formeln berechne. Ich möchte das Eingegebene ausdrucken und anschliessend die eingegebenen Werte rücksetzen, nicht aber die Formeln löschen natürlich.
Um Fehler bei der Eingabe zu vermeiden habe ich die Felder mit den Formeln gesperrt (Weiß nicht ob das von Bedeutung ist für mein Anliegen... )

[wbendl]

Hi!

Mit folgendem Code wird der Inhalt einer Zelle gelöscht:
Sheets("Tabelle1").Range("A1").ClearContents

1. Schritte in VBA kannst du mit dem Makro-Rekorder machen. Der aufgezeichnete Code ist ein gutes Beispiel für gesuchte Lösungen.

mfg

WB

[flinx]

.. und anschließend das Makro mittels Symbolleisten->re. Maus->Anpassen->Makros->Benutzerdef. Menüelement zuweisen.

[revell]

An Makros hab ich gar nicht gedacht...
Vielen Dank für den Hinweis jedenfalls Hab bereits das Makro und einen dazugehörigen Button in der Symbolleiste erstellt.

lg & schönes Wochenende,
revell

[stz]

Ein Hinweis: Wenn der Button in der Symbolleiste definiert ist, wird das Projekt in dem der Button definiert ist immer mitgeladen, auch dann wenn er nicht benötigt wird. (Speicherresourcen).
Besser: Button im Formular definieren und den Makro zuweisen. Kostet eventuell eine (erste) Zeile im Formular, aber das sollte kein Hindernis sein. Dann kann man auch noch weitere nützliche Buttons projektspezifisch definieren.
M.f.G. Stz.

[revell]

@ stz
Danke für den Hinweis. Nur wie setz ich einen Button direkt ins Formular?

[flinx]

Kannst auch den Button im Worksheet vorm Schließen wieder löschen lassen und beim Öffnen anlegen (in Workbook_Open, Workbook_BeforeClose jeweils das Makro zum Anlegen bzw. Entfernen des Buttons aufrufen bzw. das entsprechende reingeben).

Bsp:
Anlegen:

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
        msoControlButton, ID:=2949, Before:=11
With Application.CommandBars("Worksheet Menu Bar")
    .Controls(11).Style = msoButtonCaption
    .Controls(11).Caption = "Mein_Name"
    .Controls(11).OnAction = "Mein_Makro"

Entfernen:

Application.CommandBars("Worksheet Menu Bar").Controls("Mein_Name").Delete

oder so ähnlich halt...
hth