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"