Hallo liebe Leute, in dem Screenshot seht Ihr die Userform mit zwölf Textboxen im Frame Schichtmodell, die mit den rot markierten Zellen in der Tabelle durch diese Schliefe befüllt werden.
Sub UnterSubSchichtModellBefüllen() 'L3
Dim TexBoxNrVon, TexBoxNrBis, Spalte, CountSpalte As Byte
TexBoxNrVon = 1: TexBoxNrBis = 12: Spalte = 12: CountSpalte = 0 'SetControlls = "TextBox": SetEnabledValue = "Value"
For Count = TexBoxNrVon To TexBoxNrBis
If CountSpalte = 4 Then Spalte = Spalte + 1
If CountSpalte = 4 Then CountSpalte = 0
CountSpalte = CountSpalte + 1
Me.Controls("TextBox" & Count).Value = Worksheets("stunden").Cells(CountSpalte + 3, Spalte) * -1
Next Count
End Sub
Das funktioniert, nur möchte ich gerne das Format 08:00 in den Textboxen haben. Trotz aller googlerei habe ich wirklich keine Idee wie ich das machen kann.Weiters wollte ich eigentlich in Me.Controls("Textbox" durch die Varibale SetControlls & count).Value durch die Variable SetEnabledValue ersetzen. Das geht hier leider nicht.
Ich habe eine andere Schliefe in der das geht:
Sub SteuerElementMaschine()
Dim Count As Byte
For Count = CtrlNrVon To CtrlNrBis
Call CallByName(Controls(SetControlls & Count), SetEnabledValue, VbLet, SetWahrFalsch)
Next
End Sub
Die Codezeile Call CallByName(Controls(SetControlls & Count), SetEnabledValue, VbLet, SetWahrFalsch)Ehlrich gesagt hab ich keine Ahnung was bei den fettgedruckten Codeteilen passiert und was sie bewirken. Und was genau der unterschied zu der oberen Schliefe ist.
Wenn jemand Zeit und eine Idee hat, ich bin gespannt :-) Vielen Dank.
Viele Grüsse Boris, einen schönen Sonntag