Per Formel ginge es nicht in die selbe Zelle; das geht nur per VBA.

Option Explicit

Sub Test()
  
  Dim rngCell As Excel.Range
  For Each rngCell In Worksheets("Tabelle1").Range("D2:D4")
    If rngCell.Value = "1-2A-" Then
      rngCell.Value = rngCell.Value & Left$(rngCell.Offset(0, 1).Value, 1)
    End If
  Next
  
End Sub

Das Beispiel orientiert sich an deiner angegebenen Tabelle; diese steht in D2:E4 im Tabellenblatt "Tabelle1".