Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform-Objekte zur Laufzeit erzeugen

Userform-Objekte zur Laufzeit erzeugen
22.08.2004 21:43:03
Heike
Hallo Gemeinde,
ist es möglich, während der Laufzeit Objekte in einem Userform zu erzeugen? Also ich öffne das UserForm, es werden z.B. die Spaltenüberschriften eingelesen und im Userform als Label dargestellt.
Liebe Grüsse Heike

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform-Objekte zur Laufzeit erzeugen
Ulf
Willst du die Label selbst erstellen oder nur deren Caption?
Ulf
AW: Userform-Objekte zur Laufzeit erzeugen
Heike
Hallo Ulf,
beides.
Liebe Grüsse Heike
AW: Userform-Objekte zur Laufzeit erzeugen
Ulf
Ohne VBA- Kenntnisse ist das gar nicht mal so anspruchslos. Warum kannst du die Label
denn nicht zur Entwurfszeit erstellen? Das ist wesentlich einfacher und spart zudem noch
Code.
Ulf
AW: Userform-Objekte zur Laufzeit erzeugen
Heike
Hallo Ulf,
die Abstufungen der Kenntnisse sind ein wenig grob. Keine stimmt nicht ganz, für gut halte ich mich auch nicht. Mich hatte das nur mal interessiert, ob es geht.
Liebe Grüsse Heike
AW: Userform-Objekte zur Laufzeit erzeugen
Ulf
Es geht (fast)alles. Ist nur die Frage, was notwendig, was ist zweckmäßiger oder noch anders, wie erreiche ich das, was ich brauche, am einfachsten.
Ulf
Anzeige
AW: Userform-Objekte zur Laufzeit erzeugen
22.08.2004 22:54:19
Thomas
Hallo Heike
Versuch mal das hier ...
Angenommen in "A1:E1" stet Name - Vorname - Straße - PLZ - Ort. Jetzt folgenden Code in's Klassenmodul der UF einfügen. Dann "A1:E1" selektieren und die UF öffnen. Sollte funzen.


      
Option Explicit
Const DISTANCE = 10&
Private Sub UserForm_Initialize()
    
    
Dim rng As Excel.Range
    
Dim ctl As MSForms.Label
    
Dim w As Long: w = DISTANCE
    
    
For Each rng In Selection
        
        
Set ctl = Me.Controls.Add("Forms.Label.1")
        
        
With ctl
            .Caption = rng.Value
            .Left = w
            .Top = DISTANCE
            .Width = 50
        
End With
        
        w = w + ctl.Width + DISTANCE
        
    
Next rng
    
End Sub 
Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
Vielen Dank
Heike
Hallo Thomas,
du hast mir sehr geholfen, wieder was gelernt, vielen Dank dafür.
@ Ulf, so kompliziert ist das doch gar nicht.
Liebe Grüsse Heike
AW: Vielen Dank
Ulf
Die Probleme kommen noch und somit weitere Fragen.
Ulf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige