Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

 Dim rDatWartung

 Dim sMsgBaldFaellig As String

 Dim sMsgUeberFaellig As String

 sMsgBaldFaellig = ""

 sMsgUeberFaellig = ""

 lz = Cells(Rows.Count, 5).End(xlUp).Row

 For Each rDatWartung In Range("D30:D600")

  If rDatWartung.Value <> "" Then

   If rDatWartung.Value <= Date + 7 Then

    sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

   Else

    If rDatWartung.Value <= Date + 14 Then _

     sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

   End If

  End If

 Next

 If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

  MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

 End If

End Sub

Herzlichen Dank, und einen schönen Abend