Office: Formel in Makro relativ weit runterziehen

Hallo mal wieder :-)

Hier mein Problem. Eine Formel liest mir die letzten zwei Zeichen einer Zelle aus. Diese soll nunr genau so weit runtergezogen werden, wie die angrenzenden Zellen mit Inhalt gefüllt sind.
Dazu markiere ich schlicht die Zelle mit der Formel und doppelklicke in die rechte untere Ecke.
Doch wie realisiere ich das als Code in einem Makro?

Gruß, Freddy

 

Hallo!

So bestimmst du die Zeile der letzten beschriebenen Zelle in Spalte E:

Letzte = Range("E65536").End(xlUp).Row

Damit hast du also den Endpunkt für Spalte F:

Range("F" & Letzte)

 

danke schonmal.

allerdings bekomme ich bei der umsetzung eine fehlermeldung und bei *=Range("E65536").End(xlUp).Row* wird mir das ".End" markiert ...

manchmal wünsche ich mir explizitere Fehlermeldungen als nur "Fehler" und die Markierung :-(

 

Hi Leute.

ich war die letzte Zeit komplett anders beschäftigt und habe mich die ganze Zeit nicht mehr mit Excel auseinandergesetzt. Jetzt sitz ich grade wieder dran und merke, dass ich zu dem Problem immer noch keine Lösung habe...

Die Begriffe stehen in Spalte "L" (genau genommen sind es Zahlen), die Formel steht in der Spalte "M" direkt daneben (und bezieht sich auf SpalteA).
Die Formel soll halt so weit runtergezogen werden, bis wo in "L" auch Werte stehen.

Deine Lösung oben habe ich nicht umsetzen (zum laufen bringen) können ....

Gruß

 

Hallo!

Poste doch mal etwas mehr von deinem Code.
Mir ist völlig schleierhaft, weshalb bei ".End" eine Fehlermeldung erscheinen sollte.
Welchen Datentyp hast du deiner Variable denn zugewiesen?

 

Hey Schatzi, hab es jetzt anders realisiert.

Code:

Sub Formeln_eintragen()
Dim lngZeile As Long
For lngZeile = 2 To Range("L65536").End(xlUp).Row
    Cells(lngZeile, 2).FormulaR1C1 = "=RIGHT(RC[-1],2)"
Next lngZeile
End Sub 

Damit klappt es auch. Danke!

 

Hallo!

Das hier sollte genau das gleiche tun, wenn die erste Formel in B1 bereits vorhanden ist:

Code:

Sub Formeln_eintragen()
Dim lngZeile As Long
lngZeile = Range("L65536").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & lngZeile)
End Sub