Excel 2003 Problem: Range - Value - Funktion?

faulwurf · 10.11.2005, 19:32

Hallo Leute,

im Großen und Ganzen komme ich ja gut mit Excel VBA zurecht, aber irgendwie habe ich gerade ein kleines Problem, welches ich nicht lösen kann.

In meinem jugendlichen Leichtsinn dachte ich mir folgendes:

Range("XY").Value = "=Wenn(X>Y;DANN;SONST)"

Das funktioniert leider nicht

Was z.B. funktioniert ist folgendes:

Range("XY").Value = "=a+b/c"

Es schleicht mich also der Verdacht, dass es an der Value-Anweisung liegt?
Das Ziel ist es, dass das VBA Script eine Wenn- Funktion in eine Zelle schreibt...

Ich brauche Hilfe bzw. Denkanstöße! Vielen Dank

porschinho · 10.11.2005, 20:22

leg dir doch die anweisung in ne versteckte zelle und kopier die dahin, wo du sie hin haben willst

sorry, war nicht wirklich ernst gemeint, obwohl das sicherlich so gehen könnte... ich bezweifel jedoch, dass du hier einen VBA-spezialisten findest. gute excel kenntnisse werden sicherlich einige haben, aber da hört es dann auch meistens auf. oder haben wir hier vieleicht jemanden, der bruflich was in dieser richtung macht?

faulwurf · 10.11.2005, 20:25

Ich kann mir vorstellen, dass es überhaupt nicht so schwer ist... ich komme nur heute irgendwie nicht weiter mit einer Lösung

Xaicon · 10.11.2005, 20:54

Code:

Range("A1").FormulaR1C1 = "=WENN(X>Y,DANN,SONST)"

So

Code:

    Range("XY").Select
    ActiveCell.FormulaR1C1 = "=WENN(X>Y,DANN,SONST)"

oder so müsste es klappen.

faulwurf · 10.11.2005, 21:02

Ich fress nen Besen und schreie laut "Ich Idiot!", wenn das funktioniert morgen.

VIELEN DANK!

Ich säg ja... ich hätte selbst drauf kommen können

Mr. White · 10.11.2005, 22:26

Off-Topic:
Xaicon, du bist absolute Nerdhäuptling! Seit wann kannst du Excel so gut? Das wusste ich noch garnicht. Du wirst in Zukunft noch mehr "Hilf mir ich dreh durch" E-mails von mir bekommen. Du Freak!

faulwurf · 11.11.2005, 09:23

Das funktioniert leider beides nicht...

Zitat:

Laufzeitfehler '1004':

Anwendungs- oder objektdefinierter Fehler

Ich habe beide Möglichkeiten ausprobiert.

Xaicon · 11.11.2005, 09:39

Zitat:

Zitat von faulwurf

Das funktioniert leider beides nicht...

Ich habe beide Möglichkeiten ausprobiert.

Hast Du auch "=WENN(X>Y,DANN,SONST)"? Also Komma statt Semikolon.
Es steht dann in der Zelle schon ein Semikolon, nur für die Formel wird ein Komma gebraucht. Bei mir hat es funktioniert.

Off-Topic:

Zitat:

Zitat von Mr. White

Off-Topic:
Xaicon, du bist absolute Nerdhäuptling! Seit wann kannst du Excel so gut? Das wusste ich noch garnicht. Du wirst in Zukunft noch mehr "Hilf mir ich dreh durch" E-mails von mir bekommen. Du Freak!

Ich mach auch nicht viel in VBA, aber ich denke es gibt viel, was ich mache und Du nix von weisst.

faulwurf · 11.11.2005, 10:49

@Xaicon: Ja, das mit dem Semikolon war mein Fehler, löst das Problem aber noch nicht ganz.

Ich bin jetzt aber schon einen Schritt weiter gekommen, denn das VBA-Makro fügt die Wenn-Funktion jetzt in die entsprechenden Tabellenblätter ein.

Ich verwende momentan folgenden Code:

Code:

Range(("J") + (z2)).Select
ActiveCell.FormulaR1C1 = "=If(F" + z2 + "=0,0,I" + z2 + "*100/F" + z2 + ")"

(z2 ist eine Variable)

Im Tabellenblatt zeigt die Wenn-Funktion einen Fehler an #NAME? Woran kann das liegen? Die Funktion sieht in der Ausgabe so aus:

Code:

=WENN('F25'=0;0;'I25'*100/'F25')

Wenn ich per Hand die ' entferne, funktioniert die Funktion tadellos.
Ich hoffe ich bin der Lösung schon näher gekommen

Xaicon · 11.11.2005, 14:25

ich hätte es jetzt so gemacht:

Code:

Range("J" + z2).Select
ActiveCell.FormulaR1C1 = "=if(RC[-4]=0,0,RC[-1]*100/RC[-4])"

RC[-4] ist quasi von Spalte J vier Spalten nach links, gleiche Zeile.
Tut also das gleiche, und ich denk es hilft Dir weiter.
#NAME? bekomme ich nur, bei falschen Zellenformationen...
Das ist genau so wie #WERT? bei Zellentyp "Zahl" oder dergleichen..

faulwurf · 11.11.2005, 16:05

Jaa! Das fehlte noch zum Glück

Vielen Dank!

Xaicon · 11.11.2005, 16:10

Kein Thema

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Excel 2003 VBA - Bestimmte Zellen ver- und entschlüsseln ?	faulwurf	Software	1	04.04.2006 21:21
Problem mit Winamp 5.05 - Jump Funktion	faulwurf	Software	6	22.10.2005 13:52
Animierte Gifs (Animationen) in Excel 2000/2003 einfügen?	faulwurf	Software	0	07.10.2005 10:20
Siedler 2 - Out of Range	Stupid Duck	Software	0	16.11.2003 18:06

10.11.2005, 19:32	#1 (permalink)
faulwurf	Excel 2003 Problem: Range - Value - Funktion? Hallo Leute, im Großen und Ganzen komme ich ja gut mit Excel VBA zurecht, aber irgendwie habe ich gerade ein kleines Problem, welches ich nicht lösen kann. In meinem jugendlichen Leichtsinn dachte ich mir folgendes: Range("XY").Value = "=Wenn(X>Y;DANN;SONST)" Das funktioniert leider nicht Was z.B. funktioniert ist folgendes: Range("XY").Value = "=a+b/c" Es schleicht mich also der Verdacht, dass es an der Value-Anweisung liegt? Das Ziel ist es, dass das VBA Script eine Wenn- Funktion in eine Zelle schreibt... Ich brauche Hilfe bzw. Denkanstöße! Vielen Dank __________________ Gruss faulwurf

10.11.2005, 20:22	#2 (permalink)
porschinho	AW: Excel 2003 Problem: Range - Value - Funktion? leg dir doch die anweisung in ne versteckte zelle und kopier die dahin, wo du sie hin haben willst sorry, war nicht wirklich ernst gemeint, obwohl das sicherlich so gehen könnte... ich bezweifel jedoch, dass du hier einen VBA-spezialisten findest. gute excel kenntnisse werden sicherlich einige haben, aber da hört es dann auch meistens auf. oder haben wir hier vieleicht jemanden, der bruflich was in dieser richtung macht?

10.11.2005, 20:25	#3 (permalink)
faulwurf	AW: Excel 2003 Problem: Range - Value - Funktion? Ich kann mir vorstellen, dass es überhaupt nicht so schwer ist... ich komme nur heute irgendwie nicht weiter mit einer Lösung __________________ Gruss faulwurf

10.11.2005, 20:54	#4 (permalink)
Xaicon	AW: Excel 2003 Problem: Range - Value - Funktion? Code: Range("A1").FormulaR1C1 = "=WENN(X>Y,DANN,SONST)" So Code: Range("XY").Select ActiveCell.FormulaR1C1 = "=WENN(X>Y,DANN,SONST)" oder so müsste es klappen. __________________ Man reiche mir mein LART! Kein Support bei IT-Fragen via ICQ, Skype, PN oder Email! (Stammuser ausgenommen)

10.11.2005, 21:02	#5 (permalink)
faulwurf	AW: Excel 2003 Problem: Range - Value - Funktion? Ich fress nen Besen und schreie laut "Ich Idiot!", wenn das funktioniert morgen. VIELEN DANK! Ich säg ja... ich hätte selbst drauf kommen können __________________ Gruss faulwurf

10.11.2005, 22:26	#6 (permalink)
Mr. White	AW: Excel 2003 Problem: Range - Value - Funktion? Off-Topic: Xaicon, du bist absolute Nerdhäuptling! Seit wann kannst du Excel so gut? Das wusste ich noch garnicht. Du wirst in Zukunft noch mehr "Hilf mir ich dreh durch" E-mails von mir bekommen. Du Freak! __________________ Gleich reiß ich dir den Sack ab!

11.11.2005, 10:49	#9 (permalink)
faulwurf	AW: Excel 2003 Problem: Range - Value - Funktion? @Xaicon: Ja, das mit dem Semikolon war mein Fehler, löst das Problem aber noch nicht ganz. Ich bin jetzt aber schon einen Schritt weiter gekommen, denn das VBA-Makro fügt die Wenn-Funktion jetzt in die entsprechenden Tabellenblätter ein. Ich verwende momentan folgenden Code: Code: Range(("J") + (z2)).Select ActiveCell.FormulaR1C1 = "=If(F" + z2 + "=0,0,I" + z2 + "100/F" + z2 + ")" (z2 ist eine Variable) Im Tabellenblatt zeigt die Wenn-Funktion einen Fehler an #NAME?* Woran kann das liegen? Die Funktion sieht in der Ausgabe so aus: Code: =WENN('F25'=0;0;'I25'*100/'F25') Wenn ich per Hand die ' entferne, funktioniert die Funktion tadellos. Ich hoffe ich bin der Lösung schon näher gekommen __________________ Gruss faulwurf

11.11.2005, 14:25	#10 (permalink)
Xaicon	AW: Excel 2003 Problem: Range - Value - Funktion? ich hätte es jetzt so gemacht: Code: Range("J" + z2).Select ActiveCell.FormulaR1C1 = "=if(RC[-4]=0,0,RC[-1]*100/RC[-4])" RC[-4] ist quasi von Spalte J vier Spalten nach links, gleiche Zeile. Tut also das gleiche, und ich denk es hilft Dir weiter. #NAME? bekomme ich nur, bei falschen Zellenformationen... Das ist genau so wie #WERT? bei Zellentyp "Zahl" oder dergleichen.. __________________ Man reiche mir mein LART! Kein Support bei IT-Fragen via ICQ, Skype, PN oder Email! (Stammuser ausgenommen)

11.11.2005, 16:05	#11 (permalink)
faulwurf	AW: Excel 2003 Problem: Range - Value - Funktion? Jaa! Das fehlte noch zum Glück Vielen Dank! __________________ Gruss faulwurf

11.11.2005, 16:10	#12 (permalink)
Xaicon	AW: Excel 2003 Problem: Range - Value - Funktion? Kein Thema __________________ Man reiche mir mein LART! Kein Support bei IT-Fragen via ICQ, Skype, PN oder Email! (Stammuser ausgenommen)

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen