Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CommandButton1_Click() ....Hilfe

Forumthread: CommandButton1_Click() ....Hilfe

CommandButton1_Click() ....Hilfe
Peter
Hallo Ihr,
möchte in Abhängigkeit eines Zelleninhaltes einen CommandButton erscheinen lassen oder nicht:
If Range("Tabelle1!A1").Text = "Ja" Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
aber irgendwie will das net so wie ich
Wer kann helfen?
Danke Peter S
Anzeige

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

Betreff
Benutzer
Anzeige
AW: CommandButton1_Click() ....Hilfe
soendi
hallo peter
und wo hast du diesen code? auf dem command-button selbst?
gruss
soendi
AW: CommandButton1_Click() ....Hilfe
06.04.2004 15:38:08
Peter
Hallo soendi,
nein den code habe ich in DieseArbeitsmappe unter SelectionChange usw
Peter S.
AW: CommandButton1_Click() ....Hilfe
Reinhard
Hi Peter,
If Worksheets("Tabelle1").Range("A1").Value = "Ja" Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
Gruß
Reinhard
Anzeige
AW: CommandButton1_Click() ....Hilfe
Andre
Versuch mal folgendes:
If Range("Tabelle1!A1").Text = "Ja" Then
ActiveSheet.Shapes("Button 1").Visible = True
Else
ActiveSheet.Shapes("Button 1").Visible = False
End If
Gruß Andre
AW: CommandButton1_Click() ....Hilfe
Bert
If Sheets("Tabelle1").[A1].Text = "Ja" Then
.....
Bert
AW: CommandButton1_Click() ....Hilfe
Reinhard
Hi Peter,
bei mir läuft dein Code (hatte erst einen anderen gepostet weil ich .Text nie bei Range benutze)
probier doch mal folgendes Makro aus, wird dort Commandbutton--CommandButton1 angezeigt?

Sub zz()
For Each cb In ActiveSheet.OLEObjects
MsgBox TypeName(cb.Object) & "--" & cb.Name
Next cb
End Sub

Gruß
Reinhard
Anzeige
AW: CommandButton1_Click() ....Hilfe
06.04.2004 16:15:34
Peter
Hallo Ihr Beiden,
also bis jetzt hab ich noch keinen Erfolg gehabt......weiss net woran es liegt....und das Makro versteh ich net.....ich hab folgendes Makro zugewiesen:

Sub DatenMaskeZeigen()
ActiveWorkbook.Names.Add _
Name:="Database", _
RefersTo:="=" & Worksheets(2).Name & "!" & _
Range("O2:S150=").Address
Worksheets("Lizenz").ShowDataForm
End Sub

wobei ich net weiss ob hier net schon ein Fehler is
Gruss Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige