Sub TranslateCode()

Dim c As Range 
Dim intT, intS, intB As Integer 
Dim strCurrentRange As String

strCurrentRange = _
Selection.CurrentRegion.Address

For Each c In Selection.CurrentRegion

 'Die String-Position ermitteln, an der die einzelnen Teilstrings 
 'beginnen. 
 intT = InStr(c.Value, “T”) 
 intS = InStr(c.Value, “S”) 
 intB = InStr(c.Value, “B”)

 'Die Teilstrings in die Zellen 1, 2 und 3 rechts 
 'neben der Ausgangszelle schreiben. 
 'Diese Prozedur entfernt die Kodebuchstaben am Anfang 
 'der Teilstrings. 
 'Setzen Sie ein einfaches Anführungszeichen vor die folgenden 
 'drei Zeilen, um das abzuschalten.
 c.Offset(0, 1).Value = Mid(c.Value, 2, intS - 2) 
 c.Offset(0, 2).Value = Mid(c.Value, _
  intS + 1, intB - intS - 1)
 c.Offset(0, 3).Value = Mid(c.Value, intB + 1)

 'Diese Kodezeilen schließen den Kodebuchstaben am Anfang 
 'der Teilstrings ein.
 'Entfernen Sie die einfachen Anführungszeichen vor diesen Zeilen, 
 'um sie zu verwenden.
 'c.Offset(0, 1).Value = Mid(c.Value, 1, intS - 2)
 'c.Offset(0, 2).Value = Mid(c.Value, intS, intB _
 '- intS - 1)
 'c.Offset(0, 3).Value = Mid(c.Value, intB)
Next c

End Sub