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