Public Function DelRows(ByVal Number As Integer)
 
  Dim i As Long
  Dim strTemp As String
 
  i = i + 1
 
  strTemp = Range("A" & i).FormulaR1C1
 
  Do While strTemp <> ""
    If InStr(strTemp, Number) > 0 Then
      Range(i & ":" & i).Delete
    Else
      i = i + 1
    End If
    strTemp = Range("A" & i).FormulaR1C1
  Loop
 
End Function

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