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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen