Funktionen aus VBA Code von deutsch in englisch ü
23.08.2004 12:34:24
Anja
ich habe immer noch das Problem mit verschidenen Versionen.
Also ich habe jetzt verstanden, dass das Problem im Prinzip lösbar ist.
Nun muss ich die deutsche Formeln, die ich in VBA geschrieben habe in englisch übersetzen,... so dass sie wie in deutsche, so in englischer Version funktionieren. So habe ich zum Beispiel SVEREIS übersetzt und habe in VBA code so geschrieben:
Formula_new_3 = "=VLOOKUP(L15,'Components Assignment_new'!A:C,2,0)"
Und als Ergebniss bekomme ich komischer weise das hier
=SVERWEIS('L15';'Components Assignment_new'!A:Y:Y;2;0)
Und das ist doch Blödsinn, was er da übersetzt hat..
So ähnlich ist das auch mit anderen Funktionen: hier sind die auf deutsch,
könnt ihr mir helfen sie in englische Version zu übersetzen, so dass sie wie in englischer so auch in deutscher Version funktionieren. Es wäre echt super:
1. Formula_1 = "=WENN(ISTFEHLER(C4-C3);0;WENN(C4- C3 kleiner 0;0;WENN(A4 ungelich A3;0;C4-C3)))" ' hier muss ich es mit Wörter schreiben, da HTML akteptiert das nicht
Range("E" & StartRow & ":E" & iRowNext).FormulaLocal = Formula_1
2. iRowNext = ActiveSheet.Cells(Rows.Count, 26).End(xlUp).Row
StartRow = 7
Formula_1 = "=WENN(ISTFEHLER(VERGLEICH(Z7;Data_Interface!$B$3:$IV$3;0));0;WENN(ISTFEHLER(VERGLEICH(Y7;Data_Interface!$B$3:$B$50000;0));0;SVERWEIS(Y7;Data_Interface!$B$3:$IV$50000;VERGLEICH(Z7;Tabelle1!$B$3:$IV$3;0);0)))"
Range("AT" & StartRow & ":AT" & iRowNext).FormulaLocal = Formula_1
3. Formula_2 = "=Summe(I6;K6)"
Range("Q6:Q" & iRowNext).FormulaLocal = Formula_2
4. Formula_1 = "=WENN(ISTFEHLER(SVERWEIS(C6;TEST_INFO!A:C;3;0));"""";SVERWEIS(C6;TEST_INFO!A:C;3;0))"
Range("R" & StartRow & ":R" & iRowNext).FormulaLocal = Formula_1
6. Formula_2 = "=WENN(ISTFEHLER(VERGLEICH(A14;Data_Interface!$E$3:$IV$3;0));0;WENN(ISTFEHLER(VERGLEICH(D14;Data_Interface!$B$7:$B$50000;0));0;SVERWEIS(D14;Data_Interface!$B$7:$IV$50000;VERGLEICH(A14;Data_Interface!$B$3:$IV$3;0);0)))"
Range("E" & StartRow & ":E" & iRowNext).FormulaLocal = Formula_2
7. Formula_new = "=WENN(ISTFEHLER(SUMMENPRODUKT((Testplan_GTC_Probe!$A$6:$A$" & iLetzt & " =A14)*(Testplan_GTC_Probe!$R$6:$R$" & iLetzt & "=D14)*(Testplan_GTC_Probe!$Q$6:$Q$" & iLetzt & ")));"""";SUMMENPRODUKT((Testplan_GTC_Probe!$A$6:$A$" & iLetzt & "=A14)*(Testplan_GTC_Probe!$R$6:$R$" & iLetzt & "=D14)*(Testplan_GTC_Probe!$Q$6:$Q$" & iLetzt & ")))"
Range("G" & StartRow & ":G" & iRowNext).FormulaLocal = Formula_new
Das ist sehr wichtig für mich!!!
Ich danke im Voraus für eure Mühe .
Viele Grüße
Anja