Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 22:12:12
Datei Attribute auslesen
29.04.2024 20:24:42
Datum nach Tag Monat Jahr sortieren
29.04.2024 19:27:41
Farbvorkommen innerhalb einer Produktkategorie
29.04.2024 17:40:50
Formel Index mit Vergleich kombiniert mit Addition
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zählenwenn Array Dict

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zählenwenn Array Dict
24.02.2020 09:33:08
Nepumuk
Hallo Max,
du machst nichts falsch. Das liegt am Transpose, das kann nur eine bestimmte Datenmenge verarbeiten. Das heißt, du musst das Dictionary nochmal umschaufeln:
Option Explicit
Sub zaehlen()
Dim objCount As Object, vntTmp, vntKEY
Dim lngIndex As Long
Set objCount = CreateObject("scripting.dictionary")
'Suchbegriffe
vntTmp = Sheets("tabelle2").Cells(1, 1).CurrentRegion
For Each vntKEY In vntTmp
objCount(vntKEY) = 0
Next
'Suchmatrix
vntTmp = Sheets("Tabelle1").Cells(2, 1).CurrentRegion.Resize(, 1)
For Each vntKEY In vntTmp
If objCount.exists(vntKEY) Then _
objCount(vntKEY) = objCount(vntKEY) + 1
Next
ReDim vntTem(1 To objCount.Count, 1 To 1)
For Each vntKEY In objCount.items
lngIndex = lngIndex + 1
vntTem(lngIndex, 1) = vntKEY
Next
'Werte ausgeben
Sheets("Tabelle2").Cells(2, 2).Resize(objCount.Count) = vntTem
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA Zählenwenn Array Dict
24.02.2020 10:27:56
Max
Hey Nepumuk,
vielen Dank. Das hat mir sehr geholfen.
Eine Sache ist mir noch aufgefallen. Obwohl bei Suchbegriffe und Werte ausgeben der gleiche Bereich angegeben ist, fehlt beim Werte ausgeben das Ergebnis der letzten Zeile. Ich habe schon an den Bereichen geschraubt aber die Lösung nicht gefunden.
Weißt du woran es liegen kann?
Grüße
Max
AW: VBA Zählenwenn Array Dict
24.02.2020 10:41:56
Max
Hey Nepumuk,
ich habe zum Abgleich mal die normale Zählenwenn-Formel neben das Ergebnis des Makros gesetzt. Bis auf ein paar Ausnahmen, passen die Ergebnisse nicht zusammen.
Woran kann das liegen?
AW: VBA Zählenwenn Array Dict
24.02.2020 10:53:17
Max
Ich glaube das Problem gefunden zu haben. In Tabelle2 gibt es Duplikate. Anstatt das passende Ergebnis in Spalte B zu schreiben, wird der Wert anscheinend ignoriert und dadurch verschieben sich die folgenden Ergebnisse.
Gibt es dafür eine Lösung, außer die Duplikate in Tabelle2 zu löschen?
Anzeige
AW: VBA Zählenwenn Array Dict
24.02.2020 11:38:37
Nepumuk
Hallo Max,
stimmt, da sind zwei doppelte drin. Teste mal:
Option Explicit

Sub zaehlen()
    Dim objCount As Object
    Dim vntTmp, vntKEY
    Dim lngIndex As Long
    
    Set objCount = CreateObject(Class:="Scripting.Dictionary")
    
    'Suchbegriffe
    With Worksheets("Tabelle2")
        vntTmp = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
    End With
    
    With objCount
        
        For Each vntKEY In vntTmp
            If .Exists(vntKEY) Then
                .Item(Key:=Rnd) = vbNullString
            Else
                .Item(Key:=vntKEY) = 0
            End If
        Next
        
        'Suchmatrix
        With Worksheets("Tabelle1")
            vntTmp = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value2
        End With
        
        For Each vntKEY In vntTmp
            If .Exists(vntKEY) Then .Item(Key:=vntKEY) = .Item(Key:=vntKEY) + 1
        Next
        
        Redim vntTem(1 To .Count, 1 To 1)
        
        For Each vntKEY In .Items
            lngIndex = lngIndex + 1
            vntTem(lngIndex, 1) = vntKEY
        Next
        
        'Werte ausgeben
        Worksheets("Tabelle2").Cells(2, 2).Resize(.Count) = vntTem
        
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA Zählenwenn Array Dict
24.02.2020 22:44:56
Max
Hey Nepumuk,
besten Dank. Jetzt klappt es :-)
Grüße
Max

303 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 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
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1