AW: Bestimmte Zeichen in einer Zelle mit VBA ändern
14.11.2006 08:05:44
Heiko
Hallo Stefan,
z.B. so.
Sub SternRein()
Dim lngLastRow As Long, lngI As Long
Dim strHelp As String, strRest As String
lngLastRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For lngI = 1 To lngLastRow
If ActiveSheet.Cells(lngI, 1) = "D" And Len(ActiveSheet.Cells(lngI, 4)) > 40 Then
strHelp = Left(ActiveSheet.Cells(lngI, 4), 37) & "***"
strRest = Right(ActiveSheet.Cells(lngI, 4), Len(ActiveSheet.Cells(lngI, 4)) - 40)
ActiveSheet.Cells(lngI, 4) = strHelp & strRest
End If
Next lngI
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !