Excel 2013 Daten in verschiedenen Zeilen mit Makro vergleichen "Laufzeitfehler 13, Typ stimmt nicht überein"

Question

Ich bin neu in VBA, derzeit arbeite ich und mein Chef brauche mich, um ein Excel-Makro zu erstellen.

Die Makro-Funktion sind:

• vergleichen Daten Daten sind, mit Enddatum Startdatum.
• automatische Erinnerung Benutzer Mitarbeiter Vertrag veraltet, wenn Arbeitsblatt geöffnet.
• Wenn Mitarbeiter Verträge veraltet, markieren Sie Mitarbeiterdetails.

So jetzt bin ich fest, bis "Laufzeitfehler 13, Typ stimmt nicht überein".

Unten sind meine Kodierung Teil, Mismatch ist zwischen >>> < < <.

Private Sub Worksheet_Activate() 
Dim rngA As Range 
Dim rngD As Range 

With Worksheets("Sheet1") 

    For Each rngA In .Range(.Range("A1"), .Cells(.Rows.Count, "A").End(xlUp)) 
    For Each rngD In .Range(.Range("D1"), .Cells(.Rows.Count, "D").End(xlUp)) 

     >>> If rngA.Value("A1:xlUp") >= rngD.Value("D1:xlUp") Then <<< 
      MsgBox "Sheet 1 Row " & rngA.Row & " expiring" 
      rngC.Interior.ColorIndex = 3 
      rngC.Font.ColorIndex = 2 
      rngC.Font.Bold = True 

     End If 


    Next rngD 
    Next rngA 


End With 
End Sub 

Answer 1

Bitte versuchen Sie diese

With Worksheets("Sheet2") 
lastrow = Range("A1048576").End(xlUp).Row 
For i = 2 To lastrow 
    If Range("A" & i).Value <> "" And Range("D" & i).Value <> "" Then 
     If Range("A" & i).Value >= Range("D" & i).Value Then 
      Range("C" & i).Value = "Contract Going to Expire" 
      Range("C" & i).Interior.Color = 3 
      Range("C" & i).Font.ColorIndex = 2 
      Range("C" & i).Font.Bold = True 
     End If 
    End If 
Next i 

End With