Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formell aktiviern

Forumthread: Formell aktiviern

Formell aktiviern
23.01.2004 15:35:28
sascha
Hallo Liebe Freunde!!!!!!
Habe mal wieder ein kleines Problem.
Ist es möglich eine Formell in A1 mit einem Button zu aktivieren
Z.b. In Tabelle 1 A1 Steht als Formell =SUMME(SUMMEWENN('1'!E131:J140;D3;'1'!M131:M140)*(M1=D1)) und diese summe soll ausgerechnet werden erst nach Button1 Betätigung. Und das für A1 bis A505
Ist das möglich
Danke in voraus
Gruß Sascha
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formell aktiviern
23.01.2004 15:40:18
soendi
du kannst die zelle leer lassen und per button diese formel einfügen!
nimm den makro-rekorder, zeichne das einfügen der formel in die zelle auf und weise das makro einer schaltfläche zu. fertisch!
soendi
AW: Formell aktiviern NOCH OFFEN
23.01.2004 16:01:50
sascha
Hallo
Danke für antwort aber dann ist die Formell wieder immer aktiv.
Sie soll nur bei Button klick aktiv seien.
Gruß Sascha
Anzeige
AW: Formell aktiviern NOCH OFFEN
23.01.2004 16:04:52
soendi
ja sascha... dann lösch sie wieder!!
klick auf button -> formel wird eingetragen
...
Application.Wait Now + TimeSerial(0,0,3) 'hier wird der wert für 3 sekunden angezeigt
Range("A1").Select 'in A1 steht deine formel
Selection.ClearContents
End Sub
alles klar?
gruss soendi
Anzeige
AW: Formell aktiviern NOCH OFFEN
23.01.2004 16:08:15
sascha
DANKE
Gruß Sascha
AW: Formell aktiviern
23.01.2004 16:12:20
Josef Ehrensberger
Hallo Sascha,
probier mal so.


'in "DieseArbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlAutomatic
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlAutomatic
End Sub
Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub
'in ein Allgemeines Modul
Sub DeinButtonClick()
Application.Calculate
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige