Ich möchte folgende Formel mit VBA realisieren.
Zählen
J | K | |
3 | 1 | L |
4 | 1 | G |
5 | 0 | |
6 | 0 | |
7 | 2 | G |
8 | 2 | L |
9 | 0 | |
10 | 3 | L |
Formeln der Tabelle | ||||||||||||||||||
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dazu würde ich wie folgt vorgehen:
Sub Formel() Dim rng As Range For Each rng In ThisWorkbook.Worksheets("Zählen").Range("K3:K1000" & Range("M1000").End(xlUp). _ _ Offset(1, 1)) If rng.Offset(0, 0) = "" Then GoTo Ende rng.Offset(0, -1) = WorksheetFunction.CountIf(Range("K1:K100"), rng.Offset(0, 0)) Next Ende: End Sub
Hierbei ist aber der Bereich starr.
Hat jemand eine Idee wie ich die WorksheetFunction.CountIf so einsetzen kann, damit ich wie in dem Formel Bsp. den Bereich immer von K3 bis zur durchlaufenden Zelle setzen kann.
Vielen Dank im Voraus!
MFG Andre