Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Maximaler Wert in int-Array

Maximaler Wert in int-Array
08.04.2003 12:53:39
Karsten
Hallo Leute,

ich hätte gerne noch gewusst, wie ich den Index des grössten Wertes in einem int-Array bestimmen kann.

Beispiel:
Array(1) = 2
Array(2) = 5
Array(3) = 1

-> Es sollte "2" zurückgegeben werden!

Danke schonmal!

Euer Karsten

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Maximaler Wert in int-Array
08.04.2003 12:55:20
Michael Scheffler
Hi,

in Schleife durchgehen.

Gruß

Micha

oder WorksheetFunction
08.04.2003 14:16:37
GerdZ
Hallo Karsten und Micha,

das müßte auch in Excel 97 mit WorksheetFunction funktionieren.
Konnte das nur in Excel 2000 testen:

Dim intArray(1 To 3) As Integer
intArray(1) = 2
intArray(2) = 5
intArray(3) = 1
With Application.WorksheetFunction
    MsgBox .Match(.Max(intArray), intArray)
End With
     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Gerd
Anzeige
Hi Gerd - Dein Code ist elegant und schnell!!!
08.04.2003 14:21:59
Michael Scheffler

Re: Hi Gerd - Dein Code ist elegant und schnell!!!
08.04.2003 14:33:18
L.Vira
Aber bedenken, dass match nur bis ca. 5400 funktioniert!
Die genaue Zahl weiß ich nicht auswendig.
Korrektur
08.04.2003 15:45:20
GerdZ
Hallo,

beim Ausprobieren der Grenze habe ich festgestellt, daß im geposteten Code bei der .MATCH-Funktion noch der dritte Parameter fehlt. Hier muß noch eine 0 übergeben werden: 


MsgBox .Match(.Max(intArray), intArray, 0)

In Excel 2000 funktioniert der Code bis zu einer Array-Größe von 16384.
Bei mehr Elementen kommt die Fehlermeldung "Typen unverträglich".
Ist das nicht auch die Anzahl der Zeilen in Excel 97?

Gruß
Gerd


Anzeige
Re: Korrektur
09.04.2003 08:25:45
FCH
Hi Gerd,

ne du die Zeilenanzahl bei Excel 97 betrug auch schon 65536. 16384 ist die Grenze von Excel 95.

Bei mir geht Match auch nur bis 5461 (ich glaube die Grenze von Excel4.0), wobei es aber auch daran liegen kann, dass ich was mit dem Array falsch mache. Damit habe ich noch nicht viel gearbeitet:

Sub matcharray()
Dim i As Double
Dim intArr() As Integer
For i = 1 To 65536
ReDim Preserve intArr(1 To i)
intArr(i) = i
With Application.WorksheetFunction
On Error GoTo ende
Cells(i, 2) = .Match(.Max(intArr), intArr, 0)
End With
Next i
ende:
End Sub

Eigentümlich ist, dass Match bei direktem Zugriff auf 65536 gefüllte Zellen anstandslos das richtige Ergebnis liefert.

Gruß
FCH

Anzeige

118 Forumthreads zu ähnlichen Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
Min und Max mit Bedingung ohne Array
Tino

Hallo,
ich bräuchte mal eure Hilfe.
Ich bin auf der Suche nach einer geeigneten Formel, die mir den Min bzw. Max Wert von bestimmten Stationen wieder geben kann.
Habe dies mit dieser Array Formel gelöst.
 CDEFG1  Station0010022  Min0,6 3  ...
07.06.2009 08:16:45
Thread-ID: 1079658
18 Beiträge
Anzeige
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
Array in VBA
PeTeR

Hallo VBA-Freaks,
ich habe 2 Spalten: Typ und Größe
Z.B.:
Typ Größe
A 1
B 3
A 4
C 2
A 5
B 1
C 4
Als Ergebnis hätte ich gerne folgendes (am liebsten per Makro in einem Array mit X*2 Feldern):
A: 1;4;5
B: 3;1<...
20.10.2010 13:56:57
Thread-ID: 1183205
7 Beiträge
VBA - Maximum einfärben
Sibylle

Guten Morgen,
in Spalte A stehen Werte.
Mit Hilfe eines VBA-Programmes soll der höchste Wert gelb, der kleinste Wert rot eingefärbt werden.
Leider sind meine VBA-Kenntnisse (noch) zu wenig entwickelt um diese Aufgabe lösen zu können.
Ich bitte daher um Unterstützung und bedanke...
03.10.2011 09:41:58
Thread-ID: 1232373
7 Beiträge
Berechnung Min-Max Wert der letzten 3 Zellen - VBA
Daniela

Hallo
Ich würde gern in Excel eine Berechnung mit VBA des Minimum- und Maximumwertes
der jeweils letzten 3 Zellen berechnen. Wenn ein neuer Wert hinzugefügt wird, sollen
wieder automatisch die letzten 3 Zellen für die Berechnung berücksichtigt werden.
Habe das in der Exceltabel...
16.01.2013 22:09:02
Thread-ID: 1294708
8 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
7
5
17
3
1
3
6
6
7
5
5
8
8
26
9
3
9
2
2
30
3
2
3
13