Dim i As Integer
 
  i = 1
  Do While Range("A" & i).FormulaR1C1 <> ""
    If FirstIsNum(Range("A" & i).FormulaR1C1) Then
      'Weitere Bearbeitung
    End If
    i = i + 1
  Loop

Private Function FirstIsNum(ByVal CellText As String) As Boolean
 
  On Error GoTo ErrHandle
 
  Dim iTest As Integer
 
  iTest = Left(CellText, 1)
 
  FirstIsNum = True
 
  Exit Function
ErrHandle:
  FirstIsNum = False
End Function

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.