leider ein Problem mit der "Private Sub UserForm_Initialize()" !
da ja nicht alle gleichzeitig laufen können wollte ich gerne wissen wie ich eine Initialize beenden kann und mit einer neuen anfangen kann. leider habe ich dazu noch nichts gefunden
'########Geleistete Arbeit je Stunde##########################
Private Sub UserForm_Initialize()
TextBox17.Text = Worksheets("Tabelle3").Range("O4").Value
TextBox31.Text = Worksheets("Tabelle3").Range("O5").Value
TextBox32.Text = Worksheets("Tabelle3").Range("O6").Value
TextBox33.Text = Worksheets("Tabelle3").Range("O7").Value
TextBox34.Text = Worksheets("Tabelle3").Range("O8").Value
TextBox35.Text = Worksheets("Tabelle3").Range("O9").Value
TextBox36.Text = Worksheets("Tabelle3").Range("O10").Value
TextBox37.Text = Worksheets("Tabelle3").Range("O11").Value
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
'########Klärffälle (Forlagen für Angaben )#####################
Private Sub UserForm_Initialize()
Dim lngUntersterEintrag As Long
lngUntersterEintrag = Range("Tabelle3!S65536").End(xlUp).Row
Me.ComboBox2.List = Range("Tabelle3!S2:S" & lngUntersterEintrag).Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
'########Etiketten vorlagen(Ausdruck)##########################
Private Sub UserForm_Initialize()
With ComboBox4
.Clear
.AddItem "Faulty"
.AddItem Format$(Date, "dd/mm/yyyy")
.ListIndex = 1
End With
End Sub
'########Etiketten vorlagenin Tabelle eintragen ##########################
Private Sub ComboBox4_Change()
Worksheet("Tabelle1").Range("W4").Value = ComboBox4.Value
End Sub