wie muss ich nachstehenden Code ändern; die "myZeile" ermitteln ist nicht
das Problem - aber die Einsetzung in den Code:
Sub Zahl_aus_Text()
' von K.Rola (ohne myZeile-Variante)
Dim r As Range, intSpalte As Integer, i As Long, myZeile As Long
myZeile = Range("A65536").End(xlUp).Row
'''''hier klemmts: wie muss die Schreibweise lauten?
For Each r In [a2:a&"MyZeile"] ' Fehlermeldung:Objekt erforderlich
intSpalte = 1 + 1
For i = 1 To Len(r.Text)
If IsNumeric(Mid(r.Text, i, 1)) Then
r.Offset(0, intSpalte) = r.Offset(0, intSpalte) & Mid(r.Text, i, 1)
Else
If Len(r.Offset(0, intSpalte)) > 0 Then intSpalte = intSpalte + 1
End If
Next
Next
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de