Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Autofilter mit mehreren Kriterien durch Checkboxen definiert
zurück: Application.ScreenUpdating = False weiter: .txt Datei über Makro einlesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hover
VBA - Anfänger


Verfasst am:
28. Feb 2013, 14:24
Rufname:
Wohnort: Stade

Autofilter mit mehreren Kriterien durch Checkboxen definiert - Autofilter mit mehreren Kriterien durch Checkboxen definiert

Nach oben
       Version: Office 2007

Hallo zusammen,

für das ein- oder andere Projekt benötigen wir einen Benutzerdefinierten Autofilter, der via Checkboxen zusammen gesetzt wird.

Hierzu habe ich auf dem Sheet Tabelle1 mehrere checkboxen als ActiveX-Element erstellt und denen entsprechende Namen zugewiesen.

Über einen "Show Data" Button sollen nun die Ergebnisse angezeigt werden.

Hierzu kurz der Code:

Code:
Private Sub cmd_Show_Click()

'Autofilter löschen
If ThisWorkbook.Worksheets("Tabelle2").FilterMode Then
    ThisWorkbook.Worksheets("Tabelle2").ShowAllData
End If

'Variablen festlegen
Dim intMSN As Integer
Dim intStatus As Integer
Dim strFilterMSN As String
Dim strFilterStatus As String
Dim strCheckboxName As String

For intMSN = 7 To 10 'Die Checkboxen sind nach den MSNs benannt
strCheckboxName = "chk_MSN_" & intMSN

With ThisWorkbook.Worksheets("Tabelle1")
    If .OLEObjects(strCheckboxName).Object.Value = True Then
    strFilterMSN = strFilterMSN & Chr(34) & intMSN & Chr(34) & ", "
    'Dieser String soll später im Autofilter verwendet werden
    End If
End With
Next

strFilterMSN = Left(strFilterMSN, Len(strFilterMSN) - 3) 'Abschneiden von dem letzten Leerzeichen und dem Komma, sowie chr34
strFilterMSN = Right(strFilterMSN, Len(strFilterMSN) - 1) 'Abschneiden von chr34 vorne. Die Zeichen sind vorne und hinten vorhe doppelt gewesen
'Schneide ich von hinten nur die letzten beiden Zeichen ab und von vorne keines, hat es im Moment noch keine Auswirkung auf das Ergebnis

'MsgBox strFilterMSN 'Nur zu testzwecken


Bis hier hin ist noch alles in bester Ordnung. Ob ich im Moment zuviele Zeichen wegnehme, wird sich automatisch ergeben, wenn ich mein eigentliches Problem gelöst habe.

Im folgenden Teil ist jetzt der code, wie man Ihn ohne Variable schreiben würde:

Code:
With ThisWorkbook.Worksheets("Tabelle2")
    .Activate
    .Range("A1:Z100").AutoFilter Field:=1, Criteria1:=Array("7", "8", "9"), Operator:=xlFilterValues


Jetzt möchte ich allerdings die Criterien aus dem String verwenden und nicht den oben gezeigten Teil:

Code:
'Solange die Ergebnisse manuell im Autofilter eingegeben sind, bekomme ich das gewünschte Ergebnis
    'ersetze ich diese jetzt wie folgt, ist das Ergebnis immer null, da er nach dem gesamten String sucht
   
    .Range("A1:Z100").AutoFilter Field:=1, Criteria1:=Array(strFilterMSN), Operator:=xlFilterValues
   
End With

End Sub


Der String enthält die gleichen Zeichen, wie ich sie auch manuell eingegeben habe. Nur Excel interpretiert dieses nun anders.
Anstelle der einzelnen Zahlen sucht er im Autofilter nun nach dem gesamten String. Diesen kann er natürlich nicht finden!

Ich weiß im Moment nicht, wo der Fehler ist.

Kann mir da bitte jemand weiterhelfen?`

Vielen Dank für eure Mühen

_________________
Bis denn dann
Euer Hover
Isabelle :-)
Menschin


Verfasst am:
28. Feb 2013, 14:30
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Autofilter mit mehreren Kriterien durch Checkboxen defin - AW: Autofilter mit mehreren Kriterien durch Checkboxen defin

Nach oben
       Version: Office 2007

Hallöchen,

ein Beispiel:

Code:
Public Sub Test()
    Dim strFilter As String
   
    'so musst der String aussehen !!!!!!!!!!!!!!!!!!!!!
    strFilter = "2,3,4"
   
    Tabelle1.Rows(1).AutoFilter Field:=1, Criteria1:=Split(strFilter, ","), Operator:=xlFilterValues
End Sub

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
Hover
VBA - Anfänger


Verfasst am:
28. Feb 2013, 14:48
Rufname:
Wohnort: Stade


AW: Autofilter mit mehreren Kriterien durch Checkboxen defin - AW: Autofilter mit mehreren Kriterien durch Checkboxen defin

Nach oben
       Version: Office 2007

Hallo Isi,

ich danke dir. Das Funktioniert wunderbar.

LG
Hover

_________________
Bis denn dann
Euer Hover
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Verknüpfen von mehreren Tabellen 18 tobiasu 3577 19. Aug 2005, 11:11
tobiasu Verknüpfen von mehreren Tabellen
Keine neuen Beiträge Excel Formeln: Summewenn mit mehreren Bedingungen 16 Carsten Kemmler 6204 23. Jul 2005, 13:20
mausgambler Summewenn mit mehreren Bedingungen
Keine neuen Beiträge Excel Formeln: Sverweis mit mehreren Bezügen 13 Lino262 3140 22. Jul 2005, 10:57
Lino262 Sverweis mit mehreren Bezügen
Keine neuen Beiträge Excel Formeln: WENN ... DANN mit mehreren Abfragen 1 RChristian078 979 14. Jul 2005, 15:58
ae WENN ... DANN mit mehreren Abfragen
Keine neuen Beiträge Excel Formeln: Summewenn mit mehreren Suchkriterien 5 TC82 2320 16. Jun 2005, 11:16
ae Summewenn mit mehreren Suchkriterien
Keine neuen Beiträge Excel Formeln: Summewenn() und Zählenwenn() mit 3 Kriterien 4 Jan2 7337 15. März 2005, 11:45
jan2 Summewenn() und Zählenwenn() mit 3 Kriterien
Keine neuen Beiträge Excel Formeln: Auto-Filter aktualisiert nicht automatisch 2 Michi 1325 04. März 2005, 13:10
Michi Auto-Filter aktualisiert nicht automatisch
Keine neuen Beiträge Excel Formeln: SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN 6 janine071108 3121 21. Feb 2005, 17:55
Arnim SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN
Keine neuen Beiträge Excel Formeln: S-Verweis, Ausgabewert Summe von mehreren Zeilen 3 Pidri 3448 10. Jan 2005, 10:52
steve1da S-Verweis, Ausgabewert Summe von mehreren Zeilen
Keine neuen Beiträge Excel Formeln: SummeWenn mit 2 oder mehreren Bedingungen 1 jones 2000 1134 20. Dez 2004, 15:29
Kuwe SummeWenn mit 2 oder mehreren Bedingungen
Keine neuen Beiträge Excel Formeln: Erster Wert aus mehreren Spalten 4 Gast 1922 03. Dez 2004, 10:52
Arnim Erster Wert aus mehreren Spalten
Keine neuen Beiträge Excel Formeln: Zählen von Werten aus untersch. Spalten mit 2 Kriterien 2 Sigi 2526 20. Nov 2004, 03:18
Gast Zählen von Werten aus untersch. Spalten mit 2 Kriterien
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript