Bestimmte Formel zuweisen

Forumthread: Bestimmte Formel zuweisen

10.05.2017 20:26:00

Thomas

Hallo Zusammen,
Ich habe mal eine Frage an die Excel Profis.
Gibt es eine Möglichkeit wenn z.B in Zelle A1 ein bestimmter Kürzel steht z.B BA Exel mir in Zelle E1 eine vordefinierte Formel/Berechnung ausführt?und wenn ich das Kürzel in A1 ändere.b.B in BS eine andere vordefinierte Formel/Berechnung einfügt?
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt und vorab vielen Dank.
Gruß
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bestimmte Formel zuweisen

10.05.2017 20:36:10

Hola,
=wenn(A1="ba";Formel1;wenn(A1="bs";Formel2;""))
Gruß,
steve1da

AW: Bestimmte Formel zuweisen

10.05.2017 20:42:12

Thomas

Hallo Steve,
erstmal danke für die schnelle Antwort. Das würde ich so machen, aber ich habe mindestens 20 verschiedene Kürzel mit den entsprechenden Formeln. Gibt es da keine andere Lösung?
Gruß
Thomas

dann zeig doch mal eine Musterdatei owt

11.05.2017 09:02:14

UweD

AW: dann zeig doch mal eine Musterdatei owt

11.05.2017 10:02:06

Thomas

Hallo Uwe,
anbei das Beispiel. In Spalte B stehen die Abkürzungen und in Spalte Q bzw. R die entsprechenden Formeln.
https://www.herber.de/bbs/user/113491.xlsx
Gruß
Thomas

AW: dann zeig doch mal eine Musterdatei owt

11.05.2017 12:53:19

UweD

Hallo
da fällt mir nur eine UDF ein...
- alles ist statisch und aufwändig
- Die Formeln in englisch und in R1C1 Modus eintragen
- du darfst an der Tabelle keine Spalten ändern

Function Formelgrform(StrTyp As String)
    Dim Formel As String
    Select Case StrTyp
        Case "BA"
            Formel = "IF(RC[-10]+RC[-9]>RC[-8]+RC[-7],ROUNDUP(((RC[-10]+RC[-9]+4*RC[-12])*2)*(((RC[-2]*PI()*(RC[-6]+RC[-9]+RC[-12]))/180)+RC[-5]+RC[-4])/1000000,2),ROUNDUP(((RC[-8]+RC[-7]+4*RC[-12])*2)*(((RC[-2]*PI()*(RC[-6]+RC[-7]+RC[-12]))/180)+RC[-5]+RC[-4])/1000000,2))"
        Case "RA"
            Formel = "ROUNDUP((RC[-10]+RC[-9]+4*RC[-12])*2*RC[-11]/1000000,2)"
        Case "ES"
            '... 
        '... 
    
    End Select
    Formelgrform = Application.Evaluate(Application.ConvertFormula(Formel, xlR1C1, xlA1))

End Function

In der Tabelle dann den Aufruf so ausführen.

Tabelle1

	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1	Typ	Blatt Nr.	Anzahl	Dicke	L	a	b	c	d	r	e	f	g	alpha	h	grForm
2	BA	'2.2.2	1	19	0	750	650	0	250	100	50	50	0	90	Formstück	3,87
3	RA	'2.2.3	1	30	500	500	500	0	500	0	50	0	0	0	Formstück	1,12

verwendete Formeln
Zelle	Formel	Bereich	N/A
P2: P3	=WENN(B2="L";"Gerade";"Formstück")
Q2:Q3	=Formelgrform(B2)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.10 einschl. 64 Bit

LG UweD

Alternative mit Hilfsspalten..

11.05.2017 13:22:03

UweD

... U bis AB (die kannst du ja Ausblenden
In denen werden immer alle Varianten der Zeile berechnet und per Wverweis wird dann der richtige Wert ausgewählt.

Tabelle1

Pos.

Typ

Blatt Nr.

Anzahl

Dicke

alpha

grForm

Gerade

Fl.a.

'2.2.2

750

650

250

100

Formstück

3,87

0,15

1,33

0,6

3,87

0,6

verwendete Formeln
Zelle	Formel	Bereich	N/A
Q2	=WVERWEIS($B2;$U$1:$AB$3;2;0)
R2	=WVERWEIS($B2;$U$1:$AB$3;3;0)
U2	=WENN(G2+H2>I2+J2;AUFRUNDEN(((G2+H2+4E2)2)(((O2PI()(K2+H2+E2))/180)+L2+M2)/1000000;2);AUFRUNDEN(((I2+J2+4E2)2)(((O2PI()(K2+J2+E2))/180)+L2+M2)/1000000;2))
V2	=AUFRUNDEN((G2+H2+4E2)2*F2/1000000;2)
W2	=AUFRUNDEN((G2+H2+4E2)2*WURZEL((POTENZ(F2;2)+POTENZ(L2;2)))/1000000;2)
X2	=AUFRUNDEN(WENN(G2+H2>=I2+J2;(G2+H2+4E2)2;(I2+J2+4E2)2)*WENN(L2=0;WENN(G2-I2+M2>=M2;WURZEL(POTENZ(F2;2)+POTENZ((G2-I2+M2);2));WURZEL(POTENZ(F2;2)+POTENZ(M2;2)));WENN(G2+H2>=I2+J2;WENN(H2-J2+L2>=L2;WURZEL(POTENZ(F2;2)+POTENZ((H2-J2+L2);2));WURZEL(POTENZ(F2;2)+POTENZ(L2;2)));WENN(G2-I2+M2>=M2;WURZEL(POTENZ(F2;2)+POTENZ((G2-I2+M2);2));WURZEL(POTENZ(F2;2)+POTENZ(M2;2)))))/1000000;2)
Y2	=AUFRUNDEN((G2+H2+4E2)2*(F2+200)/1000000;2)
Z2	=AUFRUNDEN(((G2+H2+4E2)2)(((O2PI()*(K2+H2+E2))/180)+L2+M2)/1000000;2)
AB2	=AUFRUNDEN((G2+H2+4E2)2*(F2+200)/1000000;2)
AA3	=AUFRUNDEN((G2+H2+4E2)2*F2/1000000;2)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.10 einschl. 64 Bit

LG UweD

AW: Alternative mit Hilfsspalten..

11.05.2017 14:56:45

Thomas

Hallo Uwe,
vielen Dank

Danke für die Rückmeldung owT

11.05.2017 15:23:28

UweD

AW: Danke für die Rückmeldung owT

11.05.2017 16:52:37

Thomas

Hallo Uwe,
mit einer Zeile funktioniert es super, aber was ist wenn ich eine ganze Seite mit verschiedenen Typen habe?
Gruß
Thomas

AW: Danke für die Rückmeldung owT

11.05.2017 17:10:21

UweD

Hallo nochmal
dann den 2. Teil nach hinten versetzen...

Tabelle1

	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK
1	grForm	Gerade	Fl.a.		BA	RA	ES	UA	LT	BS	L	LT		BA	RA	ES	UA	LT	BS	L	LT
2	3,87	0	3,87		3,87	0	0,15	1,33	0,6	3,87	0	0,6		0	0	0	0	0	0	0	0
3	1,12	0	1,12		0,12	1,12	1,13	1,13	1,57	0,12	0	1,57		0	0	0	0	0	0	1,12	0
4	1,70	0	1,70		0,49	1,62	1,7	2,66	2,27	0,49	0	2,27		0	0	0	0	0	0	1,62	0
5	8,54	0	8,54		-2,38	6,84	8,35	8,54	8,21	-2,06	0	8,21		0	0	0	0	0	0	6,84	0
6	4,79	0	4,79		0	3,42	3,42	15,44	4,79	0	0	4,79		0	0	0	0	0	0	3,42	0
7	25,72	0	25,72		25,72	0	0,35	15,39	1,37	25,72	0	1,37		0	0	0	0	0	0	0	0
8	0	10,26	10,26		0	10,26	10,26	18,22	11,63	0	0	11,63		0	0	0	0	0	0	10,26	0
9	6,14	0	6,14		0	4,77	4,77	15,79	6,14	0	0	6,14		0	0	0	0	0	0	4,77	0

verwendete Formeln
Zelle	Formel	Bereich	N/A
Q2:Q9	=WVERWEIS($B2;$U$1:$AB$99;ZEILE();0)
R2:R9	=WVERWEIS($B2;$AD$1:$AK$99;ZEILE();0)
S2:S9	=WENN(SUMME(Q2:R2)<1;(1);SUMME(Q2:R2))*D2
U2:U9	=WENN(G2+H2>I2+J2;AUFRUNDEN(((G2+H2+4E2)2)(((O2PI()(K2+H2+E2))/180)+L2+M2)/1000000;2);AUFRUNDEN(((I2+J2+4E2)2)(((O2PI()(K2+J2+E2))/180)+L2+M2)/1000000;2))
V2:V9	=AUFRUNDEN((G2+H2+4E2)2*F2/1000000;2)
W2:W9	=AUFRUNDEN((G2+H2+4E2)2*WURZEL((POTENZ(F2;2)+POTENZ(L2;2)))/1000000;2)
X2:X9	=AUFRUNDEN(WENN(G2+H2>=I2+J2;(G2+H2+4E2)2;(I2+J2+4E2)2)*WENN(L2=0;WENN(G2-I2+M2>=M2;WURZEL(POTENZ(F2;2)+POTENZ((G2-I2+M2);2));WURZEL(POTENZ(F2;2)+POTENZ(M2;2)));WENN(G2+H2>=I2+J2;WENN(H2-J2+L2>=L2;WURZEL(POTENZ(F2;2)+POTENZ((H2-J2+L2);2));WURZEL(POTENZ(F2;2)+POTENZ(L2;2)));WENN(G2-I2+M2>=M2;WURZEL(POTENZ(F2;2)+POTENZ((G2-I2+M2);2));WURZEL(POTENZ(F2;2)+POTENZ(M2;2)))))/1000000;2)
Y2:Y9	=AUFRUNDEN((G2+H2+4E2)2*(F2+200)/1000000;2)
Z2:Z9	=AUFRUNDEN(((G2+H2+4E2)2)(((O2PI()*(K2+H2+E2))/180)+L2+M2)/1000000;2)
AB2:AB9	=AUFRUNDEN((G2+H2+4E2)2*(F2+200)/1000000;2)
AJ2:AJ9	=AUFRUNDEN((G2+H2+4E2)2*F2/1000000;2)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.10 einschl. 64 Bit

LG UweD

AW: Danke für die Rückmeldung owT

13.05.2017 09:08:01

Thomas

Hallo Uwe,
sorry, dass ich mich erst jetzt melde.
Klappt super.
Nochmals vielen Dank.
Gruß
Thomas

gern geschehen. OwT

13.05.2017 09:52:34

UweD

Beliebteste Forumthreads (12 Monate)

Forumthread: Bestimmte Formel zuweisen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread