WorksheetFunction.Max - Erweiterte Berechnung des Maximums

[Alison]

Lieber Günther,

dass 3 Zeichen der Zahl stehen ging aus meiner Frage schon hervor. "wenn vor jeder Zahl in diesem Bereich sagen wir mal ein XYZ stehen würden".
Atilla hätte ja ansonsten wohl kaum korrekt auf meine Frage antworten können.
Ansonsten kündigst du hier eine Lösung an, die du bislang aber nicht geliefert hast. Und gute Einfälle sind immer gewünscht. Vielleicht geht's ja auch ohne Schleife und damit
viel näher dran an meinem Ursprungscode:

Code:

WorksheetFunction.Max(Range("B1:B10"))

Der perfekte Einzeiller, der aber leider bei einem String nicht funktioniert. Wie dem auch sei. Ich gehe jetzt ins Bett und vielleicht überrascht du mich morgen früh positiv.

Wäre schön.

Alison

[GMG-CC]

Alison,
wir sprechen eine andere Sprache und haben auch ein unterschiedliches Verständnis von den Dingen.
Ich verabschiede mich aus diesem Thread.
Tschüss und schönes Wochenende.

[BoskoBiati]

Hallo,

mit Schleife :

Code:

Sub M_W()
Dim loCo As Long
For loCo = 1 To 10
If Mid(Cells(loCo, 1), 4, 99) * 1 > Max Then Max = Mid(Cells(loCo, 1), 4, 99) * 1
Next
Cells(1, 2) = Max
End Sub

ohne Schleife:

Code:

Sub test()
With Cells(1, 2)
.FormulaArray = "=max(mid(A1:A10,4,99)*1)"
.Value = .Value
End With
End Sub

Code:

Sub test()
Cells(1, 2) = Evaluate("=max(mid(A1:A10,4,99)*1)")

End Sub

http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=264

[Kuwer]

Hallo Alison,

	B	C
1	aaa1	6
2	aaa2
3	aaa3
4	bnb2
5	bbb4
6	aaa2
7	www6
8	www2
9	qwe3
10	wer3

Formeln der Tabelle

Zelle Formel C1 {=MAX(--ERSETZEN(B1:B10;1;3;0))}

Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Per VBA einfach

vmax = Evaluate("=MAX(--REPLACE(B1:B10,1,3,0))")

Gruß Uwe

[Alison]

Hi meine Lieben,

ich war das ganze Wochende weg und ihr habt für mich hier eifrig Lösungen erarbeitet und ins Forum gestellt. Dafür euch allen ein herzliches Dankeschön.
Ich kann viel daraus lernen.

Alison