With Cells(rowCounter, colCounter)
If colCounter = ColumnBestellungMenge Then Call SpecialNumberFormat(Cells(rowCounter, colCounter), Unit) '
With Cells(rowCounter, colCounter)
If colCounter = ColumnBestellungMenge Then Call SpecialNumberFormat(Cells(rowCounter, colCounter), Unit) '
Set rng= Cells(rowCounter, colCounter)
With rng
Dann hat das Kind auch einen Namen.