Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

WorksheetFunction.Max - Erweiterte Berechnung des Maximums
#11
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
Antworten Top
#12
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.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#13
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
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#14
Hallo Alison,

BC
1aaa16
2aaa2
3aaa3
4bnb2
5bbb4
6aaa2
7www6
8www2
9qwe3
10wer3
Formeln der Tabelle
ZelleFormel
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
Antworten Top
#15
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste