Formel durch WorksheetFunction

Forumthread: Formel durch WorksheetFunction

01.07.2008 11:56:00

Andre´

Hallo alle zusammen,
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

Zelle	Formel
J3	=ZÄHLENWENN(K$3:$K3;K3)
J4	=ZÄHLENWENN(K$3:$K4;K4)
J5	=ZÄHLENWENN(K$3:$K5;K5)
J6	=ZÄHLENWENN(K$3:$K6;K6)
J7	=ZÄHLENWENN(K$3:$K7;K7)
J8	=ZÄHLENWENN(K$3:$K8;K8)
J9	=ZÄHLENWENN(K$3:$K9;K9)
J10	=ZÄHLENWENN(K$3:$K10;K10)

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel durch WorksheetFunction

01.07.2008 16:19:00

Reinhard
AW: Formel durch WorksheetFunction

01.07.2008 17:33:00

Andre´

AW: Formel durch WorksheetFunction

01.07.2008 16:19:00

Reinhard

Hi Andre,


Option Explicit
Sub tt()
Dim Zei As Long
For Zei = 3 To Range("K" & Rows.Count).End(xlUp).Row
Range("J" & Zei) = Application.WorksheetFunction.CountIf(Range("K3:K" & Zei), Range("K" &  _
Zei))
Next Zei
End Sub

Gruß
Reinhard

AW: Formel durch WorksheetFunction

01.07.2008 17:33:00

Andre´

Hallo Reinhard,
funzt prima.
Vielen vielen DANK, hast mir sehr geholfen!
MFG Andre

Forumthread: Formel durch WorksheetFunction

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread