Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte statt Calculate

Werte statt Calculate
05.12.2003 18:04:51
Lorenz K.
Hallo zusammen!
Wie ist es möglich statt Formel gleich das Ergebnis einzusetzen?


If Target.Column = 14 Then
Range(Cells(6, 15), Cells(6, 15)).Copy Cells(Target.Row, 15)
For Each Zelle In BereichV8
If Zelle.HasFormula Then Zelle.Calculate
Next
End If


Was lustiges gefällig? so Hab ich`s probiert:
For Each Zelle In BereichV8
If Zelle.Value >0 Then Zelle.Value = Zelle.Value
PS:
Calculate ist notwendig, da xlCalculation=Manuell

Gruß Lorenz K.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte statt Calculate
05.12.2003 18:59:23
PeterW
Hallo Lorenz,

wenn man wüsste, was das für Formeln sind ließe sich die Berechnung vielleicht direkt im Code durchführen. Könntest du mal eine Beispieltabelle posten?

Gruß
Peter
AW: Werte statt Calculate
05.12.2003 19:26:27
Lorenz K.
Hi Peter!
Solche und ähnliche formeln werden kopiert!

=WENN(WOCHENTAG($B$1)=7;0;WENN(UND(WOCHENTAG($B$1)=2;INDIREKT("'"&TAG($B$1)-1&".'!"&"N"&ZEILE())=0);INDIREKT("'"&TAG($B$1)-3&".'!"&"N"&ZEILE());INDIREKT("'"&TAG($B$1)-1&".'!"&"N"&ZEILE())))
oder
=WENN(SoFt=1;SUMME(($G6=BE$4)*SUMME($GA6*24;SUMME(TEXT("06:00";"HH:MM");-$E6)*24);($J6=BE$4)*$GB6*24;($M6=BE$4)*$GC6*24;($R6=BE$4)*$GD6*24;($U6=BE$4)*$GE6*24;$AJ6);SUMME(($R6=BE$4)*$GD6*24;($U6=BE$4)*$GE6*24;($G6=BE$4)*SUMME(TEXT("06:00";"HH:MM");-$E6)*24))
oder
=WENN(SoFt=0;SUMME(($G6=BE$4)*SUMME(WENN($GA6=0;0;SUMME($GA6*24;-(TEXT($F6;"HH:MM")>="06:00")*SUMME(TEXT("06:00";"HH:MM");-$E6)*24)));($J6=BE$4)*$GB6*24;($M6=BE$4)*$GC6*24);0)


Ich glaube das ist ein bisschen zu heavy für`n CODE.
Grüße Lorenz
Anzeige
AW: Werte statt Calculate
05.12.2003 19:41:03
PeterW
Hallo Lorenz,

stimmt, das wäre etwas zu viel Aufwand.

Nur eine Idee, nicht getestet:
If Zelle.HasFormula Then
Zelle.Calculate
Zelle = Zelle.Value
End If

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige