<strong>Sub durchlauf()
firstLine = ActiveCell.Row
activeColumn = ActiveCell.Column
activeRow = ActiveCell.Row
If ActiveCell.Value <> "" Then
Do
myCell = Cells(activeRow, activeColumn).Value
auswertung myCell
activeRow = activeRow + 1
If Cells(activeRow, activeColumn).Value = "" Then
activeRow = firstLine
activeColumn = activeColumn + 1
End If
myCell = Cells(activeRow, activeColumn).Value
Loop While myCell <> ""
End If
End Sub
Function auswertung(myCell As Variant)
Debug.Print myCell
End Function</strong>