Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

6 letzten Zeichen löschen

Betrifft: 6 letzten Zeichen löschen von: Muehli
Geschrieben am: 11.11.2014 08:17:40

Guten Morgen zusammen,

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
Leider tut sich dabei überhaupt nichts, sollte ich auf den Button klicken.

Wo liegt mein (Denk-)Fehler?

Freundliche Grüße
Muehli

  

Betrifft: AW: 6 letzten Zeichen löschen von: {Boris}
Geschrieben am: 11.11.2014 08:21:09

Hi,

Du musst die Variable WertZelle auch wieder in die Excelzelle zurückschreiben:

If Range("C" & F).Value <> "" Then
  WertZelle = Left(WertZelle, Len(WertZelle) - 6)
  Range("C" & F).Value = WertZelle
End If
VG, Boris


  

Betrifft: AW: 6 letzten Zeichen löschen von: Muehli
Geschrieben am: 11.11.2014 08:38:42

Vielen Dank Boris!

Das habe ich total verschwitzt^^

Gruß
Muehli


 

Beiträge aus den Excel-Beispielen zum Thema "6 letzten Zeichen löschen"