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
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Commandbutton entsprechend Datum sichtbar

Commandbutton entsprechend Datum sichtbar
14.05.2016 11:20:51
Andre
Sehr geehrte Excelexperten,
ich habe ein Userform1 mit 12 Commandbutton (für Jeden Monat ein Button).
Ich möchte erreichen, das beim Öffnen der Userform1 nur der Button für den aktuellen Monat sichtbar ist. Alle anderen, sollen nicht sichtbar sein. Das aktuelle Datum, mit dem verglichen werden soll, im Format TT.MM.JJJJ, steht dabei im Tabellenblatt mit Namen "Januar" in Zelle A3. ("Januar" bleibt für´s ganze Jahr die Vergleichstabelle)
Vielen Dank und schöne Pfingsten
Grüße Andre

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 11:25:35
Hajo_Zi
Hallo Andres,
Cmd_Mai.visible =Month(Date)=5
die anderen analog.

AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 12:05:15
Andre
Hallo Hajo,
Danke für die schnelle Antwort. Da ich nicht so firm bin, kommt dein Code in die UserForm1_Initialize()?
etwa so 
Private Sub UserForm1_Initialize()
Cmd_April.Visible = Month(Date) = 4
Cmd_Mai.Visible = Month(Date) = 5
Cmd_Juni.Visible = Month(Date) = 6
End Sub
oder wo gebe ich das ein?
Danke noch einmal.
Gruß Andre

AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 12:21:02
Hajo_Zi
Hallo Andre,
ich würde nicht Initialize benutzen, da dies in einer Sitzung nur einmal ausgeführt wird. Ich würde eher
Private Sub UserForm_Activate()
benutzen. Ich kennen nicht den restlichen Code. Vielleicht reicht einmal.
Gruß Hajo

Anzeige
AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 14:34:33
snb
Wenn nur immer 1 commandbutton gezeigt werden darf reicht 1 commandbutton.
Nur die Code muss angepast werden für jeder Monat.

AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 14:37:54
Daniel
das hatte ich doch schon längst geschrieben
aber gut, dass du es nochmal wiederholst.
Gruß Daniel

AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 12:20:33
Andre
Hallo Hajo,
Danke für die schnelle Antwort. Da ich nicht so firm bin, kommt dein Code in die UserForm1_Initialize()?
etwa so 
Private Sub UserForm1_Initialize()
Cmd_April.Visible = Month(Date) = 4
Cmd_Mai.Visible = Month(Date) = 5
Cmd_Juni.Visible = Month(Date) = 6
End Sub
oder wo gebe ich das ein?
Danke noch einmal.
Gruß Andre

Anzeige
AW: Commandbutton entsprechend Datum sichtbar
14.05.2016 13:15:03
Daniel
Hi
Warum 12 Buttons anlegen, wenn immer nur einer davon gleichzeitig sichtbar ist?
nimm doch einfach nur einen Button und gib ihm die entsprechende Beschriftung.
Dazu folgender Code ins Initialize-Event der Userform:
Cmd_Monat.Caption = Format(Sheets("Januar").Range("A3"), "MMMM")
im Makro des Buttons kannst du dann ja den Monat der Zelle nochmal abfragen, um differenziert auf den jeweiligen Monat zu reagieren:
Select Case Month(Sheets("Januar").Range("A3").value)
Case 1
hier der Code für Januar
Case 2
hier der Code für Februar
Case 3
hier der Code für März
usw ...
end Select
das dürfte deine Programmierung vereinfachen, weil du nur noch ein Steuerelement hast und nicht 12.
ausserdem braucht es weniger platz auf der Userform.
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Sichtbarkeit Textfeld abhängig von Formelergebnis
Formelergebnis

Hallo Leute,
in Abhängigkeit von dem Ergebnis einer Formelberechnung (kein VBA, da Makros auf Firmen-PC nicht geduldet sind) soll immer dann ein Textfeld angezeigt werden wenn bestimmte Kriterien erfüllt sind; andererseits soll das Textfeld ausgeblendet sein.
Ich kann mir vorstellen das...
27.10.2008 08:51:00
Thread-ID: 1019524
7 Beiträge
Anzeige
workbooks zählen nur sichtbare
chris

Hallo und guten morgen VBA experten,
ich habe eine frage.Würde mich sehr über Hilfe freuen.
ich will ein Makro erstellen das wenn nur eine ExcelDatei geöffnet ist Application.quit gestartet wird sobald aber schon andere Excelmappen gestartet sind nur Thisworkbook.close
Wie kann ich...
05.11.2008 07:34:00
Thread-ID: 1021747
7 Beiträge
Listbox, letzter Eintrag nicht sichtbar
ede

Hallo,
ich habe eine Listbox in ein Excelsheet eingebunden. Passend zu dem ausgewählten Eintrag wird die Auswahl in eine Zelle geschreiben, die Input für eine Grafik ist. Funktioniert alles soweit bestens.
Als ListfillRange habe ich einen namentlich definierten Bereich eingegeben : "Bau...
11.11.2008 15:19:10
Thread-ID: 1023583
7 Beiträge
Anzeige
Zeitgesteuerte Sichtbarkeit eines Zellinhalts
gerhard

Guten Tag,
Besteht die Möglichkeit (VBA), per Mausklick den Textinhalt einer Zelle nur für den Bruchteil einer Sekunde anzuzeigen? Diese Zeitsteuerung soll zB. über die Zelle A1 einer Tabelle gesteuert werden. Steht in Zelle A1 die Zahl 20, soll der Zellinhalt für 1/20stel Sekunde angezeigt...
27.12.2008 11:46:54
Thread-ID: 1035355
6 Beiträge
Schaltfläche unsichtbar machen
Frank

Guten Abend Zusammen!
Bin ein wenig ratlos, wenn eine Datei geöffnet wird, so wird gleichzeitig eine UF geöffnet und angezeigt. Auf dieser befindet sich ein CommandButton welcher nicht sichtbar sein soll für die Benutzer der Datei, aber der Autor soll, weil er weiß an welcher Stelle sich de...
09.01.2009 19:35:27
Thread-ID: 1038312
9 Beiträge
Excel Leisten nicht sichtbar
Enzo

Hallo Leute
Habe eine blöde Frage:
Habe eine UF erstellt die beim Starten der Datei sofort geöffnet wird.
Wie kann ich erreichen, daß beim Starten der Datei auch Excel-Leisten oben und unten Commandbar etc. nicht mehr sichtbar sind.
Für Eure hilf danke ich schon.
MfG
Enz...
11.01.2009 14:06:00
Thread-ID: 1038647
7 Beiträge
Excel Sheets Sichtbar machen
joerg

Hallo zusammen,
ich habe ein Problem mit Arbeitsmappen.
Wir nutzen eine Funktionalität der SAP (VBA makro mit PWD schutz) zum öffnenn von Workbooks.
Das funktioniert auch optimal.
Ich möchte in bestimmten Workbooks Module austauschen und dann zurückspeicher.
Der Austausch fu...
15.01.2009 13:31:00
Thread-ID: 1040101
4 Beiträge
Excel Sheets Sichtbar machen
joerg

Hallo zusammen,
ich habe ein Problem mit Arbeitsmappen.
Wir nutzen eine Funktionalität der SAP (VBA makro mit PWD schutz) zum öffnenn von Workbooks.
Das funktioniert auch optimal.
Ich möchte in bestimmten Workbooks Module austauschen und dann zurückspeicher.
Der Austausch fu...
15.01.2009 14:39:00
Thread-ID: 1040150
2 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
6
5
6
6
6
5
8
6
3
1
5
9
3
8
2
4
1
6
7
1
2
5
4
2
1