Buttons unsichtbar schalten in Abhängigkeit von Zellwert in anderem Blatt

Hallo zusammen,
in meinem Dokument gibt es zwei Arbeitsblätter ("X" und "Y"), die jeweils einen Command-Button in den Zellen (E1) in Blatt X, bzw. (G1) in Blatt Y aufweisen. Beide Buttons habe ich mit "ALLE" beschriftet, die von den Buttons eingeleiteten Makros funktionieren tadellos.
Nun hätte ich gerne, dass beide Buttons nur eingeblendet werden, wenn im Blatt "Daten" die Zelle (F28) den Wert 1 aufweist. Dieser Wert wird vom Anwender bei Bedarf eingegeben, ansonsten ist die Zelle leer. Die Abhängigkeit der Sichtbarkeit der Buttons in den anderen Blättern sollte also vom Verändern des Wertes in 'Daten'F28! abhängig sein, nicht vom Blattwechsel o.Ä.
Hat vielleicht jemand einen Vorschlag, wie der VBA-Code aussehen hierfür müsste? Ich bin noch
blutiger VBA-(nicht-mal-) Anfänger...
Selbst meine Versuche, mir aus diversen Forums-Beiträgen etwas passendes zusammen zu basteln, scheitern bisher...
Vielen Dank im Voraus!
Viele Grüße
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetCalculate(ByVal Sh As Object) ButtonEinAus End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ButtonEinAus End Sub Sub ButtonEinAus() Sheets("X").Shapes.Range(Array("CommandButton1")).Visible = (Sheets("Daten").Range("F28") = 1) Sheets("Y").Shapes.Range(Array("CommandButton1")).Visible = (Sheets("Daten").Range("F28") = 1) End Sub

Hallo Peter,
kommt darauf an, welche Button du verwendest

'Button aus den Formularsteuerelementen
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F28" Then
Worksheets("X").Shapes("Schaltfläche 1").Visible = Target = 1
Worksheets("Y").Shapes("Schaltfläche 1").Visible = Target = 1
End If
End Sub
'Button aus den Active X Steuerelementen
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F28" Then
Worksheets("X").Shapes("Commandbutton1").Visible = Target = 1
Worksheets("Y").Shapes("Commandbutton1").Visible = Target = 1
End If
End Sub

Je nachdem das entsprechende Makro ins Codemodul vom Blatt "Daten" kopieren.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Buttons unsichtbar schalten in Abhängigkeit von Zellwert in anderem Blatt

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Buttons unsichtbar schalten in Abhängigkeit von Zellwert in anderem Blatt

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread