Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zaehle wenn mit 2 kriterien in vba

Forumthread: zaehle wenn mit 2 kriterien in vba

zaehle wenn mit 2 kriterien in vba
kirsche
hallo leute,
ich bin hier schon am verzweifeln und hoffe auf eure hilfe. die recherche hat mich leider nicht weiter gebracht.
ich habe zwei tabellen. in tabelle 1 stehen die werte in spalte a und g, welche das suchkreterium beinhalten.
A G
1 1
2 2
3 1
1 1
1 2
2 1
in tabelle 2 möchte ich nun die anzahl der Kombi von spalte A und dem Wert 1 zählen. in meinem beispiel ergäbe das 2.
das ganze brauche ich per vba, denn es sind mehr als 10000 einträge über 5 spalten.
ich bedanke mich im voraus für eure hilfe.
gruß kirsche
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: zaehle wenn mit 2 kriterien in vba
02.07.2009 17:12:02
Tino
Hallo,
hier mal was mit VBA, Kommentare stehen im Code.
Function CheckSum(meAr1, meAr2, Wert1, Wert2) As Long
Dim A As Long, LZaehler As Long
For A = Lbound(meAr1) To Ubound(meAr1)
 If meAr1(A, 1) = Wert1 And meAr2(A, 1) = Wert2 Then LZaehler = LZaehler + 1
Next A
CheckSum = LZaehler
End Function

Sub Beispiel()
Dim meAr1, meAr2
Dim Bereich As Range
Dim Ergebnis As Long

Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
meAr1 = Bereich
meAr2 = Bereich.Offset(0, 6)

'Übergabe meAr1 = z. Bsp. Range("A1:A10") als Area 
'Übergabe meAr2 = z. Bsp. Range("G1:G10") als Area 
'Ar1 und Ar2 sollten die gleiche größe haben 
'Wert1 = Werte suchen in Spalte A 
'Wert2 = Werte Suchen in Spalte G 
Ergebnis = CheckSum(meAr1, meAr2, 1, 1)

MsgBox Ergebnis
End Sub


Gruß Tino

Anzeige
AW: zaehle wenn mit 2 kriterien in vba
02.07.2009 19:57:27
kirsche
hallo tino,
danke für deine hilfe, ich komme allerdings nicht so recht klar mit dem makro. vielleicht hänge ich schon zu lange über dem problem ;-((
ich habe mir mit dem teilergebnis und nem filter nun geholfen. trotdem danke ;-))
gruß kirsche
AW: zaehle wenn mit 2 kriterien in vba
02.07.2009 17:55:31
ransi
HAllo
Schau dir auch mal dies an:
Option Explicit


Public Sub test()
Dim Arr1
Dim Arr2
Dim myDic
Dim L As Long
Arr1 = Tabelle1.Range("A:A")
Arr2 = Tabelle1.Range("G:G")
Set myDic = CreateObject("Scripting.Dictionary")
For L = LBound(Arr1) To UBound(Arr1)
    If Arr1(L, 1) = "1" Then myDic(Arr1(L, 1) & "--" & Arr2(L, 1)) = myDic(Arr1(L, 1) & "--" & Arr2(L, 1)) + 1
Next
Tabelle2.Range("A1").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.keys)
Tabelle2.Range("B1").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.items)
End Sub

ransi
Anzeige
Thema verfehlt...
02.07.2009 17:58:17
ransi
Ziehe den letzten Beitrag zurück.
ransi
;

Forumthreads zu verwandten Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Anzeige
Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Anzeige
Zwei Kriterien für Sverweis
sascha76er

Hallo,
ich habe folgende Liste:
https://www.herber.de/bbs/user/55778.xls
Hier möchte ich gerne anhand von zwei Kriterien einen SVERWEIS erstellen für die Spalte P , die Kriterien sollen aus den Werten der Spalten E und M gebildet werden. Der entsprechende Wert muss im Tabellenblatt...
01.10.2008 16:04:31
Thread-ID: 1013672
3 Beiträge
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
Anzeige
ausblenden mit 2 Bedingungen
Kai

Hallo zusammen,
ich hatte mit folgendem Makro Hilfe in diesem Forum bekommen:
Private Sub Worksheet_Change(ByVal Target As Range) Dim intA As Long, intS As Long, wksS As Worksheet, wksT As Worksheet Dim zz As Long, rngH As Range If Not Intersect(Target, Range("A2:A21")) Is Nothing The...
22.10.2008 01:39:27
Thread-ID: 1018197
12 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige