Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formel durch WorksheetFunction

Formel durch WorksheetFunction
01.07.2008 09:56:00
Andre´
Hallo alle zusammen,
Ich möchte folgende Formel mit VBA realisieren.
Zählen

 JK
31L
41G
50 
60 
72G
82L
90 
103L

Formeln der Tabelle
ZelleFormel
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
Anzeige
AW: Formel durch WorksheetFunction
01.07.2008 14: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 15:33:00
Andre´
Hallo Reinhard,
funzt prima.
Vielen vielen DANK, hast mir sehr geholfen!
MFG Andre
Anzeige

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige