Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngCell As Range
    For Each rngCell In Worksheets("Bestellformular").Range("S7:S12").Cells
         If rngCell = "" Then
            rngCell.BorderAround ColorIndex:=3, Weight:=xlThick
        End If
   Next
End Sub