Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1276to1280
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
Inhaltsverzeichnis

UserForm: CommandButtons mit Caption ausblenden

UserForm: CommandButtons mit Caption ausblenden
Sebastian
Hallo zusammen,
ich habe mal wieder "so ein Problem"... :-)
Ich möchte in einem alle Commandbuttons mit enem bestimmten Text in der Caption ausblenden.
so ähnlich wie
Dim tb As Object
For Each tb In UserForm_EingabeALLE.Controls
If TypeName(tb) = "CommandButton" Then tb.Visible = False
Next tb
Wie sage ich diesem Teil, dass es nur die Buttons ausblenden soll, die den Text "OK" in der Caption der CommandButtions haben? Und wie könnte ich ihm sagen, dass es nur dann ausblenden soll, wenn ein bestimmter Text in der Caption enthalten ist... also nicht der ausschließliche Text, sondern nur ein Textteil (ähnlich Wildcard). Geht das überhaupt so?
Freue mich über jeden Tipp und von euch zu hören...
Freundliche Grüße
Sebastian

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

Betreff
Benutzer
Anzeige
AW: UserForm: CommandButtons mit Caption ausblenden
13.09.2012 19:52:21
Hajo_Zi
Hallo Sebastian,

tb.Visible = Instr(tb.caption,"OK")>0

das wird knirschen, ...
13.09.2012 20:02:31
Uduuh
Hallo Hajo,
...wenn tb auf ein Control ohne Caption-Eigenschaft zeigt. z.B. Combobox/ Listbox/ Spinbutton/ Scrollbar/....
Gruß aus’m Pott
Udo

AW: das wird knirschen, ...
13.09.2012 20:05:50
Hajo_Zi
Hallo Udo,
alle CommnadButton habe ein Caption. Das wurde vorher geprüft.
Gruß Hajo

AW: das wird knirschen, ...
13.09.2012 20:17:23
Sebastian
Hallo!
Super Leute... Funzt!
Vielen Dank!

Anzeige
AW: UserForm: CommandButtons mit Caption ausblenden
13.09.2012 19:58:46
Uduuh
Hallo,
Dim tb As Object
For Each tb In UserForm_EingabeALLE.Controls
If TypeName(tb) = "CommandButton" Then
if tb.caption="OK" Then tb.Visible = False
End If
Next tb
Gruß aus’m Pott
Udo

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige