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