AW: Buchstaben löschen
01.11.2012 13:56:07
kurt
Hallo Hajo,
habe versucht mal eine Spalte eingefügt zum Testen, jetzt in Spalte H,
klappte nicht.
Sub Wert_Spalte()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
Cells(LoI, 1) = Trim(Evaluate("=RIGHT(" & Cells(LoI, 8).Address & ",COUNT(RIGHT(" & _
Cells(LoI, 8).Address & ",COLUMN(8:8))*1))"))
'{=RECHTS(A1;ANZAHL(RECHTS(A1;SPALTE(1:1))*1))}
Next LoI
End Sub
die Länge jetzt zu Spalte B, könntest Du mal schauen ?
mfg kurt k