Zeichen aus String kop.&einf., Eleganter lösen?
21.11.2016 13:16:01
Pasqual
ich wollte mal wissen ob mir jemand einen Tipp für eine elegantere Lösung meines Problems geben kann! Ich möchte aus mehreren Strings jeweils das erste Zeichen in einen neuen String kopieren.
Meine Lösung
Sub Stringer()
Dim Buchst As String
Buchst = Left(buchstabe1, 1)
kennung = Buchst
Buchst = Left(buchstabe2, 1)
kennung = kennung & Buchst
Buchst = Left(buchstabe3, 1)
kennung = kennung & Buchst
MsgBox (kennung)
End Sub
Es funktioniert, aber irgendwie meine ich das es auch geschickter gehen muss. Vor allem wenn _
ich evtl. 20 Strings habe von denen ich das erste Zeichen möchte!
Vielen Dank für eure Hilfe!
beste Grüße
Pasqual
Anzeige