Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "MyZeile ermitteln"
Letzte nichtleere Zelle ermitteln Blattname ermitteln
Kopfzeile der Zelle mit dem höchsten Wert ermitteln. Ermitteln von Datei- und Pfadnamen
Zellinhalt in zweitem Blatt ermitteln Zustand von Tabellenblatt-Checkboxes ermitteln
Wert in der Zelle neben dem Maximalwert ermitteln Summe einzelner Zellwerte ermitteln
Seitenumbruch ermitteln und Übertrag erstellen Anzahl von CheckBoxes in einer UserForm ermitteln