Listbox mit Zeichenkette

Question

Hallo Excelfreunde,
bräuchte mal wieder eure Hilfe.

In einer ListBox (UserForm) werden Zeichen eingetragen mit Zahlen (8)
und einem oder zwei Buchstaben.
Ist das rechte Zechen ein (R), kann dann der Buchstabe durch ein Leerzeichen von den anderen Zeichen getrennt werden?


Ist: 12300123R Soll: 12300123 R
Ist: 12300123AR Soll: 12300123A R

Ich hoffe ihr Könnt ihr mir dabei helfen.

Gruß
fedjo

Answer 1

Hallo Fedjo,

das könntest du z.B. so lösen:

Dim strNeu As String
If Right(ListBox1.Value, 1) = "R" Then
strNeu = Left(ListBox1.Value, Len(ListBox1.Value) - 1) & " R"
Range("A1") = strNeu
End If

Die Bezeichnungen musst du natürlich auf deine Bedürfnisse anpassen.

Gruß

M.O.

Answer 2

Hallo M.O.,
DANKE für die schnelle Antwort.
Habe die ListBox1 mit verwechselt mit einer TextBox1

Habe den Code geändert, funtioniert aber leider nicht.
Was ist falsch?


Dim strNeu As String
If Right(TextBox16.Value, 1) = "R" Then
strNeu = Left(TextBox16.Value, Len(TextBox16.Value) - 1) & " R"
End If

Gruß
fedjo

Answer 3

Hallo M.O.,
hab ein wenig getest und die Lösung gefunden:

If Right(TextBox16.Value, 1) = "R" Then 'Rückware
TextBox16.Value = Left(TextBox16.Value, Len(TextBox16.Value) - 1) & " R"
End If

Danke noch mal für deinen Vorschlag,
und ein schönes Wochenende.

Gruß
fedjo