Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Evaluate bringt #Wert!

Forumthread: Evaluate bringt #Wert!

Evaluate bringt #Wert!
30.08.2007 19:35:18
Günter
Hallo Zusammen,
anbei eine Datei.
https://www.herber.de/bbs/user/45565.xls
Kann mir jemand helfen?
Ich mache wohl einen Denkfehler.
Gruß
Günter

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Evaluate bringt #Wert!
30.08.2007 21:22:00
Josef
Hallo Günter,

.Validation.Formula1


gibt dir einen deutschen Formelstring zurück. "Evaluate" kann aber nur englischsprachige Formeln auswerten.

Gruß Sepp

Anzeige
AW: Evaluate bringt #Wert!
30.08.2007 21:53:00
Herby
Hallo Günter,
probiers mal so:

Sub Test()
Dim sh As Worksheet
Dim Ergebnis
Dim Ze As Integer
Dim Sp As Integer
Set sh = ActiveWorkbook.ActiveSheet
Ze = 1
Sp = 1
Ergebnis = sh.Cells(Ze, Sp).Validation.Formula1
sh.Cells(Ze, Sp + 1).FormulaR1C1Local = Ergebnis
End Sub


Viele Grüße
Herby

Anzeige
Nachtrag
30.08.2007 22:11:00
Herby
Hallo,
die Adressierung der Gültigkeitsformel sieht so aus:
=ODER(Z1S1=1;Z1S1=10;Z1S1="k.B.")
Vielleicht hilfts
Herby

Guter Tipp
31.08.2007 07:13:31
Günter
Hallo Herby,
Dein letzter Tipp mit Z1S1 in Verbindung mit .FormulaR1C1local war gut.
Habe jetzt noch eine Logik mit ersetzten der ZS und " gebaut und es funktioniert.
Der einzige 'Haken' den ich jetzt noch habe ist, dass ich eine Hilfszeile brauche, da ich das Ergebnis weiter verarbeiten möchte (Zellfarbe setzen).
Einen schönen Tag Günter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige