Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel durch WorksheetFunction

Forumthread: 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

Anzeige

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

Anzeige
AW: Formel durch WorksheetFunction
01.07.2008 15:33:00
Andre´
Hallo Reinhard,
funzt prima.
Vielen vielen DANK, hast mir sehr geholfen!
MFG Andre
;

Forumthreads zu verwandten Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anordnung Worksheets ändern (Code)
Florian

Morgen zusammen,
wie kann ich die Anordnung der Worksheets per Makro ändern (Codezeile). Worksheet(3) soll also z.B. an erster platziert werden.
Danke, Gruss!
Florian
10.03.2009 09:08:12
Thread-ID: 1058472
3 Beiträge
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Worksheet_Change Fehler bei Wechsel des Worksheets
Frank

Guten Morgen,
ich möchte bei Änderung auf einem "Tabellenblatt 1" mit Hilfe des Ereignisses "Worksheet_Change" in einem "Tabellenblatt 2" einen Bereich kopieren und diesen ins "Tabellenblatt 1" kopieren.
Ich erhalte die Fehlermeldung "Die Methode 'Range' für das Objekt '_Worksheet' ist...
09.10.2009 09:38:17
Thread-ID: 1108473
14 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge
Mehrere Worksmaps in ein Worksheet kopieren
Luke

Hallo,
ich würde gerne mit VBA mehrere Worksmaps(die alle gleich sind(Range A:R)) in ein Worksheet nacheinander kopieren. Die Zeile 1 soll aber nur ein mal mitkopiert werden.
Vl. kann mir jemand helfen
Danke im Voraus
Luke
07.01.2013 10:12:54
Thread-ID: 1293126
3 Beiträge
ForumlaR1C1 umwandeln in WorkSheetFunction?
Maximilian

Hallo!
Zunächst danke an Rudi für den Lösungsvorschlag letzte Woche:
=SUMMENPRODUKT((sapLISEK_komplett.xls!$B$2:$B$1739=$C2)*(sapLISEK_komplett.xls!$C$2:$C$1739=D$1) *sapLISEK_komplett.xls!$E$2:$E$1739) Allerdings funktioniert das irgendwie nicht so, wie es soll -> alle Werte sind...
05.02.2013 10:24:45
Thread-ID: 1297678
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige