|
zum Beispiel :Zellen werden manchmal als leer dargestellt, enthalten aber nicht sichtbare Zeichen
'
If Not ChkIsEmpty(Cells(iZeile, iInputDataVehicleSpalte)) = True Then
'
'
End Sub
Private Function ChkIsEmpty(myCell As Range) As Boolean
Dim IsIt As Boolean
IsIt = IsEmpty(myCell)
If myCell.Formula <> vbNullString Then IsIt = False
ChkIsEmpty = IsIt
End Function
PS: wegen der Problematik (benutzt, formatiert, gefärbt und kommentiert etc.) solltest du immer gezielt prüfen, was bedeutet für DICH = leer!
|