Es sollen aber nur neue Kommentare erzeugt werden, die den Namen Sauter, Trox oder Danfoss enthalten.
Siehe beigefügtes Beispiel.
Für eure Hilfe wäre ich super dankbar.
Danke im voraus.
jaschi
https://www.herber.de/bbs/user/134682.xlsx
Sub Kommentare()
Dim lngZeile As Long
For lngZeile = 3 To 14
If Cells(lngZeile, 2).Comment Is Nothing Then
Select Case Cells(lngZeile, 12)
Case "TROX", "DANFOSS", "Sauter"
Cells(lngZeile, 2).AddComment Text:=Cells(lngZeile, 12).Value
End Select
End If
Next lngZeile
End Sub