Aus einer Zelle individuelle Werte nutzen
Sandra
ich nutze einen VBA-Code, der mehrere Zahlen (durch Semikolon getrennt) in eine Zelle schreibt. Nun möchte ich aus der Zelle den jeweils größten Wert in eine neue Zelle übernehmen. Hat jemand eine Idee?
z.B. VBA-Zelle: 12; 14; 263 --> in neue Zelle 263 übernehmen
Vielen Dank!
Sandra
Der VBA-Code lautet folgendermaßen:
Function AlleWerte _
(rErg As Range, _
sMatch As String, _
rMatch As Range, _
Optional sDelim As String = " ") _
As String
'rErg=Ergebnisspalte, sMatch=Suchbegriff
'rMatch=Suchspalte, sDelim=Trennzeichen
Dim objErg As Object, lngC As Long
Dim arrErg, arrMatch
Set objErg = CreateObject("Scripting.Dictionary")
arrErg = rErg.Value
arrMatch = rMatch.Value
For lngC = LBound(arrMatch) To UBound(arrMatch)
If arrMatch(lngC, 1) Like sMatch Then
objErg(objErg.Count + 1) = arrErg(lngC, 1)
End If
Next
AlleWerte = Join(objErg.items, sDelim)
End Function
Anzeige