Zeilen mit InputBox definieren
07.02.2004 17:06:59
Erich M.
ich habe einen Code (von K.Rola) den ich nun anpassen möchte, in dem ich eine
fest definierte Zeilenanzahl flexibel mit einer InputBox gestalten will;
die flexible Zeilenanzahl nenne ich "myZeile"; in den anderen Codes klappt's,
im nachstehenden nicht, da der Bereich in []; geht es trotzdem?
Option Explicit
''''' Ü B U N G ''''''''
' Alle Zahlen aus Text ausgegliedert / Zahlen aneinandergehängt
Cells(1, 6) = "Zahlen angehängt"
For Each r In [Range"A2:A" & myZeile]
intSpalte = 1 + 4
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)
End If
Next
Next
'''' Original ''''''
' Alle Zahlen aus Text ausgegliedert / Zahlen aneinandergehängt
Cells(1, 6) = "Zahlen angehängt"
For Each r In [A2:A50]
intSpalte = 1 + 4
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)
End If
Next
Next
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich