Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zählenwenn in VBA-Array

zählenwenn in VBA-Array
14.10.2008 09:14:00
David
Hallo zusammen.
folgendes Makro:

Sub finden()
Dim P(12), C(9)
P(1) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3")
... (das packe ich später noch in eine Schleife)
P(12) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3")
C(1) = Application.WorksheetFunction.CountIf(P(), "A1")
End Sub


Ich möchte in dem Array P() zählen, wie oft der Wert A1 vorhanden ist. So wie ich das momentan mache, bekomme ich die Fehlermeldung "Typen unverträglich". Wie geht es richtig?
Danke und Gruß
David

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zählenwenn in VBA-Array
14.10.2008 09:17:00
Rudi
Hallo,
C(1) = Application.CountIf(P, "A1")
Gruß
Rudi
AW: zählenwenn in VBA-Array
14.10.2008 09:31:22
David
Hallo Rudi,
danke erst mal für die wie immer super schnelle Antwort.
Die Zeile läuft zwar jetzt ohne Fehler durch, aber die Variable C(1) hat anschließen keinen Wert. Wenn ich mit Msgbox C(3) einen Test mache, kommt wieder "Typen unverträglich"
Das Überwachungsfenster bringt folgendes:
Userbild
Hier mal noch der Vollständigkeit halber das ganze Makro:

Sub finden()
Dim i, counter
Dim P(12)
Dim C(9) 'As Boolean
For i = 1 To 6
P(i) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3")
P(i * 2) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3")
Next
C(1) = P(1)  P(3)
C(2) = P(2)  P(4)
C(3) = Application.CountIf(P, "A1")
'C(3) = Application.CountIf(P, "A1")


Irgendwo ist da noch der Wurm drin.
Gruß
David

Anzeige
AW: zählenwenn in VBA-Array
14.10.2008 10:59:54
Rudi
Hallo,

Sub finden()
Dim i, counter
Dim P(12)
Dim C(9) 'As Boolean
For i = 1 To 12 Step 2
P(i) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3")
P(i + 1) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3")
Next
C(1) = P(1)  P(3)
C(2) = P(2)  P(4)
For i = 1 To 12
C(3) = C(3) - (P(i) = "A1")
Next i
C(3) = C(3)


Gruß
Rudi

AW: zählenwenn in VBA-Array
14.10.2008 11:04:00
David
Hallo Rudi,
Schade, ich dachte, es geht einfacher als mit der Schleife (an die ich auch schon gedacht habe).
Da diese Prüfung noch für 5 weitere Werte erfolgen muss, habe ich mir eine Variante mit Select Case gebastelt, bei der eine weitere Variable hochgezählt wird. Ich denke, das ist dann noch halbwegs übersichtlich.

For i = 1 To 12
Select Case P(i)
Case "A1"
check(1) = check(1) + 1
Case "A2"
check(2) = check(2) + 1
Case "A3"
check(3) = check(3) + 1
Case "B1"
check(4) = check(4) + 1
Case "B2"
check(5) = check(5) + 1
Case "B3"
check(6) = check(6) + 1
End Select
Next


Danke für deine Hilfe.
Gruß
David

Anzeige
...noch offen...
14.10.2008 09:40:33
David
AW: Filterfunktion
14.10.2008 19:22:00
Gerd
Hallo David,
nur bei eindimensionalen Datenfeldern.
Msgbox 1 + Ubound(Filter(P,"A1",True,1))
Gruß Gerd
AW: Filterfunktion
14.10.2008 22:26:00
Daniel
Hi
die FILTER-Funktion kannte ich bisher noch nicht, man lernt hier immer noch was dazu.
@David
ob du in einer Worksheetfunction ein Array verwenden kannst, hängt davon ab, was die entsprechende Excelfunktion erfordert.
bei ZÄHLENWENN ist das ein Zellbereich, daher kannst du hier auch kein Array verwenden.
die Zählschleife ist zwar etwas aufwendiger, aber Excel ist beim Verarbeiten von Arrays idR sehr schnell, so daß auch bei grösseren Arrays ne Schleife auch nicht länger dauert als wenn du mit ner Worksheet-Function arbeiten würdest.
Von daher kann man das Problemlos verwenden.
Gruß, Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge

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
12
2
2
4
5
8
2
6
2
2
2
2
3
3
15
6
4
4
4
3
4
2
4
7
12