@grossermanitu
09.10.2007 12:44:39
Chaos
habe ausversehen deine Nachricht gelöscht und finde den Thread nicht mehr:
Ich kann deinen Bug nicht nachvollziehen, bei mir funktioniert das einwandfrei:
Hier nochmal ein erweitertes makro:
Sub No()
Dim zelle As Range, bereich As Range
Dim neu As String, anz As String
Dim diff As Double
Set bereich = Range("A1:C10")
For Each zelle In bereich
If zelle.Value Like "No*" Then
anz = Len(zelle.Value)
diff = anz - 2
neu = Right(zelle.Value, diff)
zelle.Value = neu
End If
Next zelle
Dim i As Integer
For i = 1 To 2 ' Löscht bis zu 2 Leerzeichen am Anfang nach Entfernung des No, anpassen an _
maximale Anzahl
Dim rng As Range
For Each rng In Range("A1:C10")
If Left(rng, 1) = Chr(32) Then
rng = Right(rng, Len(rng) - 1)
End If
Next rng
Next i
End Sub
Gruß
Chaos
Anzeige