VBA Formel auf Bereich?

03/07/2014 - 20:40 von Peter Schuerer | Report spam
Hallo Claus und Gemeinde,

XL2002.

in $O$3 steht eine Formel und in N3:N stehen Werte.
Ich möchte jetzt die Formel in $O$3 bis an das Ende der Spalte N
kopieren (es werden stàndig neue Daten eingefügt).
Wenn ich $O$3 anklicke und auf den schwarzen Punkt unten rechts
doppelklicke, wird die Formel bis zum Ende der Spalte N kopiert.
Wie macht man das mit einem Makro??

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
03/07/2014 - 20:54 | Warnen spam
Hallo Peter,

Am Thu, 03 Jul 2014 20:40:30 +0200 schrieb Peter Schuerer:

in $O$3 steht eine Formel und in N3:N stehen Werte.
Ich möchte jetzt die Formel in $O$3 bis an das Ende der Spalte N
kopieren (es werden stàndig neue Daten eingefügt).
Wenn ich $O$3 anklicke und auf den schwarzen Punkt unten rechts
doppelklicke, wird die Formel bis zum Ende der Spalte N kopiert.



das macht man mit dem Makro so:
Sub Formel2()
Dim LRow As Long

LRow = Cells(Rows.Count, "N").End(xlUp).Row
Range("O3").AutoFill Range("O3:O" & LRow)
End Sub

Du kannst aber auch gleich die Formel in den ganzen Bereich schreiben,
was ich vorziehen würde. Du musst nur in diesem Code deine Formel
anpassen (Mit FormulaLocal kannst du die Formel auch auf Deutsch
eingeben. Ich bevorzuge Formula, da VBA englisch spricht und sich die
Formel dann in allen Sprachversionen anpasst):

Sub Formel()
Dim LRow As Long

LRow = Cells(Rows.Count, "N").End(xlUp).Row
Range("O3:O" & LRow).Formula = "¡*N1"
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen