Zählenwenn - Fehler/wieso | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nun Oberschlumpf, hat mich im letzten Beitrag gerügt, da ich den Thread noch OFFEN habe lassen, obwohl er der Meinung sein dürfte es wäre ja eh alles beantwortet.
Ich möchte also hier nun meine letzte Anfrage wiederholen da ich bis dato leider keinen Lösungsvorschlag oder Ursachenerklärung dazu erhalten habe.
Mit meiner Formel in Spalte "K" stimmt leider noch was nicht, Datensatz ist auch im Muster vorhanden. Gebe ich "Debra" ein, wird mir in "K5" = 1 angezeigt, jedoch in Spalte "K" keine 1 vergeben, daher Auswahl der gefilterten Zeilen nicht möglich.
Das Ganze in "DEBRA" geschrieben funktioniert es, ist mir daher so wie es jetzt ist nicht verlässlich genug, verstehe es aber nicht wie und was ich ändern müsste das die Formel in Spalte "K" auch mit "Debra" funktioniert.
Ich hoffe es kann mir wer da weiterhelfen, LG Siegfried
Habe eben nochmals was getestet und zwar in der Suchspalte K3 das Suchwort "ebra" eingegeben wozu die Datensätze (in meiner großen Datei) 676, 6288, 6441 und 6442 gefunden wurden.
Mit der gleiche Suche aber so geschrieben "EBRA" wurden die Datensätze in der Spalte K mit 1 bewertet, 227, 568 und 5706!!!
Während in beiden Fällen in der Zeile K5 Auswertung der Formel


=ZÄHLENWENN(B6:B7000;("*"&K3&"*"))

der Wert 7 (sieben) angezeigt wird.
Also jetzt stehe ich total daneben?

Wertes Forum der Wissenden!
Habe nun so ziemlich alle Ratschläge eingebaut, gefällt mir wie es jetzt läuft.
Meinen Wunsch nach eingeben eines Such-Begriffes gleich den Filter zu aktivieren und daher die Auswertung sofort drucken zu können ist mit auch gelungen.
Kann/bin mir sicher, dass meine Lösung noch eleganter umgesetzt werden könnte.
in Tabelle1


Private Sub Worksheet_Change(ByVal Target As Range)
Dim nRow As Variant
nRow = ActiveSheet.Cells(65536, 2).End(xlUp).Row - 5
If Target.Address = "$J$3" Then
'    MsgBox "Der Wert in Zelle J3 ( Jahr)  wurde geändert."
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=10, Criteria1:="1"
End If
If Target.Address = "$K$3" Then
'    MsgBox "Der Wert in Zelle K3 ( Text-Suche)  wurde geändert."
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=11, Criteria1:="1"
End If
If Target.Address = "$L$3" Then
'    MsgBox "Der Wert in Zelle L3 ( Text-Suche)  wurde geändert."
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=12, Criteria1:="1"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub


Sub Suche_Loeschen()
Dim nRow, LOE As Variant
LOE = False
nRow = ActiveSheet.Cells(65536, 10).End(xlUp).Row - 5
If nRow > Range("J5") Then
Range("J5").Select
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=10, Criteria1:="1"
LOE = True
End If
If nRow > Range("K5") Then
Range("K5").Select
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=11, Criteria1:="1"
LOE = True
End If
If nRow > Range("L5") Then
Range("L5").Select
ActiveSheet.Range("$A5:$L" & nRow).AutoFilter Field:=12, Criteria1:="1"
LOE = True
End If
If LOE Then Call checkFilter
End Sub
Sub checkFilter()
Dim objFilter As Filter
With ActiveSheet
If .AutoFilterMode Then
For Each objFilter In .AutoFilter.Filters
If objFilter.On Then
'          MsgBox "Filter ist an!"
Range("J3:L3").Select
Selection.ClearContents
ActiveSheet.ShowAllData
Exit For
End If
Next
End If
End With
End Sub

Ja und wenn ein Filter bereits aktiv ist, diesen über das Button "Suche löschen" wieder aufheben um so eine neue Suche eingeben zu können.
LG Siegfried
Musterdatei ist angehängt:
https://www.herber.de/bbs/user/153079.zip

Beliebteste Forumthreads (12 Monate)

Zählenwenn - Fehler/wieso

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread