Excel VBA Projekt Userform: Awesenheitsliste Mitarbeiter Problem: Dynamisch erstellte Textboxen speichern

Hallo zusammen!

bräuchte wieder eure hilfe ob unten gezeigte Struktur richtig ist oder ob ich was vergessen habe.

Ich möchte eine Anwesenheitsliste für Mitarbeiter auf Basis Excel 2010 VBA erstellen welche über eine Userform dargestellt wird


- Multipage Januar bis Dezember

innerhalb Multipage:
- Listenfeld für Mitarbeiter Namen
- Listenfeld für Kalendertage etc.
- dynamisch erstellte Textboxen (für jeden Tag / jeden MA)

• diese müssten sich speichern und immer dargestellt sein ===> Problem

der Ansatz für die TextBoxen ist dieser

Sub ErstelleTextBox()
Dim i As Integer, ii As Integer, a As Integer
Dim oTXT As MSForms.TextBox
Dim sngLeft As Single, sngTop As Single

Const sW As Single = 70
Const sH As Single = 18
Const sTopErste As Single = 40
Const sLeftErste As Single = 2
Const sAbstand As Single = 2

'If UBound(oTXTClass) > -1 Then
For a = Me.Controls.Count - 1 To 0 Step -1
If Controls(a).Name Like "TempTextBox*" Then
Me.Controls.Remove Controls(a).Name
End If
Next a
a = 0
'End If

Erase oTXTClass

For ii = 1 To CInt(ComboBox2)
For i = 1 To CInt(ComboBox1)
Set oTXT = Controls.Add("Forms.TextBox.1", "TempTextBox" & a, True)

With oTXT

If ii = 1 And i = 1 Then
.Top = sTopErste: .Left = sLeftErste: .Width = sW: .Height = sH
Else
.Top = sngTop: .Left = sngLeft: .Width = sW: .Height = sH
End If

ReDim Preserve oTXTClass(a)
Set oTXTClass(a).TXT_Class = oTXT
a = a + 1

If i < ComboBox1 Then
sngTop = .Top + .Height + sAbstand
sngLeft = .Left
Else
sngTop = sTopErste
sngLeft = .Left + .Width + sAbstand
End If

End With
Next i
Next ii

If CInt(ComboBox1) > 11 Then
Me.ScrollBars = fmScrollBarsVertical
Me.ScrollHeight = oTXT.Top + oTXT.Height + sAbstand
Else
Me.ScrollBars = fmScrollBarsNone
End If

End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then ErstelleTextBox
End Sub

Private Sub ComboBox2_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then ErstelleTextBox
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 100
ComboBox1.AddItem i
If i < 7 Then ComboBox2.AddItem i
Next i
End Sub

Private Sub UserForm_Terminate()
Erase oTXTClass
End Sub

for each control in Me.Controls
'...wenn Textbox dann ....  
Next

if (r MOD 2) = 0 then
    oTxt.BackColor = RGB(255, 128, 0)
end if