Aufzählung in messagebox

[Exceluser1]

Morgen allerseits!,

habe hier ein Code-Schnipsel von Kuwer,
in der messagebox zeigt es die liste perfekt an, jedoch kommt immer davor Achtung:, Achtung:, Achtung:, also vor jedem Eintrag.
Gibt es eine Möglichkeit, anstatt dem Achtung eine Aufzählung einzufügen? also 1. 2. 3., usw.

Sub Status()
  Dim strMsg As String
  Dim Zelle As Range
  For Each Zelle In Range("L1:L500")
    If Zelle = "0" Then
      strMsg = strMsg & vbNewLine & "Achtung: Lieferant " & Cells(Zelle.Row, 4).Value & " in Zeile " & Zelle.Row & " in Bearbeitung."
    End If
  Next
  MsgBox strMsg
End Sub

Vielen Dank im Voraus!

[Kuwer]

Hallo,

Sub Status()
  Dim i As Long
  Dim strMsg As String
  Dim Zelle As Range
  For Each Zelle In Range("L1:L500")
    If Zelle = "0" Then
      i = i + 1
      strMsg = strMsg & vbNewLine & i & ": Lieferant " & Cells(Zelle.Row, 4).Value & " in Zeile " & Zelle.Row & " in Bearbeitung."
    End If
  Next
  If i = 0 Then
    MsgBox "Keine Lieferungen in Bearbeitung."
  Else
    MsgBox strMsg
  End If
End Sub

Gruß Uwe

[Exceluser1]

Hammer! Danke