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

UserForm_Initialize()

Forumthread: UserForm_Initialize()

UserForm_Initialize()
12.10.2005 20:53:43
Bongiu
Hallo lieber Helfer,
Kann man über Userform_initialize, auf einen Schlag 20 Textfelder erzeugen?
Vielen Danke
Bongiu
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: UserForm_Initialize()
12.10.2005 20:56:40
Hajo_Zi
Hallo Bongiu,
Ja
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: UserForm_Initialize()
12.10.2005 21:03:37
Bongiu
danke Hajo,
die nächste frage:
Wie?
konntest du mir ein Beispiel zeigen?
Danke
Bongiu
Anzeige
AW: UserForm_Initialize()
12.10.2005 21:07:54
Leo
Hi,

Private Sub UserForm_Initialize()
Dim c As Control, s As Byte
For s = 1 To 10
Set c = Me.Controls.Add("Forms.TextBox.1", "T" & s, True)
With c
.Height = 15.75
.Top = 18 * s
.Left = 12
.Text = "Textbox" & s
End With
Next
End Sub

mfg Leo
Anzeige
AW: UserForm_Initialize()
12.10.2005 21:14:48
bongiu
Danke, Leo und Hajo.
Kurz und schmerzlos, wunderbar!
bongiu
AW: UserForm_Initialize()
12.10.2005 21:12:12
Hajo_Zi
Hallo Bongiu,
Option Explicit

Private Sub UserForm_Initialize()
Dim i As Integer, obTemp As MSForms.TextBox
For i = 1 To 56
Set obTemp = Me.Controls.Add("Forms.TextBox.1", "TXT" & 1, True)
obTemp.Width = 25
obTemp.Height = 25
obTemp.Left = ((i - 1) Mod 10) * 30
obTemp.Top = (((i - 1) - ((i - 1) Mod 10)) / 10) * 30
Next i
End Sub

Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige