Wie Farbe zu füllen in einer Zelle in Workbook_BeforeSave

Question

Im Moment habe ich diesen Code unten:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

ThisWorkbook.Sheets("Sheet1").Cells(1, 1).Select 

For i = 2 To 10 
    If ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = "YES" Then 
     For j = 2 To 5 
      If ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = "" Then 
       **<insert format here>** 
      End If 
     Next j 
    End If 


    If ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = "NO" Then 
     For j = 2 To 5 
      If ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = "" Then 
       **<insert format here>** 
      End If 
     Next j 
    End If 
Next i 

End Sub 

Jetzt. Ich habe versucht, den folgenden Code innerhalb der If-Anweisung hinzuzufügen, hat aber nicht funktioniert

ThisWorkbook.Sheets("Sheet1").Cells(i, j).Interior.ColorIndex = 3 

Wie können wir den Zellen Füllfarbe ohne Wert hinzufügen?

Answer 1

mit diesem Versuchen (vor speichern):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    ThisWorkbook.Sheets("Tabelle1").Cells(1, 1).Select 

    For i = 2 To 10 
     If ThisWorkbook.Sheets("Tabelle1").Cells(i, 1).Value = "YES" Then 
      For j = 2 To 5 
       If ThisWorkbook.Sheets("Tabelle1").Cells(i, j).Value = "" Then 
        ThisWorkbook.Sheets("Tabelle1").Cells(i, j).Interior.ColorIndex = 3 
        '**<insert format here>** 
       End If 
      Next j 
     End If 


     If ThisWorkbook.Sheets("Tabelle1").Cells(i, 1).Value = "" Then 
      For j = 2 To 5 
       If ThisWorkbook.Sheets("Tabelle1").Cells(i, j).Value = "" Then 
        ThisWorkbook.Sheets("Tabelle1").Cells(i, j).Interior.ColorIndex = 3 
        '**<insert format here>** 
       End If 
      Next j 
     End If 
    Next i 

End Sub 

Answer 2

Interior.ColorIndex auf Bereich arbeiten müssen

vielleicht ist die Logik, die nicht als

versuchen diese

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Dim i As Long 

    With ThisWorkbook.Sheets("Sheet1") 
     For i = 2 To 10 
      Select Case .Cells(i, 1).value 
       Case "YES" 
        If WorksheetFunction.CountA(.Cells(i, 2).Resize(, 4)) < 4 Then .Cells(i, 2).Resize(, 4).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3 
       Case "NO" 
        If WorksheetFunction.CountA(.Cells(i, 2).Resize(, 4)) < 4 Then .Cells(i, 2).Resize(, 4).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 2 
      End Select 
     Next i 
    End With 
End Sub 

erwartet funktioniert