Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamisches Autofill

Forumthread: Dynamisches Autofill

Dynamisches Autofill
06.06.2006 14:32:25
Anton
Hallo Leute,
ich habe jeden Tag eine lange Namensliste zu trennen.
Die Listen sind je Fachgebiet und Tag verschieden lang.
Folgendes habe ich bisher für die erste Zeile erreicht:

Sub F_Namenstrennung()
' durch Leerzeichen getrennte Namen auftrennen
' Makro am 06.06.2006 von Admin aufgezeichnet
Range("B3").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1],1)-1)"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-4],LEN(RC[-4])-LEN(RC[-3])-1)"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[2],FIND("" "",RC[2],1)-1)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-3],4)"
Range("A1").Select
End Sub

Jetzt sollen diese Formeln per Autofill bis zum Ende kopiert werden.
Wer kann mir weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamisches Autofill
06.06.2006 14:43:35
Reinhard
Hi Anton,
Option Explicit
Sub tt()
Dim zei As Long
For zei = 1 To Range("B65536").End(xlUp).Row
Cells(zei, 2).FormulaR1C1 = "=LEFT(RC[-1],FIND("" "",RC[-1],1)-1)"
Cells(zei, 5).FormulaR1C1 = "=RIGHT(RC[-4],LEN(RC[-4])-LEN(RC[-3])-1)"
Cells(zei, 3).FormulaR1C1 = "=LEFT(RC[2],FIND("" "",RC[2],1)-1)"
Cells(zei, 4).FormulaR1C1 = "=RIGHT(RC[-3],4)"
Next zei
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Herzlichen Dank: Dynamisches Autofill
06.06.2006 14:56:20
Anton
Hallo Reinhard,
herzlichen Dank.
Ganz genau so hatte ich es gewollt.
Funzt prima.
Tolle Sache, und dann auch noch so kompakt....
Servus,
Anton
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige