VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?
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
