Ich bräuchte Bitte ein Makro,das mir in der Spalte B die Werte nach 15 Zeichen von Links löscht.
Könnte mir Bitte jemand dabei Helfen ?
Danke & Gruß Heinz
Sub Nur_15_Zeichen()
Dim lZeile As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
Range("A" & lZeile).Value = Left(Range("A" & lZeile).Value, 15)
Next lZeile
End Sub
Sub Ab15Löschen()
Dim lz%, z As Range
lz = Cells(Rows.Count, 2).End(xlUp).Row
For Each z In Range("B1:B" & lz)
z.Value = Left(z.Value, 15)
Next z
End Sub