Formel und VBA gesucht für (Vergleiche)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
Tabelle1

	A	B	C
1	2	2	2
2	5	1	2
3	6	0	1
4	2	2	2
5	5	1	2

Formeln der Tabelle

Zelle	Formel
C1	{=SUMME(WENN($A$1:$A$100&$B$1:$B$100=A1&B1;1))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
oder
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub WiredCountIf()
    Dim rngA As Range, rngB As Range
    Dim varRes() As Variant, lngR As Long

    Set rngA = Range("A1:A100")
    Set rngB = Range("B1:B100")

    If rngA.Rows.Count <> rngB.Rows.Count Then
        MsgBox "NöNö"
    End If

    Redim varRes(1 To rngA.Rows.Count)

    For lngR = 1 To rngA.Rows.Count
        If rngA(lngR, 1) <> "" And rngB(lngR, 1) <> "" Then
            varRes(lngR) = Evaluate("SUM(IF(" & rngA.Address & "&" & rngB.Address & "=" & rngA(lngR, 1).Address & "&" & rngB(lngR, 1).Address & ",1))")
        End If
    Next

    Range("D1:D" & lngR) = Application.Transpose(varRes)

End Sub

Gruß Sepp

Hi Chris,
mit Erklärungen ist das nicht so einfach. Wo anfangen, wo aufhören?
Wo ist es für dich noch langweilig, wo bist du schon ausgestiegen?
Besser, du stellst gezielte Fragen.
Natürlich kann ich dir einige Tipps geben, wo du erst einmal nachschauen solltest:
VBA-Hilfe (Schlüsselwort bei "Index" eingeben:
CreateObject
Dictionary - darunter besonders die ersten 7 Einträge in der Themenliste
Hier im Archiv:
https://www.herber.de/forum/archiv/956to960/t956801.htm
https://www.herber.de/forum/archiv/968to972/t968212.htm
https://www.herber.de/forum/archiv/956to960/t956769.htm (anderes Beispiel)
und mal stöbern nach Dictionary (Achtung, da kommt sehr viel!)
bei M$:
http://support.microsoft.com/kb/187234/de
Noch einen etwas anderen Zugang zum Dictionary bekommst du, wenn du es nicht über CreateObject anlegst,
sondern explicit deklarierst. (Dazu muss die Microsoft Scripting Runtime Lib eingebunden sein.)
Wenn du in der Routine dann "dicX." eingibst, wird VBA dir alle Möglichkeiten für Eigenschaften, Methoden anbieten,
die dieses Objekt hat. Und auch die Parameter dazu auflisten. Probiers einfach mal aus.
So sähe es z. B. aus: Option Explicit Sub tst() ' vorher: Extras - Verweise - "Microsoft Scripting Runtime" aktivieren Dim dicX As Scripting.Dictionary dicX.Add 5, 5 End Sub

Wenn du ansonsten noch Fragen zu dem Code hast: Kein Problem!
Aber wie gesagt: Gezielte Fragen wären günstig.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1			6	0
2			6	0
3			6	0
4			6	1
5			6	6
6			6	6
7			6	6
8			6	6
9			25	25
10			25	25
11			6	25
12			6	25
13
14
15
16
17
18
19
20
21
22
23	Summe:	12	in %
24	6-6	4	33,3%
25	25-25	2	16,7%
26	6-25	2	16,7%
27	6-0	3	25,0%
28	6-1	1	8,3%
29

	A	B	C	D
1			6	0
2			6	0
3			6	0
4			6	1
5			6	6
6			6	6
7			6	6
8			6	6
9			25	25
10			25	25
11			6	25
12			6	25
13
14
15
16
17
18
19
20
21
22
23	Summe:	12	in %
24	6-6	4	33,3%
25	25-25	2	16,7%
26	6-25	2	16,7%
27	6-0	3	25,0%
28	6-1	1	8,3%
29

Formel und VBA gesucht für (Vergleiche)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel und VBA gesucht für (Vergleiche)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread