Sub
FillEmptyFields()
Dim
ws
As
Excel.Worksheet
Dim
rng
As
Excel.Range
Set
ws = Worksheets(
"Tabelle1"
)
If
ws.AutoFilterMode
Then
ws.AutoFilterMode =
False
Set
rng = ws.Range(
"A1:N4145"
)
rng.AutoFilter Field:=14, Criteria1:=
""
If
Not
Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible), rng.Columns(14))
Is
Nothing
Then
Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible), rng.Columns(14)).Value =
"-"
End
If
rng.AutoFilter Field:=14
End
Sub