zählenwenn mit VBA Count If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
zuerst mal danke für eure Hilfe.
Mit dem Script von fcs funktioniert es. Die beiden anderen Ansätze kann ich nicht nutzen, da ich in den Datentabellen keine Ergänzugen eintragen kann.
Kann das Script noch erweitert werden, so dass ich noch eine Abhängigkeit in der gleichen Zeile abfragen kann?
Beispiel:
Meine Materialnummer war das oben stehende Script. Jetzt möchte ich noch das Lager in meiner Abfrage berücksichtigen und das steht irgendwo in der gleichen Zeile (z.B. 80000 München). Wir haben 4 Lager so dass ich das Ergebnis mit einer Unterabfrage "if Zellen Text" abfragen könnte. Aber mein Problem wäre dann, wie kann ich aus dem oben stehenden Script bei einem Treffer die Zeile ermitteln und diese dann mit einem Untercode ähnlich dem obenstehende ansprechen und abfragen.
Gruß Andy

Hallo Andi,
für eine zusätzliche Prüfung auf eines von 4 Lagern könntest du mit Ergebnis-Arrays arbeiten. In deiner Prüfung wird dem Namen des Lages die Nummer im Array zugewiesen.
So kannst du alle Lager in einem Durchlauf abarbeiten.
"steht irgendwo in der gleichen Zeile" ist für eine Prüfung etwas ungenau. Da sollte es schon ene bestimmte Spalte sein.

Sub SpecialAnzahl()
Dim adr As Range
Dim Zelle As Range, AnzahlText(1 To 4) As Long, AnzahlNumeric(1 To 4) As Long
Dim Zeile As Long, iLager As Long, SpalteLager As Long, strLager(1 to 4)
Set adr = ActiveSheet.UsedRange 'ggf. anpassen
SpalteLager = 4 'Spalte D - Spalte mit Lagerbezeichnung
For Each Zelle In adr
Zeile = Zelle.Row
Select Case Zelle.Parent.Cells(Zeile, SpalteLager).Text
Case "80000 München": iLager = 1: strLager(1) = "80000 München"
Case "Lager B": iLager = 2: strLager(2) = "Lager B"
Case "Lager 3": iLager = 3: strLager(3)= "Lager 3"
Case "Lager D": iLager = 4: strLager(4) = "Lager D"
Case Else
iLager = 0
End Select
If iLager  0 Then
If Zelle.Text Like "x [0-9]*" Then
AnzahlNumeric(iLager) = AnzahlNumeric(iLager) + 1
ElseIf Zelle.Text Like "x *" Then
AnzahlText(iLager) = AnzahlText(iLager) + 1
End If
End If
Next
For iLager = 1 To 4
MsgBox "Nummerisch: " & AnzahlNumeric(iLager) & vbLf _
& "Text : " & AnzahlText(iLager), vbOKOnly, "Ergebnis Lager " & strLager(iLager)
Next
End Sub

Gruß
Franz

Dim AnzZahl Dim AnzText AnzZahl = Application.WorksheetFunction.CountIf(Range("B1:B11"), True) AnzText = Application.WorksheetFunction.CountIf(Range("B1:B11"), False) MsgBox " Zahl = " & AnzZahl MsgBox " Text = " & AnzText

Beliebteste Forumthreads (12 Monate)

	A	B
1	x 1x1	WAHR
2	x M5 blabla	FALSCH
3	x 1x2	WAHR
4	x M5 blabla	FALSCH
5	x 1x3	WAHR
6	x M5 blabla	FALSCH
7	x 1x4	WAHR
8	x M5 blabla	FALSCH
9	x 1x5	WAHR
10	x M5 blabla	FALSCH
11	x 1x6	WAHR

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

zählenwenn mit VBA Count If

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

314 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