Gruppe
Allgemein
Problem
Wie kann ich den Text in einer Zelle per VBA-Makro auf 15 Zeichen kürzen?
StandardModule: basMain
Sub Cutten()
Dim rng As Range
For Each rng In Range("A1:A20").Cells
If WorksheetFunction.IsText(rng) Then
rng.Value = Left(rng.Value, 15)
End If
Next rng
End Sub