...ich suche nach einem "," in einer Textbox, wenn vorhanden um dannach die Elemente zu trennen (vor und nach dem Komme).
Dazu nutze ich folgende Zeilen, die funktionieren, solange ich ein Komma in der Textbox habe...was aber, wenn nicht ?
Dann erhalte ich stets eine Fehlermeldung...wie kann ich dies abfangen und wenn eben kein "," vorhanden ist, dann soll excel eben nur den Text aus der Textbox als txtName aufnehmen.
Codezeilen:
txtName = VBA.Mid(objTBPName.Text, 1, Application.WorksheetFunction.Find (",", objTBPName.Text, 1) - 1)
txtVName = VBA.Trim(VBA.Mid(objTBPName.Text, Application.WorksheetFunction.Find (",", objTBPName.Text, 1) + 1, VBA.Len(objTBPName.Text)))
...und wenn eben kein Komma vorhanden, dann:
txtName = objTBPName.Text
Vielen Dank für Eure Hilfe!
Gruß
Kay