6 letzten Zeichen löschen
11.11.2014 08:17:40
Muehli
ich habe versucht einen Code zu schreiben, mit dem es mir möglich ist, mit einem Button die letzten 6 Zeichen einer Zelle zu löschen, sollte in der Zelle etwas geschrieben sein.
Hier mein Versuch:
Private Sub CommandButton1_Click()
Dim WertZelle As String
F = 2
For F = 2 To 1000
WertZelle = Range("C" & F).Text
If Range("C" & F).Value "" Then
WertZelle = Left(WertZelle, Len(WertZelle) - 6)
End If
Next F
End Sub
Wo liegt mein (Denk-)Fehler?
Freundliche Grüße
Muehli
Anzeige