Dynamisches Autofill
06.06.2006 14:32:25
Anton
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