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

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige