Einen schönen guten Morgen,
ich habe ein (wahrscheinlich) kleines Problem, bei dem ich nicht weiter komme.
Mein Userform erstellt bei Initialisierung automatisch x Textfelder, wenn in einer Spalte Daten eingetragen sind (CountA).
Das funktioniert soweit sehr gut.
Nun sollen in die erstellten Textfelder mit dem Inhalt der jeweiligen Zelle gefüllt werden, hierzu finde ich nicht den richtigen Code.
(sprich count 1 soll Wert der ersten gezählten Zelle enthalten usw.)
Hier ist mein code:
Dim c As Control
Dim i As Integer
i = WorksheetFunction.CountA(Sheets("Tabelle1").Range("B3:B200"))
For s = 1 To i
Set c = Me.Controls.Add("Forms.TextBox.1", "Feld" & s, True)
With c
.BorderStyle = 1
.BackStyle = 0
.Locked = True
.MultiLine = True
.TabStop = False
.Height = 36
.Width = 350
.Top = 42 * s
.Left = 12
End With
' Feld(i).Text soll Range(i).Value enthalten
Next
Vielen Dank vorab für eure Hilfe.
Grüße,
MS
|