Clever-Excel-Forum

Seiten: 1 2

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

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.

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

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

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

Seiten: 1 2

Alison

GMG-CC

BoskoBiati

Kuwer

Alison