Max.Wert mehrerer Werte in einer Zelle
Peter
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5 numer.Werte) auslesen und an UserForm übergeben &
'max. Wert aus diesen Werten an TxtAltKWo1.Text an Userform übergeben
'For i = 1 To 5
'Frame1.Controls("LblKwAlt" & i).Caption = strParse(ShQ.Cells(2, 58), ";", i)
'Fehler TxtAltKWo1.Text = Application.Max(strParse(ShQ.Cells(2, 58), ";"i))+ 1
'Next i