Namen von Textboxes generieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox


Excel-Version: 8
nach unten

Betrifft: Namen von Textboxes generieren
von: Karsten
Geschrieben am: 03.05.2002 - 10:09:08

Hallo Exelianer,

habe ein großes Problem:

Ich möchte innerhalb einer Procedur die Namen von über 100 Textboxes in meiner Userform generieren. Dazu habe ich eine Schleife angelegt. Leider funktioniert mein Verfahren nicht. Kann mir eventuell hier jemand einen Tip geben. Anbei die kleine Procedur:

Public Sub FillFormDataRamme(aObj As frmRammsondierung, ByRef aData As tDataRamme, Optional aFocus As Integer = 0)
Dim t As String
Dim s As TextBox
Dim i As Integer
#If V1 Then
Debug.Print Time; Tab(10); "FillFormRamme (B/S/Fokus): "; Tab(45); aFocus
#End If
With aObj
.txtBohrungNr = Str$(aData.b.Nummer) & " von" & Str$(aData.V.AnzahlBohrungData)
.txtAuftraggeber = aData.b.Auftraggeber
.txtName = aData.b.Name
.cmbMassstab.ListIndex = aData.b.Massstab
.cmbRammsondierung.ListIndex = aData.b.Art
.txt1 = 0

For i = 2 To 119
t = ".txt" & i 'Hier liegt das Problem!!!
s = t
.s = aData.b.Schlagzahl(i)
Next i

Select Case aFocus
Case 1: .txtName.SetFocus
Case 2: .cmbRammsondierung.SetFocus
End Select
End With
End Sub


nach oben   nach unten

Re: Namen von Textboxes generieren
von: Hans W. Herber
Geschrieben am: 03.05.2002 - 10:44:26

Hallo Karsten,

das funktioniert nicht. Namen kannst Du - anders als z.B. Caption - nur im Entwursmodus vergeben, nicht während der Laufzeit.

hans


nach oben   nach unten

Re: Namen von Textboxes generieren
von: Karsten
Geschrieben am: 03.05.2002 - 10:52:23

Danke Hans,

dann weiß ich wenigstens, daß ich mir weitere Arbeit sparen kann.

Gruß Karsten


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Namen von Textboxes generieren"