Hier der bisherige Code:
Public Sub Suche_PLC()
Dim i As Integer
Dim eofile As Integer
Dim positiv As Integer
Dim negativ As Integer
Worksheets("Standardisierte-IL").Select
eofile = 900
For i = 4 To eofile
If Left(Cells(i, "c"), 3) = "PLC" Then
positiv = positiv + 1
Else
negativ = negativ + 1
End If
Next i
MsgBox "plc gefunden " & positiv & vbCrLf & "plc nicht gefunden " & negativ
End Sub
Danke für die Hilfe