Function automatisch aktualisieren ???

Schönen guten Tag zusammen!!!
auch ich habe als "erst-seit-14-Tagen-mit-VBA-Programmierer" so meine liebe Not mit Excel und bin einmal mehr auf Eure kompetente Hilfe angewiesen.
Im Anhang findet Ihr einen Auszug aus einer Tabelle, mit der ich aus gegebenen Werten einen Elektromotor auswählen möchte und die zugehörigen Werte wie mit einer art SVerweis auslesen möchte.
Bisher gehe ich folgendermaßen vor:
Mit einer For..Next Schleife wird zunächst der MOTORTYP aus der Tabelle ermittelt. Anschließend beziehe ich mich mit mehreren Funktionen auf den ermittelten Motortyp, um mit weiteren SChleifen die Leistung, Maße etc des entsprechenden Motortypes aus der selben Zeile zu ermitteln.
Soweit so gut. Funktioniert ja auch alles WENN Die eingelesenen Werte auf derselben Seite stehen WÜRDEN.
Tun sie aber nicht und es soll auch NICHT die Tabellen-Seite aufgerufen werden um die Function zu starten.
Nun zu meiner Frage:
Wie ist es möglich, die Funktionen automatisch durchlaufen zu lassen , sobald sich die eingelesenen Werte ändern?
Gibt es weiterhin die Mögllichkeit, die Funktionen zusammen zu fassen? Meineswissens gibt eine Function-Anweisung immer nur EINEN Wert zurück. ist das soweit richtig?
Hoffe SEHR auf Eure Hilfe und bin über jeden Tip Dankbar!!!
Viele Gruße
Hubitz
Hier die Tabelle incl. Makros
https://www.herber.de/bbs/user/44467.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Motorleistung(Motortyp As String) As String Dim x As String Dim i As Integer Application.Volatile For i = 8 To 48 x = Worksheets("Tabellen").Cells(i, 27).Value If Motortyp = x Then Motorleistung = Cells(i, 19).Value End If Next i End Function

HAllo
Jetzt hab ichs glaube verstanden...
Schau es dir mal an:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Function Motorauswahl(Motorleistung As Integer, RngLeistung As Range, Motornenndrehmoment As Integer, rngMoment As Range, motoren As Range) As String
'Motorleistung=Gesuchte Mindestleistung
'RngLeistung = Bereich mit den Leistungen
'Motornenndrehmoment=gesuchtes Mindestmoment
'rngMoment=Bereich mit den Momenten
'motoren=Bereich mit den Motoren
Dim L As Long
For L = 1 To RngLeistung.Count
    If RngLeistung(L) >= Motorleistung Then
        If rngMoment(L) >= Motornenndrehmoment Then
            Motorauswahl = motoren(L)
            Exit Function
        End If
    End If
Next
End Function

Public Function SVERWEIS3(Kriterium As String, Bereich As Range, SuchSpalte As Integer, ErgebnissSpalte As Integer)
'Kriterium ist dein Suchstring
'Bereich ist die Datentabelle
'Suchspalte ist die Nummer der Spalte in Bereich in der Kriterium vorkommt
'Ergebnissspalte ist die Nummer der Spalte in Bereich aus der du den Wert nehmen willst
Dim arrTmp
Dim L As Long
arrTmp = Bereich
For L = 1 To UBound(arrTmp)
    If arrTmp(L, SuchSpalte) = Kriterium Then
        SVERWEIS3 = arrTmp(L, ErgebnissSpalte)
        Exit Function
    End If
Next
End Function

Tabelle1

	S	T	U	V	W	X	Y	Z	AA	AB
1	Elektromotoren
2	Elektromotoren
3	Asynchronmotoren mit Käfigläufer
4	Asynchronmotoren mit Käfigläufer
5	Leistung	Moment	Gewicht	Massenträg- heits-moment	Maße				Motortyp	Drehzahl
6	kW	Nm	kg	Massenträg- heits-moment	L	B	H	E		min -1
7
8	0,12	0,84	3,5	0,00025	208	120	164	23	MA 63 a4	1370
9	0,18	1,25	3,9	0,0003	208	120	164	23	MA 63 b4	1370
10	0,25	1,74	4,3	0,0004	208	120	164	23	MA 63 c4 X	1370
11	0,25	1,7	5,3	0,0005	240	136	178	30	MA 71 a4	1380
12	0,37	2,6	6	0,0006	240	136	178	30	MA 71 b4	1380
13	0,55	3,8	6,7	0,00076	240	136	178	30	MA 71 c4 X	1380
14	0,55	3,8	8,4	0,0013	270	155	198	40	MA 80 a4	1380
15	0,75	5,2	9,5	0,0016	270	155	198	40	MA 80 b4	1385
16	0,92	6,3	10,4	0,0019	270	155	198	40	MA 80 c4 X	1385
17	1,1	7,5	12,8	0,0033	320	174	239	50	MA 90 S4	1390
18	1,5	10,3	15	0,004	320	174	239	50	MA 90 L4	1395
19	1,85	12,6	17,2	0,0048	320	174	239	50	MA 90 Lb4 X	1400
20	2,2	15	21	0,0073	400	160	259	60	MA 100 La4	1420
21	3	20	24,8	0,009	400	160	259	60	MA 100 Lb4	1420
22	4	27	31	0,0115	400	224	271	60	MA 112 M4	1425
23	5,5	36	42	0,0238	482	252	316	80	MA 132 Sa4	1440
24	7,5	49	52	0,03	482	252	316	80	MA 132 Ma4	1450
25	9	59	58	0,0338	482	252	316	80	MA 132 Mb4 X	1455
26	11	72	74	0,063	648	296	403	110	A4C 160 M4	1460
27	15	98	88	0,075	648	296	403	110	A4C 160 L4	1460
28	18,5	120	100	0,09	648	321	423	110	A4C 180 M4	1465
29	22	143	122	0,11	723	320	443	110	A4C 180 L4	1465
30	30	195	146	0,18	723	360	463	110	A4C 200 L4	1465
31	37	240	207	0,32	830	405	464	140	A4C 225 S4	1470
32	45	291	230	0,41	830	405	465	140	A4C 225 M4	1475
33	55	356	264	0,52	830	405	533	140	A4C 250 M4	1475
34	75	483	362	0,89	959	540	640	140	A4C 280 S4	1480
35	90	580	427	1,06	959	540	640	140	A4C 280 M4	1480
36	110	709	455	1,15	989	590	675	140	A4C 315 S4	1480
37	132	848	739	2,1	1132	590	765	140	B4C 315 Ma4	1485
38	160	1028	812	2,5	1132	590	765	140	B4C 315 Mc4 X	1485
39	200	1285	918	3,1	1102	590	800	170	B4C 315 Md4 X	1485
40	250	1601	1690	6,1	1545	740	962	210	B5C 355 La4 X	1490
41	315	2017	1880	7,4	1545	740	962	210	B5C 355 Lb4 X	1490
42	355	2273	2100	8,3	1745	740	962	210	B5C 355 Lc4 X	1490
43	400	2561	2250	9,4	1745	740	962	210	B5C 355 Ld4 X	1490
44	450	2881	2360	10,2	1745	740	962	210	B5C 355 Le4 X	1490
45	500	3201	2430	11,2	1745	740	962	210	B5C 355 Lf4 X	1490
46	500	3201	2400	16,2	1710	836	1110	210	B2C 400 Lx4 X	1490
47	560	3586	2500	18,7	1710	836	1110	210	B2C 400 Lw4 X	1490
48	630	4038	2650	21	1830	836	1110	210	B2C 400 Ly4 X	1490
49	gewählt:
50	500	3201	2430	11,2	1745	740	962	210	B5C 355 Lf4 X	1490

Formeln der Tabelle

Zelle	Formel
S50	=sverweis3($AA$50;$S$7:$AB$48;9;1)
T50	=sverweis3($AA$50;$S$7:$AB$48;9;2)
U50	=sverweis3($AA$50;$S$7:$AB$48;9;3)
V50	=sverweis3($AA$50;$S$7:$AB$48;9;4)
W50	=sverweis3($AA$50;$S$7:$AB$48;9;5)
X50	=sverweis3($AA$50;$S$7:$AB$48;9;6)
Y50	=sverweis3($AA$50;$S$7:$AB$48;9;7)
Z50	=sverweis3($AA$50;$S$7:$AB$48;9;8)
AA50	=motorauswahl(X57;S7:S48;X58;T7:T48;AA7:AA48)
AB50	=sverweis3($AA$50;$S$7:$AB$48;9;10)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

Beliebteste Forumthreads (12 Monate)

Function automatisch aktualisieren ???

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread