Sub Test()
    Dim raZelle As Range
    Dim inZelle As Integer
    inZelle = 1
    For Each raZelle In Range("F11:U200").SpecialCells(xlCellTypeConstants)
        If IsNumeric(raZelle) Then
            If CInt(raZelle) - raZelle <> 0 Then
                If Abs(raZelle - CInt(raZelle)) <> 0.5 Then
                    Worksheets("Tabelle2").Cells(inZelle, 1) = raZelle
                    inZelle = inZelle + 1
                End If
            End If
        End If
    Next raZelle
End Sub