Zelleninhalt kürzen
10.03.2009 10:30:56
Gordon
ich hab mal eine Frage die ich schon gestern gestellt hat, wobei ich das aber ein einem älteren Beitrag (von letzter Woche) von mir tat und ich nun nur Angst habe, dass dieser nicht mehr gesehen wird. Daher stelle ich diese Frage hier jetzt noch mal. Ich hoffe, dass ist so in Ordnung. Und wenn nicht, einfach ignorieren. ;-)
Also:
Ich habe ein kleines Problem mit einem Code im Worksheet_Change. Habe dort einen Code stehen, der eigentlich super läuft (Dank Franz, mein Held!), wobei nun nach ein paar kleineren Änderunegn ein bestimmter Code-Teil nicht ausgeführt wird. Dieser hier:
Private Sub Worksheet_Change(ByVal Target As Range)
'Werte in Spalte G einkürzen
If Not Intersect(Target, Columns("G:G")) Is Nothing And Target.Row > 5 Then
For Each rG In Target.Columns("G:G")
If Len(rG.Value) > 4 Then
rG.Value = Right(rG.Value, 4)
End If
Next rG
End If
End Sub
Zur Erklärung:
Es soll so laufen, dass in der Spalte "G" eine Eingabe auf die letzten vier Zeichen gekürzt wird. Und das ab einschließlich Zeile 6 abwärts.
Aber irgendwie läuft er nicht mehr. Woran kann das liegen? Jemand eine Idee? Bin mir selber nicht ganz sicher, wie ich daran gehen soll. 'rG' ist eine Range und wird so bestimmt:
With wksVergleich
Set rG = .Range(.Cells(1, 55), .Cells(lngZeilen_V, 55)).Find(what:=varDS_Nr, _
LookIn:=xlValues, lookat:=xlWhole)
End With
Gruß
Gordon