Office: Command Button ein-/ausblenden

Hallo

Ich habe folgenden Code:

HTML:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oSH As Sheets
Dim oWs As Worksheet
If BlattExist("Jan") Then
If Target.Address = "$A$3" Then
Call Blattschutz_aus
Set oSH = Sheets(Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez", "JanFJ"))
For Each oWs In oSH
oWs.Rows("32:33").Hidden = Len(Target.Value) = 0
oWs.Rows("35:35").Hidden = Len(Target.Value) = 0
CommandButton2.Hidden = Len(Target.Value) = 0 ??????
Next oWs
Call Blattschutz_ein
Else
End If
End If
End Sub

Ich würde gerne den CommandButton2 auf allen Seiten ausblenden,
wenn in "A3" nix steht und ihn einblenden, wenn in A3 was steht.

Irgendwie haut das nicht hin.

Kann jemand schreiben, warum bzw. wo der Fehler liegt ?

Nette Grüße
Torsten

:)

 

Hallo Torsten,

ich hätte DieseArbeitsmappe benutzt.
Code:

 

wenn dann

If Len(Target.Value) = 0 Then CommandButton2.Hidden

Besser wäre aber

If Target.value = "" then CommandButton2.Hidden


Gruß
Norbert

PS: nicht getestet

 

Danke für die Antworten !

@Hajo
Der Bezug besteht zu einer anderen Seite ("Eingabe!A3").
Wenn ich den Code bspw. in das Tabellenblatt "Jan" einfüge tut sich nichts
(Bezug zum Blatt geändert)
Code:

@norbert
Wo genau im o.g. Code muss ich die Zeile einfügen, dass der Button auf allen
Seiten sichtbar/nicht sichtbar ist, sobald in Eingabe!A3 nix/etwas steht ?
Ich bekomme beim Ausführen "Objekt erforderlich".

Sorry für die blöden Fragen (ja - es gibt blöde Fragen*biggrin.gif* )

Nette Grüße
Torsten

 

die Aktionen gibt es nicht unter der Tabelle.

 

meine vorgeschalgenen Aktionen sind Aktionen von DieserArbeitsmappe
Unter der Tabelle gibt es ich Open.
und die andere Aktion hat den Namen
Private Sub Worksheet_Activate()
es wird schon seinen Grund haben warum Du Open nicht benutzt, das hast Du mir nicht mitgeteilt.

 

Danke für die Antwort !

Was ich erreichen will:

Wenn auf Blatt "Eingabe" in Zelle "A3" nichts steht, soll auf den Monatsblättern (Jan-Dez bzw. JanFJ)
der "CommandButon2" verschwinden.

Steht auf Blatt "Eingabe" in Zelle "A3" etwas, soll auf allen Monatsblättern
der "CommandButon2" angezeigt werden.

Da ich im Arbeitsblatt "Eingabe" schon "Private Sub Worksheet_Change(ByVal Target As Range)" habe
und andere Dinge (Zeilen ausblenden) funktionieren,
DACHTE ICH, dass es auch möglich sei, darüber den CommandButton2 anzusteuern.

Ich habe es über "DieseArbeitsmappe" versucht, bin aber vermutlich zu blöde es hinzubekommen (Mea Culpa).

Nette Grüße
Torsten

 

Hi Torsten,

wenn der Code auf die Eingabe in Zelle A3 reagieren soll, ist das Worksheet_Change-Ereignis im Codemodul des Tabellenblattes "Eingabe" der richtige Ort. Du müsstest deinen Code allerdings dahingehend ändern, dass du in einer Schleife über alle Tabellenblätter läufst und die CommandButton ausblendest - nach diesem Prinzip:

Code:

Bedingung ist allerdings, dass alle CommandButton den selben Namen haben. Ist das nicht der Fall, müsste man wissen, wie viele CommandButton es gibt und woran zu erkennen ist, welcher ausgeblendet werden soll.

 

JAAAAA ! So funktioniert's !

Vielen Dank Karin !

Und JA - alle Buttons haben den gleichen Namen.

Suuuuper - Vielen Dank !

Nette Grüße
Torsten

Edit: ach so - der geänderte Code (für die Nachwelt*biggrin.gif* ):
Code: