Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Evaluate bringt #Wert!

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige