Office: Formeln in dynamischer Liste mittels VBA

Hallo Forum,

in Excel 2007 habe ich eine Tabelle, die sich dynamisch in der Zeilenanzahl verhält. Es können z.B. mal 50 Zeilen sein oder mal 100, je nach Datenmenge.

Mittels VBA habe ich einen svweweis eingefügt. Das klappte auch alles, bis ich festgestellt habe, das der sverweis immer zur gleichen Zeile ausgeführt wird. Kommen aber Zeilen hinzu, dann wird verständlicherweise der sverweis bis zum definierten Bereich ausgeführt. Nun möchte ich aber, dass der sverweis bis zum Ende der Tabelle ausgeführt wird mittels VBA
Kann mir geholfen werden? Ich hoffe mein Problem richtig dargestellt zu haben.
Danke schon mal im Vorraus für Euer bemühen

Gruß
htumm

 

Hallo!

Code:

Cells(Rows.Count, 3).End(xlUp).Row

liefert dir die Zeilennummer der letzten beschriebenen Zelle aus Spalte 3.

 

Hallo,

danke für die schnelle Beantwortung. Ich habe nun versucht den Befehl einzu bauen.
Es ergibt sich beim Ausprobieren aber ein Fehler.

Hier einmal der komplette Makro.

SalesLicenceeinfügen Makro
'

'
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RIGHT(RC[-2],5)<>""10000"",""Sales"",""Licence"")"
Range("J2").Select
'Cells(Rows.Count, 9).End(xlUp).Row
Selection.AutoFill Destination:=Range("J2:Cells(Rows.Count, 9).End(xlUp).Row")
Range("J2:Cells(Rows.Count, 9).End(xlUp).Row").Select
End Sub

Ich habe schon mehrere Varianten ausprobiert und keine Lösung hinbekommen. Kannst Du mir weiterhelfen?
Die Fehlermeldung lautet Laufzeitfehler 1004:

Die Methode 'Range' für das Objekt ' _Global' ist fehlgeschlagen


Danke und Gruss
htumm

 

Hallo!

Das hier sollte reichen:

Code:

Range("J2").FormulaR1C1 = "=IF(RIGHT(RC[-2],5)<>""10000"",""Sales"",""Licence"")"
Range("J2").AutoFill Destination:=Range("J2:J" & Cells(Rows.Count, 9).End(xlUp).Row)

 

Prima!

Klappt wie verrückt.
Danke