MyZeile ermitteln

Bild

Betrifft: MyZeile ermitteln von: Erich M.
Geschrieben am: 25.03.2005 16:35:40

Hallo EXCEL-Freunde,

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


Code eingefügt mit: Excel Code Jeanie

Besten Dank für eine Hilfe!

mfg
Erich
http://www.toolex.de

Bild


Betrifft: AW: MyZeile ermitteln von: Hajo_Zi
Geschrieben am: 25.03.2005 16:39:21

Hallo Erich
For Each r In Range("a2:a" & myZeile) ' Fehlermeldung:Objekt erforderlich


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: Danke Hajo - das wars!! von: Erich M.
Geschrieben am: 25.03.2005 17:05:28



mfg
Erich
http://www.toolex.de


 Bild

Beiträge aus den Excel-Beispielen zum Thema "MyZeile ermitteln"