Wenn Zelle dann...
01.02.2023 15:12:31
Antonio
mit diesem Code von GerdL, habe die Zelle ermittelt mit nur ein String und ergänzt,
Sub Unit()
Dim C As Range
For Each C In Range("A1:A99")
If Not IsNumeric(C) Then
If Len(C) = 1 Then
C = C.Value & " Insel"
End If
End If
Next
End Sub
jetzt habe in der Tabelle noch ein Problem, das in manche zelle ein Punkt ist als Platzhalter,wie kann ich den Punkt als leere zelle angeben?
Vielen Dank im Voraus
LG Antonio
Anzeige