Office: Formelumwandlung in R1C1 Schreibweise

Hallo!

Ich habe ein Blatt in dem User Formeln in Textfelder eingeben; diese lese ich aus und trage sie in Zellen eines andern Workbooks ein.

Bei folgendem Problem hänge ich fest:
Die Formeln sind sind nach dem Schema WENN(A1=0;0;wenn(a2=0;1;"Achtung!")) oder summe(a2:a7) geschrieben. Ich muss aber die Formel in die R1C1 Schreibweise umwandeln da die Excel-sheets, in die sie eingetragen werden, zT Englische Versionen sind und daher nicht mit "Wenn" zurecht kommen.

Also muss irgendwie daraus zB IF(R1C1=0,0,IF(R2C1=0,1,""Achtung!"")) werden.
Die Ausdrücke wie Summe und Wenn und die Zeichen wie ";" etc zu ändern läuft über replace.
ABER: wie extrahiere ich die Formelbezeichnung "A1" oder "as374" aus der Formel? Wenn ich sie einmal habe, kann ich sie auch in R1C1 transformieren. Aber wie extrahiere ich sie aus der Formel?

:)

 

Hi,

verstehe das Problem nicht. IF(...) verstehen Englische Excelversionen doch problemlos *g* Zumindest meine *Smilie
Wenn du die Zellen trotzdem extrahieren willst benutze einfach mid() in VBA:

mid Returns a Variant (String) containing a specified number of characters from a string.

Syntax

Mid(string, start[, length])

Speicher die Formeln als String und suche selbige über SChleifen durch. Sobald z.B. eine Klammer auf oder ein : gefunden wurde sind alle nachfolgenden Zeiche die Spalte bis die erste Zahl kommt, die nächsten Zeichen sind die Reihe bis die erste Nichtzahl kommt. Könnte länger dauern funktioniert aber *Smilie
Warum irgendeine Excelversion nicht mit der Schreibweise zurecht kommen sollte verstehe ich trotzdem noch nicht....

 

Moin, H-C,

ich denke einmal, dass FormulaLocal das Problem äußerst nachhaltig beseitigen würde: Eingabe der Formeln in Landessprache bzw. bei Formula eEingabe der englischen Bezeichnungen, die beim Öffnen automatisch auf Landessprache umgesetllt werden...

Zum Anderen kann man die Umwandlung durch die Address-Eigenschaft (MsgBox Range("A1").Address(ReferenceStyle:=xlR1C1))umstellen...

 

Hi, erstmal vielen Dank für Eure Mühe!

jinx --
FormulaLocal behebt das Problem in der Tat; aber das Problem ist, dass ich sowohl deutsche als auch englische Versionen habe. Es könnte aber klappen, wenn es eine Möglichkeit gäbe, herauszufinden ob es eine englische, deutsche, französische oder spanische Excel-Version ist.

Sonba --
Das Problem ist nicht das "IF"; das kapiert selbst die deutsche Version, wenn man FormulaR1C1 verwendet. Das Problem ist das Umwandeln der Zellpositionen von A1-Schreibweisen in R1C1-Schreibweise.
Klar könnte ich über riesige Schleifen die Formeln durchsuchen lassen, aber wenn ich so ca 100 Formeln zum Durchsuchen habe und diese zT über 3 Zeilen lang sind, braucht das Programm ewig. Deshalb suche ich nach einer etwas einfacheren Umwandlung oder einer sehr "ökonomischen" Schleifenstruktur für das Problem.

 

Hi H-C,

das Sprachversionenproblem habe ich auch. Anbei meine Lösung dazu:

Code:

Hiermit fragst du die Installationssprache ab. Die verschiedenen LCIDs findest du beispielweise unter

http://www.eulanda.de/inside/entwick...uebersicht.htm

@ jinx: cool, kannte Formula Local gar nicht. Das beseitigt zumindest einen Teil der Probleme, solange ich nicht über Schortcuts gehen muss *Smilie

 

Coole Sache!
Ich werds mal ausprobieren und meinen Spezies im UK zu Testzwecken zuschicken; mal sehen was dann kommt.

H-C

 

Ok, also ich habe es ausprobiert aber ein Problem:

Die Kollegin von nebenan hat eine andere LCID als ich; wie kann das sein?
laut LCID hat sie eine englische version, aber sie muss trotzdem die Formeln auf deutsch schreiben, weil sonst nur #NAME in den Zellen steht.

 

Hi,

entweder ich habe mich bei meinen LCIDs verschrieben (wäre ärgerlich, weil ich die so wie beschrieben benutze) oder msoLanguageIDInstall ist nicht die richtige Abfrage (bei mir hats bisher immer funktioniert.) Alternativen gibts viele:
schau mal bei google oder z.B. bei:
http://www.*************************70161_0_0_asc.php

Ich vermute mal, dass die in der Hilfe angegebene Syntax funktionieren müsste:

Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)

Ich dachte allerdings immer, dass die Sprache, mit der installiert wurde auch die Sprache ist, in der man Formeln eingibt. Zumindest bei den Rechnern um mich herum stimmt es.
Würde mich freuen, wenn du postest, was du am Ende verwendet hast, da ich das in meinen Subs dann wohl analog abändern müsste *Smilie Dürfte dann aber hoffentlich msoLanguageIDExeMode sein.