zelle mit vba formel versehen

Bild

Betrifft: zelle mit vba formel versehen
von: mehmet
Geschrieben am: 02.11.2003 15:12:46

hallo forum,
das letzte problem fuer heute 8-)

folgende formel habe ich per vba-recorder aufgenommen

allerdings bekommme ich fehlermeldung
woran koennte das liegen

Range("d3").Select
ActiveCell.FormulaR1C1 = "=
IF(MID(opsur!C2,1,3)="n-1","A 300", _
IF(MID(opsur!C2,1,3)="n-2","B 747", _
IF(MID(opsur!C2,1,3)="n-3","B 767", _
IF(MID(opsur!C2,1,3)="n-4","B 757", _
IF(MID(opsur!C2,1,3)="n-5","n-5xx","")))))& _
IF(MID(opsur!C2,1,3)="n-6","n-6xx", _
IF(MID(opsur!C2,1,3)="n-7","n-7xx", _
IF(MID(opsur!C2,1,3)="n-8","n-8xx", _
IF(MID(opsur!C2,1,3)="n-9","B 727",""))))"


dank euch
gruss

Bild


Betrifft: AW: zelle mit vba formel versehen
von: Ramses
Geschrieben am: 02.11.2003 15:55:48

Hallo

Ich glaube nicht, dass der Code mit einem Makro aufgezeichnet wurde,.... sonst würde die Referenzierung

ActiveCell.FormulaR1C1 = _
"=IF(MID(OPSUR!R[-7]C[-3],1,3)....

usw. lauten und nicht direkt auf die Zelle C2 verweisen.
Und darin liegt dein Problem.
Zeichne das Makro nochmal auf indem du die Formel nochmals vollständig eingibst.

Gruss Rainer


Bild


Betrifft: AW: zelle mit vba formel versehen
von: es will nicht
Geschrieben am: 02.11.2003 16:32:51

hallo rainer
es will nicht!
habe mehrmals aufgezeichnet und die bestehende formel von
einem texteditor datei kopiert und in die zelle eingefuegt.
natuerlich habe ich nicht die formel untereinander
sondern hintereinander eingefuegt
gruss


Bild


Betrifft: Zeig mal den aufgezeichneten Code. o.T.
von: Ramses
Geschrieben am: 02.11.2003 16:46:47

...


Bild


Betrifft: @Ramses
von: Josef Ehrensberger
Geschrieben am: 02.11.2003 16:57:13

Hi Ramses,

wenn ich richtig verstehe, versucht mehmet
den aufgezeichneten Code in die Zelle als
Formel einzutragen, was ja nicht funktionieren kann.

Gruß Sepp


Bild


Betrifft: AW: @Ramses
von: Ramses
Geschrieben am: 02.11.2003 16:58:28

Hallo Sepp,

für was soll das gut sein ?

Gruss Rainer


Bild


Betrifft: keine ahnung! (0.T.)
von: Josef Ehrensberger
Geschrieben am: 02.11.2003 17:01:36

/


Bild


Betrifft: AW: Zeig mal den aufgezeichneten Code. o.T.
von: mehmet
Geschrieben am: 02.11.2003 17:07:53

hallo ramses

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/2/03 by mehmet
'
'
    Range("D1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(OPSUR!R[1]C[-1],1,3)=""n-1"",""A 300"",IF(MID(OPSUR!R[1]C[-1],1,3)=""n-2"",""B 747"",IF(MID(OPSUR!R[1]C[-1],1,3)=""n-3"",""B 767"",IF(MID(OPSUR!R[1]C[-1],1,3)=""n-4"",""B 757"",IF(MID(OPSUR!R[1]C[-1],1,3)=""n-5"",""n-5xx"","""")))))MID(OPSUR!R[1]C[-1],1,3)=""n-6"" ""n-6x"
    Range("E1").Select
End Sub


gruss


Bild


Betrifft: Funktioniert...
von: Ramses
Geschrieben am: 02.11.2003 17:26:50

Hallo

Wenn ich alles nach dem Sonderzeichen "" das nach "...n-5xx"","""")))))" entferne, funktioniert es mir !
Also das Prinzip stimmt.
Warum es bei dir nicht haut, weiss ich leider nicht

Gruss Rainer


Bild


Betrifft: AW: Funktioniert...
von: mehmet
Geschrieben am: 02.11.2003 18:11:19

hallo rainer
letzter versuch

Sub Macro1()
    Range("D1").Select
    ActiveCell.FormulaR1C1 = _
      "=IF(MID(opsur!C2,1,3)="n-1","A 300", _
        IF(MID(opsur!C2,1,3)="n-2","B 747", _
        IF(MID(opsur!C2,1,3)="n-3","B 767", _
        IF(MID(opsur!C2,1,3)="n-4","B 757", _
        IF(MID(opsur!C2,1,3)="n-5","n-5xx","")))))& _
        IF(MID(opsur!C2,1,3)="n-6","n-6xx", _
        IF(MID(opsur!C2,1,3)="n-7","n-7xx", _
        IF(MID(opsur!C2,1,3)="n-8","n-8xx", _
        IF(MID(opsur!C2,1,3)="n-9","B 727",""))))"
    Range("E1").Select
End Sub

woher kommt den dieser sonderzeichen?
dieser code wird bei mir rot angezeigt
dank dir


Bild


Betrifft: So kanns nicht funktionieren...
von: Ramses
Geschrieben am: 02.11.2003 19:18:31

Hallo,

Das ist der gleiche Code wie vorher :-(


Wenn schon, dann muss es so heissen, ... und so tut's bei mir


Sub Makro2()
    Range("D1").Select
    ActiveCell.FormulaLocal = _
    "=WENN(TEIL(opsur!C2;1;3)=""n-1"";""A 300""; WENN(TEIL(opsur!C2;1;3)=""n-2"";""B 747""; WENN(TEIL(opsur!C2;1;3)=""n-3"";""B 767""; WENN(TEIL(opsur!C2;1;3)=""n-4"";""B 757""; WENN(TEIL(opsur!C2;1;3)=""n-5"";""n-5xx"";""""))))) + WENN(TEIL(opsur!C2;1;3)=""n-6"";""n-6xx""; WENN(TEIL(opsur!C2;1;3)=""n-7"";""n-7xx""; WENN(TEIL(opsur!C2;1;3)=""n-8"";""n-8xx""; WENN(TEIL(opsur!C2;1;3)=""n-9"";""B 727"";""""))))"
    Range("E1").Select
End Sub


Gruss Rainer


Bild

Beiträge aus den Excel-Beispielen zum Thema " zelle mit vba formel versehen"