Public Sub Zellen_durchlaufen1() Dim i As Integer Dim j As Integer Dim CounterRow As Integer