Function Arrays

Function max_spezial(RSL As Variant, a As Integer, n As Integer) As Double RSL(a) = 0 max_spezial = WorksheetFunction.Large(RSL, n) End Function Das RSL(a) verursacht einen Fehler. Mit RSL(a) soll ein Wert des Arrays RSL auf Null gesetzt werden. Das Porgramm sollte bewußt so kurz sein, da ich eine Optimierung mit vielen Durchläufen habe. Wie muss ich das Umprogrammieren, damit es funktioniert? Danke für die Unterstützung!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function max_spezial wird das Array RSL übergeben. Mit RSL(a) = 0 soll der a te Wert von RSL _ genullt werden und zwar vor der Bestimmung des n größten Werts des modifizierten RSL. Grüße Peter

Function max_spezial wird das Array RSL übergeben. Mit RSL(a) = 0 soll der a te Wert von RSL _ genullt werden und zwar vor der Bestimmung des n größten Werts des modifizierten RSL. Wie sieht dann der richtige Code aus? Grüße Peter

HAllo Peter


Die Funktion max_spezial wird von Excel aus aufgerufen.

Aus einer Tabelle heraus oder wie ?
Tabelle1

	B	C	D	E
1	83		21
2			85
3			14
4			5
5			65
6			82
7			66
8			54
9			36
10			38
11			3
12			40
13			4
14			83
15			54
16			66
17			17
18			99
19			69
20			59
21

Formeln der Tabelle

Zelle	Formel
B1	=max_Spezial(D1:D20;2;2)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function max_spezial(RSL As Variant, a As Integer, n As Integer) As Double
RSL = WorksheetFunction.Transpose(RSL)
RSL(a) = 0
max_spezial = WorksheetFunction.Large(RSL, n)
End Function

ransi

Hallo Ransi,
Du bist ja wirklich ein VBA Spezialist. Kann ich von dir deine Email Adresse bitte erhalten?
Zurück zu meinem Anliegen.
Die Function soll einfach bleiben und zwar in der Art
Option Explicit


Public Function max_spezial(RSL As Variant, a As Integer, n As Integer) As Double
RSL = WorksheetFunction.Transpose(RSL)
RSL(a) = 0
max_spezial = WorksheetFunction.Large(RSL, n)
End Function

Nur mit dem Unterschied, dass die Daten zeilenförmig angeordnet sind wie z.B.
56 67 89 78 89
Das Programm


Public Function max_spezial(RSL As Variant, a As Integer, n As Integer) As Double
RSL = WorksheetFunction.Transpose(WorksheetFunction.Transpose(RSL))
RSL(a) = 0
max_spezial = WorksheetFunction.Large(RSL, n)
End Function

funktioniert z.B. für zeilenförmige Arrays. Geht es auch einfacher?
Grüße
Peter

Beliebteste Forumthreads (12 Monate)

	B	C	D	E	F
1	79		3	8
2			7	17
3			34	39
4			75	57
5			9	47
6			74	17
7			78	20
8			41	73
9			70	97
10			79	95
11

	B	C	D	E
1	83		21
2			85
3			14
4			5
5			65
6			82
7			66
8			54
9			36
10			38
11			3
12			40
13			4
14			83
15			54
16			66
17			17
18			99
19			69
20			59
21

	B	C	D	E
1	83		21
2			85
3			14
4			5
5			65
6			82
7			66
8			54
9			36
10			38
11			3
12			40
13			4
14			83
15			54
16			66
17			17
18			99
19			69
20			59
21

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	B	C	D	E
1	83		21
2			85
3			14
4			5
5			65
6			82
7			66
8			54
9			36
10			38
11			3
12			40
13			4
14			83
15			54
16			66
17			17
18			99
19			69
20			59
21