Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zelle mit vba formel versehen

zelle mit vba formel versehen
02.11.2003 15:12:46
mehmet
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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zelle mit vba formel versehen
02.11.2003 15:55:48
Ramses
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
AW: zelle mit vba formel versehen
02.11.2003 16:32:51
es will nicht
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
Anzeige
Zeig mal den aufgezeichneten Code. o.T.
02.11.2003 16:46:47
Ramses
...
@Ramses
02.11.2003 16:57:13
Josef Ehrensberger
Hi Ramses,

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

Gruß Sepp
AW: @Ramses
02.11.2003 16:58:28
Ramses
Hallo Sepp,

für was soll das gut sein ?

Gruss Rainer
keine ahnung! (0.T.)
02.11.2003 17:01:36
Josef Ehrensberger
/
AW: Zeig mal den aufgezeichneten Code. o.T.
02.11.2003 17:07:53
mehmet
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
Anzeige
Funktioniert...
02.11.2003 17:26:50
Ramses
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
AW: Funktioniert...
02.11.2003 18:11:19
mehmet
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
Anzeige
So kanns nicht funktionieren...
02.11.2003 19:18:31
Ramses
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
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige