Herbers Excel-Forum - das Archiv

Steuerelement mit Variabler ansprechen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ MultiPage ⇒ UserForm
Bild

Betrifft: Steuerelement mit Variabler ansprechen
von: Michael Rapp
Geschrieben am: 15.12.2003 00:53:51
Hallo,

ich habe eine Userform "frm_GraphSelector" mit vielen Bildern zum Einfügen von Grafiken gebastelt. Funktioniert gut. Nun will ich ControlTipText hinzufügen.
Das Einlesen funktioniert gut, aber ich weiß nicht, wie ich 122 benannte Schaltflächen "Icon_1" bis "Icon_122" mit einer Schleife ansprechen kann. Mein Code sieht so aus:



Private Sub UserForm_Initialize()
Dim strControlTips(122) As String
Dim i As Integer
Dim intRow As Integer
intRow = 177
For i = 1 To 122
strControlTips(i) = Sheet27.Range("CG" & intRow)
intRow = intRow + 1
Next
For i = 1 To 122
frm_GraphSelector.Icon_(i).ControlTipText = strControlTips(i)
Next
End Sub


Die Zeile mit ".Icon_(i)" klappt nicht. Wie setzte ich den Namen aus einem festen Text und einer Variablen Nummer zusammen, sodass er erkannt wird?

Danke für Eure Zeit und Hilfe

Michael Rapp
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: K.Rola
Geschrieben am: 15.12.2003 01:01:42
Hallo,

For i = 1 To 122
controls("Icon_" & i).ControlTipText = strControlTips(i)
Next

Gruß K.Rola
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: Michael Rapp
Geschrieben am: 15.12.2003 07:20:00
Hallo K.Rola,

klappt großartig. Kannst du mir auch sagen, wie man in der UserForm in analoger Weise die einzelnen Seiten einer Multipage ansprechen kann?

Herzlichen Dank für die schnelle Antwort.

Michael Rapp
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: K.Rola
Geschrieben am: 15.12.2003 10:20:59
Hallo,

beschreib mal, was genau du erreichen willst.

Gruß K.Rola
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: Michael Rapp
Geschrieben am: 15.12.2003 16:40:25
Hallo,

Ich benutze in der vorher erwähnten UserForm ein Multipage mit 6 Seiten. Ich würde gerne diese Seiten beim Aufruf mit einer neuen Caption versehen (ichverwende wahlweise 2 Sprachen). Die Seiten heißen "Page1".."Page6". Wie kann ich die Eigenschaft Caption in diesem Falle mit einer Schleife ansprechen (analog zu dem Ansprechen des ControlTipText bei dem Control). Mein Codeversuch funktioniert leider nicht:



Private Sub UserForm_Initialize()
Dim i As Integer
Dim intRow As Integer
intRow = 177
For i = 1 To 6
Controls("page" & i).Caption = Sheet27.Range("CG" & intRow).Text  'Caption setzen
intRow = intRow + 1
Next
End Sub


Viele Grüße
Michael Rapp
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: K.Rola
Geschrieben am: 16.12.2003 00:28:50
Hallo,

verzeih, hab den Beitrag erst jetzt gesehen.

Option Explicit


Private Sub UserForm_Click()
Dim p As Byte
''Der Index bei MultiPage beginnt bei 0(Null)
For p = 0 To MultiPage1.Pages.Count - 1
MultiPage1.Pages(p).Caption = "K.Rola " & p + 1
Next
End Sub


Gruß K.Rola
Bild

Betrifft: AW: Steuerelement mit Variabler ansprechen
von: Michael Rapp
Geschrieben am: 16.12.2003 22:13:03
Hallo,

funktioniert prächtig. Jetzt kann ich meine UserForm neuen Texten versehen. Habe den Code folgendermaßen angepaßt:



Private Sub UserForm_Initialize()
Dim i As Byte
Dim intRow As Integer
intRow = 315
For i = 1 To 6
MultiPage1.Pages(i - 1).Caption = Sheet27.Range("CG" & intRow)
intRow = intRow + 1
Next
End Sub


Vielen Dank !!

Michael Rapp
Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Steuerelement mit Variabler ansprechen"
In einem MultiPage-Steuerelement blättern Aus einem Kalender-Steuerelement Datum und Zeit auswählen
Über UserForm-RefEdit-Steuerelement Bereich auswählen Einlesen von Arbeitsmappen in ein TreeView-Steuerelement
Blatt ohne Code, Steuerelement und Formeln speichern Abspielen einer AVI-Datei in einem UserForm-Steuerelement
UserForm mit Kalendersteuerelement immer mit aktuellem Datum Steuerelemente aus Tabellenblatt löschen
Steuerelementwechsel bei Eingaben Kalendersteuerelement an Tabellenblattwerte binden