Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen-/ & Spaltennummer max. Wert in 2 dim Array

Zeilen-/ & Spaltennummer max. Wert in 2 dim Array
16.02.2017 09:30:44
LL
Hallo zusammen,
ich suche in einem großen zweidimensionalen Array den größten Wert und brauche Informationen über Zeile und Spalte der Zelle, in der sich dieser Wert befindet.
Da die Tabelle ziemlich groß ist, sind Schleifen nicht die beste Lösung. Da muss es aber noch etwas anderes geben.
Ich wäre sehr dankbar für Eure Hilfe.
Beispieldatei: https://www.herber.de/bbs/user/111510.xlsm
VG
LL

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: max + Range.find
16.02.2017 09:39:24
Fennek
Hallo,
der bereits bestehende Makro liefert den Maximalwert, da man mit "Match" nur Zeilen ODER Spalten durchsuchen kann, bietet sich Range.find an.

dim rng as range
set rng = range(OrRange).find(worksheetfunction.max(OrRange))
iRow = rng.row
iCol = rng.column
mfg
(ungetestet)
AW: max + Range.find
16.02.2017 10:03:16
LL 

Sub ZeileSpalteMax()
Dim iRow As Long
Dim iCol As Long
Dim ORRange As Range: Set ORRange = Worksheets("Tabelle1").Range("C3:L22")
Dim rng As Range: Set rng = Range(ORRange).Find(WorksheetFunction.Max(ORRange))
iRow = rng.Row
iCol = rng.Column
MsgBox iRow
MsgBox iCol
End Sub
Vielen Dank für deine schnelle Antwort. Ich habe es soweit angepasst und es wird der Fehler.
Es wird jedoch der Fehler angezeigt: Die Methode Range für das objekt global ist fehlgeschlagen
Was muss ich anpassen?
Anzeige
AW: max + Range.find
16.02.2017 10:10:18
hary
Moin 
Dim zelle As Range
With Worksheets("Tabelle1")
Set zelle = .Range("C3:L22").Find(What:=Application.Max(.Range("C3:L22")), LookIn:=xlValues,  _
lookat:=xlWhole)
If Not zelle Is Nothing Then
MsgBox zelle.Column - 2
MsgBox zelle.Row
End If
End With

gruss hary
AW: max + Range.find
16.02.2017 10:39:53
LL
Hi Hary,
vielen Dank für die Antwort. Auch hier funktioniert es in der Beispieldatei sehr gut. Im Original tut sich Garnichts wenn ich das Makro starten will
Sub Hary()
Dim zelle As Range
With Worksheets("Tabelle1")
Set zelle = .Range("W29:NX2942").Find(What:=Application.Max(.Range("W29:NX2942")), LookIn:= _
xlValues, _
lookat:=xlWhole)
If Not zelle Is Nothing Then
MsgBox zelle.Column
MsgBox zelle.Row
End If
End With
End Sub

Anzeige
AW: max + Range.find
16.02.2017 10:47:25
hary
Moin
Dann lad mal eine Bsp.-mappe hoch, die aussieht wie das Original mit Dummydaten.
gruss hary
AW: max + Range.find
16.02.2017 11:07:33
LL
Hey,
würde ich gerne aber die Datei hat wie in der Range oben extrem viele Datensätze und ist somit selbst mit Werten bei 4MB
AW: max + Range.find
16.02.2017 11:11:16
LL
ist aber keine besondere Tabelle. Einfach nur Zellen von W29:NX3248 mit rationalen werten drin
AW: max + Range.find
16.02.2017 11:58:32
LL
Wenn ich die Beispieldatei um die entsprechenden Zeilen und Spalten vergrößere, entsteht das gleiche Problem. Es muss also etwas mit der Anzahl der Zellen zu tun haben oder die Variablen sind für diese Größen nicht geeignet.
Kann mir da bitte einer weiterhelfen?
Anzeige
AW: max + Range.find
16.02.2017 16:31:47
Beverly
Im anderen Forum hast du bereits eine Antwort erhalten.

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
2
2
30
3
2
3
13
11