maximum finden in VBA

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine Variable "Wert(1) = Spalte_B1, Wert(2) = Spalte_B3 ..." schreiben.
Wie ist es nun möglich, sich den Maximalwert von den gewählten Überschriften ausgeben zu lassen. Da ich nicht zwangsläufig zusammenhängende Zellen habe, fehlt mir ein Ansatz. "Per Hand" würde man alle Zellen einzeln markieren. Wie realisiere ich dies in VBA?
Zur Info: Die Anzahl der gewählten Überschriften ist variabel.
Danke für die Hilfe.
Gruß
Lars

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub myMax() Dim lngZ As Long, zz As Long, Wert() As Long, rngM As Range ' --- Dieser Teil dient nur der Auswahl - ist bei dir anders. lngZ = Cells(Rows.Count, 12).End(xlUp).Row - 1 ReDim Wert(1 To lngZ) For zz = 1 To lngZ Wert(zz) = Cells(zz + 1, 12) Next zz ' --- Zusammenbau des Bereichs, über den das Max. bestimmt wird Set rngM = Columns(Wert(1)) For zz = 2 To lngZ Set rngM = Union(rngM, Columns(Wert(zz))) Next zz MsgBox Application.Max(rngM) & " von Bereich " & rngM.Address(0, 0), , "Max" End Sub

Hi Lars,
manchmal ist es schwer, eine Aufgabenstellung präzise abzufassen.
Da hilft dann meist eine Beispielmappe mit dem gewünschten Ergebnis sehr gut.
Du musstest jetzt eine solche Mappe gar nicht mehr erstellen, hättest einfach die Mappe,
die ich gepostet hatte, ergänzen und hier einstellen können.
Vielleicht triffts jetzt das hier:


Sub myMax()
Dim lngS As Long, lngZ As Long, zz As Long, Wert() As Long, dblM As Double
'  --- Dieser Teil dient nur der Auswahl - ist bei dir anders.
lngS = Cells(Rows.Count, 12).End(xlUp).Row - 1
ReDim Wert(1 To lngS)
For zz = 1 To lngS
Wert(zz) = Cells(zz + 1, 12)
Next zz
For lngZ = 2 To 8       ' Schleife über Zeilen
dblM = -9E+99
For zz = 1 To lngS   ' Ermitteln Max. über gewählte Zellen
dblM = Application.Max(dblM, Cells(lngZ, Wert(zz)))
Next zz
Cells(lngZ, 13) = IIf(dblM > -9E+99, dblM, "Kein Wert")  ' Ausgabe in Sp. 13
Next lngZ
End Sub

Für jede Zeile (von 2 bis 8 wird das Max. in Spalte M (13) ausgegeben.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

maximum finden in VBA

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread