VBA Zählen wenn Kriterien erfüllt Array

Hallo Forumsmitglieder,
ich habe folgenden Code um eine Spalte mit einer Oder-Bedingung nach zwei Wörtern durchzusuchen.


Sub Search()
Dim Zähler As Long
Dim to_End As Long
Dim eintragCheck As Variant
Dim varArr As Variant
Dim lngAnzahl As Long
With Sheets("Datenblatt").Activate
to_End = Cells(Rows.Count, 6).End(xlUp).Row
For Zähler = 2 To to_End
If Cells(Zähler, 6) Like "*" & "Ausrundung" & "*" Or Cells(Zähler, 6) Like "*" & "blend" & "*" _
_
Then
lngAnzahl = lngAnzahl + 1
End If
Next Zähler
Worksheets("Auswertung").Range("B4").Value = lngAnzahl
End With
End Sub

Meine Frage hierzu wäre wie könnte man das in einen Array verpacken bzw Dynamischer gestalten um Kriterien hinzuzufügen oder zu löschen?
Desweiteren würde es mich interessieren ob man die Wörter unabhängig der Groß- und Kleinschreibung durchsuchen kann?
Danke und viele Grüße
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim Zähler As Long Dim lngAnzahl As Long With Sheets("Liste") For Zähler = 1 To .Cells(Rows.Count, 1).End(xlUp).Row lngAnzahl = lngAnzahl + Application.CountIf(Worksheets("Datenblatt").Columns(6), "*" & . _ Cells(Zähler, 1) & "*") Next Worksheets("Auswertung").Range("B4").Value = lngAnzahl End With

Sub Search() Dim Zähler As Long Dim to_End As Long Dim eintragCheck As Variant Dim varArr As Variant Dim lngAnzahl As Long Dim sb As Long Dim Suchbegriffe '--- Suchbegriffe auflisten in Kleinschreibung, mit Joker * an Anfang und ende Suchbegriffe = Array("*ausrundung*", "*blend*") With Sheets("Datenblatt") to_End = .Cells(.Rows.Count, 6).End(xlUp).Row For Zähler = 2 To to_End For sb = 0 To UBound(Suchbegriffe) If LCase(.Cells(Zähler, 6).Value) Like Suchbegriffe(sb) Then Exit For Next sb If sb

Hi
kannst du auch.
dann mit folgenden Änderungen, wenn die suchbegriffe in Tabelle 1 in Spalte A untereinander stehen:
Suchbegriffe = Sheets("Tabelle1").Range("A1").CurrentRegion.Value
...
for sb = 1 to Ubound(Suchbegriffe, 1)
If... Like "*" & Suchbegriffe(sb, 1) & "*" Then...
ich gehe mal davon aus, dass du keine Sterne in der Liste eingebn willst und füge diese daher auch im Code hinzu.
Wenn du das Array aus einem Zellbereich einliest, entsteht ein 2-Dimensionales Array mit dem Startindex 1 (vorher eindimensionales Array mit Startindex 0)
beachte: es müssen mindeseten 2 Suchbegriffe in der Spalte A stehen (oder die Überschrift und mindestens ein Suchbegriff)
wenn nur ein Wert da steht, erzeugt die Zuweisung kein Array sondern einen Einzelwert und der muss wieder anders programmiert werden.
die Spalten links und rechts der Suchwerte müssen leer sein, ebenso die Zeile ober- und unterhalb.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

VBA Zählen wenn Kriterien erfüllt Array

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

34 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
1	Ausrundung
2	blend
3	WasAuchImmer

VBA Zählen wenn Kriterien erfüllt Array

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

34 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread