Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge