Office: mittels Makro eine Spalte markieren bis letzte Zeile

Guten morgen !
Ich möchte mittels Makro eine Hilfspalte generieren und dort eine Formel kopieren.
In A2 beginnen die Rohdaten in B2 möchte ich =links(a2;1) einfügen (bis hier her habe ich das Makro schon), doch jetzt möchte ich diese Formel nach unten kopieren, dies aber variabel gestalten, d.h. die Anzahl der Zeilen sollen durch die letzte Zeile in A vorgegeben werden. Ähnliches Problem wurde mir bereits gestern gelöst (da ging es um die variable Gestaltung von Formeln) - leider kann ich das auf die Kopierfkt. nicht übertragen.

MfG

Shaiby

:)

 

Hallo Shaiby

Code:

Code eingefügt mit:

 

Hallo Hajo !
Die Formel sollte sich noch anpassen, also in B2 =links(a2,1)
, B3=links(a3,1), B4=links(a4,1) usw.

Von Hand habe ich das mit Copy gemacht.

Außdem komme ich mit der Syntax nicht klar. Könntest Du mir bitte erklären, wie ich die Parameter ändern muss, um z.B. Spalte Z anzusprechen statt B ?

Vielen Dank.

Shaiby

 

Hallo Shaiby

zu eins
Man sollte das Makro schon testen bevor es kritisiert wird. Die Formel wird angepast.

zu 2

ändere den text [a65536] in Cells(65536,4)

4 ist der numerische ausdruck für Spalte D
1= A
2= B
3 =C usw.

Range(Cells(2, 2), Cells(Loletzte, 2)).

Cells(2,2) bedeutet ab Cells(Zeile,Spalte) als ab 2 Zeile in Spalte 2 also Spalte B. die erste Ausgewälte Zelle in Range ist B2

Gruß Hajo

 

Hi,

alternativ hannst Du auch folgende Codezeile nutzen:

Range("Z1:Z" & Loletzte).FormulaLocal = "=Links(A1;1)"

CU

Johannes

 

Hallo Hajo !
Sollte keine "böse" Kritik sein. Habe das Makro getestet und bei mir stand überall nur =Links(a2,1) - sorry . Vielleicht habe ich mich ja auch vertippt - ich suche nochmal.

Auf jeden Fall vielen Dank für die Hilfe.

MfG
Shaiby