hallo zusammen!
Ich bin noch ziemlicher VB bzw. VBA anfänger und taste mich grade an die Funktionsweise und die möglichkeiten der Schleifen heran. in meiner testaufgabe steht jetzt es soll die funktion acronym erstellt werden die nur die Wörter in das acronym schreibt die länger als z.b. 3 Buchstaben sind. dabei soll die erste Aufgabe zur grundlage genommen werden (erstelle ein acronym aus den gegebenen ersten buchstanben der angegebenen Wörter). die habe ich so gelöst
Function acronym(str As String) As String
Dim temp As String
Dim pos As Integer
pos = 1
temp = Left(str, 1)
While InStr(pos, str, " ") > 0
pos = InStr(pos, str, " ") + 1
temp = temp + Mid(str, pos, 1)
Wend
acronym = temp
End Function
jetzt hab ich mir diverse dinge überlegt und auch ausprobiert die haben aber nicht funktioniert. ich sitzte jetzt schon seit fast 2 Std an dieser dämlichen Aufgabe aber es fällt mir absolut nichts mehr dazu ein! weiß jemand rat oder einen Tipp? bin für alles offen!
mfg Olaf