Userforms - reset label to standard caption

Try this

Dim ct As Msforms.Label
Dim counter as Integer
counter = 1
For Each ct In fmAuftrag.Controls
ct.Caption = "Label" & counter
counter = counter + 1
Next ct