Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > wie kann ich =COUNTA(R[-14033]C:R[-1]C)" dynamisieren?
Normale Version: wie kann ich =COUNTA(R[-14033]C:R[-1]C)" dynamisieren?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

DiBr

15.01.2023, 10:47
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

15.01.2023, 17:20
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

16.01.2023, 12:25
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

16.01.2023, 12:59
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

17.01.2023, 09:23
Super. Danke.
Clever-Excel-Forum > Office-Anwendungen > Excel > wie kann ich =COUNTA(R[-14033]C:R[-1]C)" dynamisieren?