Stapelspeicher voll UserForm
04.12.2016 11:07:08
Anton
ich würde gerne die Labels einer UserForm dynamisch mit den Spaltenüberschriften befüllen. _ Leider bekomme ich immer einen Laufzeitfehler 28 - Stapelspeicher voll. Was mache ich hier falsch? Ich komme einfach nicht drauf.
Private Sub UserForm_Initialize()
Dim lngSpalte As Long
Dim lngSpalteMax As Long
Me.TextBox5.SetFocus
Me.TextBox5.TabIndex = 1
Me.cmd_OK.TabIndex = 2
With Tabelle2
lngSpalteMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
For lngSpalte = 1 To lngSpalteMax
Me.Controls("Label" & lngSpalte).Caption = .Cells(1, lngSpalte).Value
Next lngSpalte
For lngSpalte = 2 To lngSpalteMax
Me.Controls("TextBox" & lngSpalte).Locked = True
Me.Controls("TextBox" & lngSpalte).BackColor = RGB(190, 190, 190)
Next lngSpalte
End With
End Sub
Danke für eure Hilfe.
VG Anton
Anzeige