Formula vs Value

Hey zusammen,
bin neu hier und hänge gerade an einer echt simplen Aufgabe und komme nicht weiter.
Leider konnte ich auch im Forum und bei Google nichts finden.
Wenn ich etwas übersehen hab, bitte Link teilen.
Nun zum Problem, ich würde gern den Wert einer Zelle in eine Variable schreiben :-).
Nur einmal mit dem Syntax Formula und das andere Mal mit Value.

Sub Beispiel()
If XYZ = True Then
strTempSyn = "Formula"
Else
strTempSyn = "Value"
End If
strWert = Worksheets("Tabelle1").Cells(X, Y). & strTempSyn
End Sub

Hab bereits auf verschiedene Arten versucht die Variable strTempSyn dem Code hinzuzufügen, leider ohne Erfolg.
Lösungsvorschläge sollten nur diese Art der Lösung anstreben. Natürlich könnte das Auslesen des Wertes in die IF-Anweisung eingebettet werden. Allerdings strebe ich diese Art der Lösung NICHT an.
Vllt könnt Ihr mir hier weiterhelfen.
Danke schon mal..
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Beispiel() Dim strTempSyn As String, strWert As String, XYZ As Boolean, X As Long, Y As Long X = 4 Y = 2 XYZ = True If XYZ = True Then strTempSyn = "Formula" Else strTempSyn = "Value" End If strWert = CallByName(Worksheets("Tabelle1").Cells(X, Y), strTempSyn, VbGet) End Sub

…VBA-Basiskenntnissen derartige Überlegungen anstellt, Thomas, ;-)
denn das sieht man hier nur selten, selbst bei Leuten mit langjähriger Erfahrung. Deshalb noch ein Tipp:
Eine boolesche Variable kann nur 2 Werte annehmen und ein Vgl liefert auch immer eine solche. Folglich ist ein Vgl wie If XYZ = True Then doppelt gemoppelt, If XYZ Then würde reichen.
Desweiteren ist es immer günstig, Variablen, die sich auch mal ändern könnten, über Konstanten, die am PgmAnfang per Const … deklariert wdn, zu befüllen. Man muss dann bei Bedarf nur den Inhalt der Konstanten am PgmAnfang ändern und nicht das uU lange ganze Pgm durchsuchen. Das beträfe hier X, Y, XYZ und den Namen des Blattes, die direkt als Konstanten angelegt wdn könnten, weil sie sich im Pgm nicht erkennbar ändern. Sollte das aber dennoch im Pgm geschehen, sollte wenigstens ihr Startwert als Konstante festgelegt wdn.
Das könnte man auch mit den TextBezeichnern der Range-Eigenschaften machen, obwohl das hier weniger wichtig wäre. Andererseits eignet sich CallByName als 3.ReferenzierungsTyp (neben CallByReference und CallByValue) auch hervorragend für eine Obfuskation des Pgms, falls das mal erforderlich würde. Allerdings muss der 1.Parameter stets ein Objekt sein, der 2. der einfache Name einer Eigenschaft desselben, der auch verschlüsselt vorgegeben, aber dann in der Methode selbst entschlüsselt wdn muss (zB durch Notation einer dafür geeigneten Fkt, der der verschlüsselte NamensText übergeben wird, als 2.Parameter). In solchen Fällen könnte auch etwas anders vorgegangen wdn (hier mal unverschlüsselt):

Const XYZ As Boolean = True, X As Long = 4, Y As Long = 2, _
relBlatt As String = "Tabelle1", tempSyn As String = "Value Formula"
Dim arxTempSyn() As String, zWert As Variant
arxTempSyn = Split(tempSyn)
zWert = CallByName(Worksheets(relBlatt).Cells(X, Y), arxTempSyn(Abs(XYZ)), VbGet)

Das wäre dann schon alles.
Morrn, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread