Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton mit Filtereinstellung ausführen ?

CommandButton mit Filtereinstellung ausführen ?
31.10.2019 11:19:10
Alex
Hallo,
ich bräuchte Bitte Hilfe für einen befehl den ich durch das anklicken eines CommandButton ausführen möchte,
derzeit benutze ich diesen Code: 
Private Sub CommandButton37_Click()
Sheets("AktionenBMM1").Select
End Sub
Ich möchte aber gern dass er nicht nur auf den Sheet wechselt sondern auch einen Filter setzt für Spalte C,
wo es alle Einträge Filtert mit dem Status "1". Ist das möglich ? Danke schonmal für die Hilfe :)

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 11:29:39
Werner
Hallo Alex,
so: 
Private Sub CommandButton37_Click()
Dim loLetzte As Long
Worksheets("AktionenBMM1").Activate
With ActiveSheet
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range("$C$1:$C$" & loLetzte).AutoFilter Field:=1, Criteria1:="1"
End With
Gruß Werner
End Sub

AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 11:32:52
Alex
Danke werde ich gleich mal ausprobieren.
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 11:36:54
Alex
Funktioniert es auch dass der Button so lange er in der spalte eine 1 findet gelb wird und wenn alles auf 0 ist grün ? Danke
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 11:49:35
Werner
Hallo,
so: 
Private Sub CommandButton37_Click()
Dim loLetzte As Long
If WorksheetFunction.CountIf(Worksheets("AktionenBMM1").Columns("C"), 1) > 0 Then
CommandButton1.BackColor = vbYellow
Worksheets("AktionenBMM1").Activate
With ActiveSheet
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range("$C$1:$C$" & loLetzte).AutoFilter Field:=1, Criteria1:="1"
End With
Else
CommandButton1.BackColor = vbGreen
MsgBox "Im Blatt AktionenBMM1 in Spalte C gibt es keinen Wert 1"
End If
End Sub
Gruß Werner
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 12:42:00
Alex
Du bist der beste Werner, vielen Dank :)
Anzeige
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 12:49:26
Alex
Funktioniert, aber ich glaub mein Denkweise war falsch.
der commandbutton sollte beim öffnen der userform die Tabelle abfragen und die zugehörige Farbe zum Status anzeigen. Nicht wie gedacht beim anklicken.
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 13:11:30
Werner
Hallo Alex,
beim öffnen welcher Userform denn? Davon war bisher nicht die Rede.
Lade doch mal deine Mappe hier hoch.
Gruß Werner
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 13:33:54
Alex
es handelt sich um Userform1 leider ist die Mappe schon zu groß dass ich sie hier uploaden könnte :(
in dieser Userform befindet sich dieser CommandButton36 der beim aufrufen von userform1 die Statuswrete aus der Tabelle "AktionenBMM1" prüfen sollte und dann eben den Button bei Status 1 oder 0 farblich wieder gibt.
Anzeige
AW: CommandButton mit Filtereinstellung ausführen ?
31.10.2019 17:06:38
Werner
Hallo Alex,
dann so: 
Private Sub CommandButton37_Click()
Dim loLetzte As Long
If WorksheetFunction.CountIf(Worksheets("AktionenBMM1").Columns("C"), 1) > 0 Then
Worksheets("AktionenBMM1").Activate
With ActiveSheet
loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range("$C$1:$C$" & loLetzte).AutoFilter Field:=1, Criteria1:="1"
End With
Else
MsgBox "Im Blatt AktionenBMM1 in Spalte C gibt es keinen Wert 1"
End If
End Sub
Private Sub UserForm_Initialize()
Me.CommandButton37.BackColor = IIf(WorksheetFunction.CountIf(Worksheets("AktionenBMM1") _
.Columns("C"), 1) > 0, vbYellow, vbGreen)
End Sub
Gruß Werner
Anzeige
Für Nachfragen reicht es für Feedback nicht? o.w.T
05.11.2019 11:17:39
Werner
AW: Für Nachfragen reicht es für Feedback nicht? o.w.T
05.11.2019 13:07:51
Alex
Hallo Werner, natürlich gebe ich Feedback keine Sorge ;) wäre ja auch unanständig.
Aber ich hatte bis dato keine Zeit es einzubauen, ich werde es heute Abend ausprobieren und Feedback geben.
Gruss Alex
AW: Für Nachfragen reicht es für Feedback nicht? o.w.T
06.11.2019 14:00:23
Alex
Servus Werner, hab es eben getestet auf meiner Mappe.
Funktioniert wunderbar vielen Dank.
Gerne u. Danke für die Rückmeldung. o.w.T.
06.11.2019 19:45:26
Werner

162 Forumthreads zu ähnlichen Themen

Command-Button in Diagramm
Wolfgang

Hallo liebe Excel-Experten,
es wäre nett, wenn Ihr mir helfen könntet.
Ich habe verschiedene (mehr als 50) Diagramme erzeugt, dabei gibt es übergeordnete Diagramme und Diagramme, die Details betreffen.
Natürlich kann sich der Betrachter über die Diagramm-Namen durchsuchen. Ich möcht...
25.08.2008 23:52:00
Thread-ID: 1004633
5 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
per Makro CommandButtons mit individuellem Code
Gerry83

Hallo zusammen
Ein externes Programm führt mit unterschiedlichen Parametern 20736 Berechnungen durch, die Ergebnisse werden in jeweils eine *.txt Datei geschrieben. Zusätzlich erhalte ich ein Flag, ob die Berechnung erfolgreich war oder nicht.
Ein Makro soll mir nun 20736 CommandButtons...
23.11.2008 16:29:00
Thread-ID: 1027102
6 Beiträge
Anzeige
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Wert eines CommandButton in TextBox schreiben
Frank

Hallo Zusammen und 'nen schönen Sonntagabend!!!
Bin überfordert! Ich habe in einer UF eine TextBox6. Dann gibt es eine zweite UF, auf der befinden sich mehrere CommandButton mit Werten, z.B. 50,00, 100,00 usw. Nun möchte ich das bei Klick auf solch Button der Wert in die TextBox6 der ersten...
01.03.2009 19:30:52
Thread-ID: 1055312
4 Beiträge
sämtliche Commandbutton ausblenden bei Bedingung
Wolfgang

Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang
14.03.2009 18:24:52
Thread-ID: 1060212
4 Beiträge
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
CommandButton Caption und Hintergrundfarbe ändern
MO

Hi an alle,
kann mir jemand bitte sagen, wie ich einen CommandButton auf Click gelb einfärbe und die Captionfarbe auf grau umgestellt wird und bei einem nächsten Click zurück auf grau mit Captionfarbe gelb, so dass dieses Spiel im Wechsel funktioniert?
Viele Grüße und Dankeschön für je...
06.04.2009 15:57:35
Thread-ID: 1067137
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

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