Hallo zusammen,
ich habe ein Problem.
Darum wende ich mich mal wieder an euch.
Ich habe folgendes geschrieben:
If InStr(1, Inhalt, " ", vbTextCompare) = True Then
While Not Mid(Inhalt, k, 1) = " "
str = str + Mid(Inhalt, k, 1)
k = k + 1
Wend
End If
Die while not schleife funktioniert super.
Nun hab ich die If Abfrage drumrum gebastelt, damit das Makro die While not schleife nur macht, wenn tatsächlich in "Inhalt" ein Leerzeichen drin ist.
Wenn nämlich nicht habe ich das Problem, dass die While not Schleife unendlich läuft.
Hab ich da nen Denkfehler drin oder warum funktioniert die If Abfrage so nicht?
Oder hat jemand ne andere Idee, wie ich es eleganter lösen könnte?
Dazu nochmal mein Grundproblem:
Ich habe in "Inhalt" ein Text vorliegen, der entweder ein Leerzeichen enthält oder nicht.
Wenn ein Leerzeichen drin ist, brauche ich nur den Text vor dem Leerzeichen und kopiere den in "str" rein.
Ich danke euch schonmal.
VG
Michael