kann man ermitteln, ob der Wert einer Zelle nur aus Leerzeichen oder auch aus Buchstaben ect. besteht?
Dank im Voraus.
Steve
Sub Steve()
Dim i As Integer, j As Integer, z As Integer
j = Len(Range("A1").Value)
If j = 0 Then
MsgBox "Zelle ist leer !"
Exit Sub
End If
For i = 1 To j
If Mid(Range("A1").Value, i, 1) = " " Then
z = z + 1
End If
Next i
If j = z Then
MsgBox "Zelle enthält nur Leerzeichen !"
Else
MsgBox "Zelle enthält nicht nur Leerzeichen !"
End If
End Sub