TextBox automatisch erzeugen und füllen
22.02.2013 09:08:19
bene
auf der Suche nach einem VBA-Script welches TextBoxen in einer Userform automatisch erzeugt bin ich hierdrauf gestoßen:
Private colCtl As New Collection
Private Sub CommandButton1_Click()
Dim i As Integer
Dim ctl As MSForms.TextBox
Dim zeilen As String
zeilen = Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
If zeilen Bei einem klick auf den CommandButton werden soviele TextBoxen erzeugt wie es beschriebene Zeilen gibt.
Das klappt soweit auch gut, jetzt möchte ich aber diese neu erstellten TextBoxen auch mit Inhalt befüllen und zwar von Zelle A1 - A letzte Zeile.
Wenn ich ganz normal versuche die Zellen an die TextBoxen zu übergeben sagt Excel mir das Diese nicht vorhanden sind.
Ich hoffe Ihr könnt mir helfen.
Gruß
Bene