aktuell habe ich es wie folgt probiert, jedoch funktioniert das nicht:
IIf(rngCell.Offset(0, 3).Value = "Test", "TE", IIf(rngCell.Offset(0, 3).Value) = "Test2", "T2", "")
Select Case rngCell.Offset(0, 3).Value
Case "Test", "Test2", "TE", "TE2"
'hier Code Kürzel in ListBox
Case Else
'hier Code normaler Eintrag in ListBox
End Select
Den Rest mußt du selbst umsetzen.