PDA

Vollständige Version anzeigen : mid bzw teil funktion in vba


peacemaker91
22.04.2009, 22:10
Hallo,
ich habe folgendes Problem:
in Zelle A1 bis A100 stehen verschiedenen Textketten.
Aus dieser kann ich in Excel mit der Funktion =teil(A1;11;4) mein gewünschtes Ergebnis erzeugen und dann per ausfüllkästchen ergänzen.

Doch leider bekomme ich diese Funktion nicht per VBA hin, sie müsste für A1 heißen:
=mid(Range("A1"),11,4).Das funktioniert auch, doch :
Wie kann ich nun, alles ausfüllen lassen (z.b. bis A100).
Oder gibts es eine möglichkeit Die Range("A1") durch eine Zählvariable zu ersetzen?

Mit freundlichen Grüßen
Daniel

chris-kaiser
22.04.2009, 23:06
hiho

dim i as integer
for i=1 to 100
cells(i,2).value=mid(cells(i,1).value,11,4)
next

so in der Art

peacemaker91
29.04.2009, 19:58
danke für die super hilfe