Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Autofilter mit VBA & Checkboxen

2 Autofilter mit VBA & Checkboxen
Tobi
Hallo xls.-Cracks,
ich habe folgendes Problem: Per Makro & Checkboxen möchte ich eine Liste nach einem bestimmten Kriterium (per Checkbox wählbar) in einer bestimmtem Spalte filtern lassen (z.B. Spalte C - Monat) - mit dem enthaltenen Makro (von Sepp!) funktioniert das auch ganz gut ; jetzt möchte ich aber noch nach einem anderen Kriterium (wieder per Checkbox wählbar) in einer anderen Spalte filtern (z.B. Spalte A - Gebiet)!

Die Datei https://www.herber.de/bbs/user/76934.xlsm wurde aus Datenschutzgründen gelöscht


Leider habe ich keine Ahnung, wie ich dazu die Makro umbauen soll!! Könnt ihr mir helfen?
Vielen Dank schon im Voraus!
Gruss
Tobi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
nicht umbauen nur ergänzen ...
10.10.2011 12:23:18
Matthias
Hallo
Einfach diesen Code ergänzen

Private Sub CheckBox6_Click()
setFilter2
End Sub


Private Sub CheckBox7_Click()
setFilter2
End Sub


Private Sub CheckBox8_Click()
setFilter2
End Sub


Private Sub CheckBox9_Click()
setFilter2
End Sub


Private Sub setFilter2()
Dim objOLE As OLEObject
Dim strFilter() As String
Dim lngIndex As Long
For Each objOLE In Me.OLEObjects
If TypeName(objOLE.Object) = "CheckBox" Then
If objOLE.Object.Value Then
ReDim Preserve strFilter(lngIndex)
strFilter(lngIndex) = objOLE.Object.Caption
lngIndex = lngIndex + 1
End If
End If
Next
If lngIndex > 0 Then
Me.Range("$A$1:$C$16").AutoFilter Field:=1, _
Criteria1:=strFilter, Operator:=xlFilterValues
Else
Me.Range("$A$1:$C$16").AutoFilter Field:=1
End If
End Sub
Gruß Matthias
Anzeige
AW: nicht umbauen nur ergänzen ...
10.10.2011 13:15:40
Tobi
Hallo Matthias,
recht herzlichen Dank für die schnelle Lösung - funktioniert prima!!
Eine Frage noch - wenn die Checkboxen auf einem anderen Sheet als die zu filternden Daten sind, wie wäre dann die Lösung?
Danke schonmal!
Gruss
AW: nicht umbauen nur ergänzen ...
10.10.2011 14:22:58
Tobi
Sorry, hatte vergessen, die Frage als "noch offen" zu markieren.
AW: nicht umbauen nur ergänzen ...
10.10.2011 14:27:02
Rudi
Hallo,
einfach auf das Sheet mit den Daten referenzieren.

  If lngIndex > 0 Then
Sheets("Daten").Range("$A$1:$C$16").AutoFilter Field:=1, _
Criteria1:=strFilter, Operator:=xlFilterValues
Else
Sheets("Daten").Range("$A$1:$C$16").AutoFilter Field:=1
End If

Gruß
Rudi
Anzeige
DANKE!!
10.10.2011 14:48:13
Tobi
Hallo Rudi - funktioniert 1A!! Recht herzlichen Dank!!
Gruss Tobi

311 Forumthreads zu ähnlichen Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
VBA Klasse für alle CheckBoxen
enrico

Sehr geehrte Forum-Experten,
ich beschäftige mich seit einer Woche mit VBA.
Ich habe nun folgende Frage:
Wie kann ich für alle Checkboxen in einem Sheet den gleichen Code benutzen...
Am Beispiel:
Public Sub CheckBox_1_1_1_0_0_0_Click() If CheckBox_1_1_1_0_0_0.Value = True Th...
13.12.2009 17:35:45
Thread-ID: 1123606
6 Beiträge
VBA: diagramm nach Checkbox-Auswahl erstellen
Jonathan

Hallo liebe Experten,
ich stehe vor folgenden Problem:
In einem Excel-Sheet werden ca. 100 Arbeitsplätze verwaltet.
Jeder Arbeitsplatz hat in diesem Sheet eine Tabelle mit mit 8 Zeilen und 18 Spalten. Die Tabellen sind untereinander angeordnet.
Jede Tabelle (bzw. jeder Arbeitsp...
21.12.2009 15:47:14
Thread-ID: 1125372
4 Beiträge
Anzeige
Mit Taskplaner VBA Makro starten
Wolfgang

Hallo Experten !
Ich habe folgendes Problem:
Ich habe auf einem Netzlaufwerk eine Excel-Arbeitsmappe ("Mappe1"), in der auf einem Blatt ("Tabelle1") eine fortlaufende Liste mit Transportdaten geführt wird. Die Eingaben werden von verschiedenen Anwendern durch Userformen erledigt. Diese...
10.03.2011 12:58:30
Thread-ID: 1205134
6 Beiträge
VBA Excel Checkbox Klasse definieren
Kie

Hallo Forum,
ich möchte gerne 5000 Checkboxen in eine Excelzelle schreiben (Teil 1) und jede soll dann bei Aktivierung das gleiche Makro ausführen (Teil 2).
Teil 1 habe ich hinbekommen. Das Beispiel für 25 Checkboxen hänge ich unten an.
Bei Teil 2 bin ich ratlos. Da ich nicht jede C...
10.07.2012 09:23:33
Thread-ID: 1270360
9 Beiträge
VBA Programmierung für Checkboxen
Nico

Hallo Zusammen,
ich hät da gern nochmal ein kleines Problem ;-)
Ich möchte mit einer Checkbox (wenn sie aktiviert ist) auf einer anderen Mappe eine weitere Checkbox aktivieren. (Beides keine Formularcheckboxen :-))
Kann mir da wer helfen?
28.02.2013 17:15:33
Thread-ID: 1301574
23 Beiträge
VBA-Makro in anderer Mappe starten
Michael

Hallo ihr Helfer,
ich möchte mit den VBA-Makro aus Mappe 1 ein Makro aus Mappe 2 öffnen. Was muß ich vor den call-Befahl schreiben, damit es funktionert? ich habe schon versucht die andere Mappe zu aktivieren, aber dann kommt beim call aufruf immer der Fehler das Makro kann nicht gefunden we...
02.07.2002 16:42:29
Thread-ID: 133155
3 Beiträge
Outlook VBA: Wie Makro dynamisch starten?
frigo777

Hallo zusammen,
in den Outlook Foren gab es leider null response, daher mal ein Versuch bei den hiesigen Experten.
Ich möchte aus einem Makro andere Makros dynamisch starten. D.h. ich habe den Namen des zu startenden Makros in einer Variable. Wie kann ich dies in Outlook VBA tun? In Exc...
20.05.2014 22:15:58
Thread-ID: 1362558
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

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
3
3
5
3
5
5
8
22
2
5
2
2
1
3
4
6
4
2
2
3
2
8
1
2
5