wie kann ich =COUNTA(R[-14033]C:R[-1]C)" dynamisieren?

[DiBr]

Hallo,

habe nachfolgende Formel eingefügt.
Wie kann ich diese dynamisieren, dass der Bereich bis in die letzte belegte Zelle in Spalte b erfasst und berechnet wird?

ActiveCell.FormulaR1C1 = "=COUNTA(R[-14033]C:R[-1]C)"

Danke

[Gast 123]

Hallo

dieser kleine Code berechnet dir die Formal ab der 1. Zeile nach ActivCell bis zum Ende, letzte Zeile.
Er ist NICHT Spalten abhaengig, funktioniert in jeder Spalte. Aber mit Zell-Adresse statt R1C1!

mfg Gast 123

Code:

Sub test()
Dim Adr As String, Edr As String, Sp As Long
    Sp = ActiveCell.Column     'ActiveCell Column
    Adr = ActiveCell.Offset(1, 0).Address  'Activecell Addresse
    Edr = Cells(Rows.Count, Sp).End(xlUp).Address  'Last Address
    'CountA ab 1. Zeile nach Activcell bis Zeilenende
    ActiveCell.Formula = "=COUNTA(" & Adr & ":" & Edr & ")"
End Sub

[DiBr]

Danke für den Code.
Leider funktioniert er nur wenn ich eine Zelle der Reihe2 markiere. Ich hätte die Berechnung in der ersten leeren Zelle der Spalte eingfügt.
So dass die Berechnung von der letzten belegten Zelle bis zur Reihe2 (in der 1. Reihe habe ich Überschriften die brauchen nicht mit berechnet werden)

[BoskoBiati]

Hi,

Code:

Sub Test()
Dim loSp As Long
Dim loRow As Long
loRow = ActiveCell.Row - 1
loSp = ActiveCell.Column
ActiveCell = Application.CountA(Range(Cells(2, loSp), Cells(loRow, loSp)))
End Sub

[DiBr]

Super. Danke.