Office: (Office 365) CommandButton1 unsichtbar

Hallo Zusammen,

habe einen CommandButton,den ich gerne immer nur an einem ersten des Monats(24H) darstellen möchte .

Wer könnte mir da weiterhelfen ?

Danke Merkur

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Dies gilt für alle Ereignisse unter DieseArvbeitsmappe.
Der Code wirkt in der gesamten Datei.

Code:

Option Explicit

Private Sub Workbook_Open()
    Worksheets("Tabelle1").CommandButton1.Visible = Day(Date) = 1
End Sub

 

Danke Hajo,

das funktioniert wie gewünscht.

Gruß Merkur

 

Hallo

Wenn ich jetzt zwei oder 3 Tage eintragen möchte,wo müsste da etwas geändert werden ?
Also wenn der Button z.B am 1 und 2 und 6 Tag zu sehen sein soll.

Danke Merkur

 

select case Day(Date)

 

Hallo Merkur,
select case Day(Date)
case 1,2,5
Worksheets("Tabelle1").CommandButton1.Visible = true
case Else
Worksheets("Tabelle1").CommandButton1.Visible =false
end Select

Gruß Hajo

 

Hallo Hajo,
funktioniert ganz Klasse.

Herzlichen Danke für die Hilfe

Gruß Merkur