wenn leer stoppt die Schleife nicht

Question

ich mit Ihrer Hilfe benötigen:

Spalte J (Endtermin)

Spalte G (DUE DATE)

COLUMN M (zeigt: früh, pünktlich oder Verzögerung)

• wenn J blank ich die Schleife stoppen wollen
• es nicht mit meinem Code unten und alle Zellen in J Spalte sind immer gefüllt
• D-Wert ist immer 0 (ich bin immer alles so rechtzeitig in Spalte M)

HINWEIS: Wenn ich für eine Zelle statt Bereich versucht haben, es funktioniert richtig

Sub TIMESTATUS() 
    Dim CompletionDate As Long 
    Dim DueDate As Long 
    Dim D As Boolean 

    For Each C In Sheet1.Range("j:j") 
     If C.Value = "" Then 
      Exit For 
     Else 
      For Each g In Sheet1.Range("g:g") 
       CompletionDate = C.Value 
       DueDate = g.Value 
       D = CompletionDate - DueDate 
       If D > 0 Then 
        Range("m:m").Value = "Delay" 
       ElseIf D < 0 Then 
        Range("m:m").Value = "Early" 
       ElseIf D = 0 Then 
        Range("m:m").Value = "On Time" 
       End If 
      Next 
     End If 
    Next 
End Sub 

Answer 1

Sie nach so etwas wie dies auch sein mag:

Sub TIMESTATUS()   
    Dim C As Range 
    Dim strng As String 

    With Sheet1 '<--| reference your sheet 
     For Each C In .Range("J:J").SpecialCells(xlCellTypeConstants, xlNumbers) '<--| loop through its column J not empty cells with numbers only 
      Select Case C.Value - .Cells(C.row, "G").Value '<--| check the difference between curent column "J" cell and its corresponding one i column "G" against following cases 
       Case Is > 0 '<--| if difference >0 
        strng = "Delay" 
       Case Is < 0 '<--| if difference <0 
        strng = "Early" 
       Case Else '<--| esle (i.e. if difference =0) 
        strng = "On Time" 
      End Select 
      .Cells(C.row, "M").Value = strng '<--| write down the value 
     Next 
    End With 
End Sub 

Answer 2

In Ihr Code ist boolesch. Es bedeutet, dass es zwei Werte hat - True oder False. So Code wie: If D > 0 ThenElseIf D < 0 ThenElseIf D = 0 Then sinnlos ... Sie mehr für Boolesche Werte hier lesen können: https://msdn.microsoft.com/en-us/library/wts33hb3.aspx