Herbers Excel-Forum - das Archiv

Namen von Textboxes generieren

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


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

Excel-Beispiele zum Thema "Namen von Textboxes generieren"
Namen von TextBoxes hochzählen TextBoxes- und Label-Werte in Abhängigkeit verändern
Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen UserForm-TextBoxes ein- und ausblenden
Werte zweiter UserForm-TextBoxes multiplizieren Eingabebegrenzungen für TextBoxes
Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes Focus und Selection zwischen zwei TextBoxes wechseln
Eigene Klasse für UserForm-TextBoxes bilden Markierung einer Datumsreihe gem. UserForm-TextBoxes