Excel 2013: Visual Basic Problem

Hallo Leute,

ich habe von VB keinerlei Ahnung und das was ich jetzt hier habe ist mit programmiert worden, aber leider kann ich denjenigen nicht mehr fragen. Ich hoffe Ihr könnt mir bei meinem Problem weiterhelfen


Private Sub workbook_open()
Dim ws3 As Worksheet
Dim lngLR3 As Long
Dim intI3 As Integer
Dim MyDate3 As Range

Set ws3 = Worksheets("Virenscanner-Laufzeiten")
lngLR3 = ws3.Cells(Rows.Count, 3).End(xlUp).Row

For intI3 = lngLR3 To 2 Step -1
Set MyDate3 = ws3.Cells(intI3, 3)
If MyDate3 <> "" Then
Datum = DateValue(MyDate3 & DatePart("yyyy", Date))
If Datum <= Date And Date - Datum <= 7 And _
MyDate3.Offset(0, 2).Value = "" Then

a = MsgBox("Der Virenscanner " & MyDate3.Offset(0, -2).Value & " läuft am " & Datum - 30 & " aus," & Chr(13) & "Nochmals erinnern ?", vbYesNo)
If a = vbNo Then ActiveWorkbook.Save: Exit Sub Else
MyDate3.Offset(0, 2).Value = "Meldung erfolgt"
Else
If Date - Datum >= 7 Then
MyDate3.Offset(0, 2).Value = ""
End If
End If
End If
Set MyDate3 = Nothing
Next

End Sub


Wenn ich jetzt nein drücke, wird die Arbeitsmappe gespeichert und das wars. Hier sollte aber in diesem Fall, in dem Tabellenblatt "Virenscanner-Laufzeiten" in Spalte E, jeweils die Meldung drin sehen "Meldung erfolgt"

Wenn ich jetzt ja drücke, kommt eine Fehler Fenster mit dem Hinweis "Laufzeitfehler `13`: Typen unverträglich. Dabei wird aber der Hinweis in die Spalte E geschrieben, was ja bei nein passieren sollte


Fragt jetzt bitte nicht nach dem Sinn dieser Abfrage, ich möchte einfach im Vorfeld von Kunden wissen, wann der Virenscanner ausläuft


Für eure Hilfe bedanke ich mich bereits jetzt schon


Gruß

Thomas

Private Sub workbook_open()

   Dim ws3 As Worksheet
   Dim lngLR3 As Long
   Dim intI3 As Integer
   Dim MyDate3 As Range

   Set ws3 = Worksheets("Virenscanner-Laufzeiten")  
   lngLR3 = ws3.Cells(Rows.Count, 3).End(xlUp).Row

   For intI3 = lngLR3 To 2 Step -1
      Set MyDate3 = ws3.Cells(intI3, 3)
      If MyDate3 <> "" Then  
         Datum = DateValue(MyDate3 & DatePart("yyyy", Date))  
         If Datum <= Date And Date - Datum <= 7 And _
          MyDate3.Offset(0, 2).Value = "" Then  
            a = MsgBox("Der Virenscanner " & MyDate3.Offset(0, -2).Value & " läuft am " & Datum - 30 & " aus," & Chr(13) & "Nochmals erinnern ?", vbYesNo)  
            If a = vbNo Then
               MyDate3.Offset(0, 2).Value = "Meldung erfolgt"  
            End If
         ElseIf Date - Datum >= 7 Then
            MyDate3.Offset(0, 2).Value = ""  
         End If
      End If
      Set MyDate3 = Nothing
   Next
   ActiveWorkbook.Save
End Sub

Datum = DateValue(MyDate3.Value & DatePart("yyyy", Date)) 

          Datum = DateValue(Trim(MyDate3.Value) & DatePart("yyyy", Date))