Hallo!
Wo setze ich hier bitte den .NumberFormat = "000" Befehl
With Sheets("Binf neu (2)")
.Cells(Range("AE65536").End(xlUp).Row + 1, 31).Value = fBHZ.bhztxt6.Text
.Cells(Range("AF65536").End(xlUp).Row + 1, 32).Value = fBHZ.bhztxt7.Text
.Cells(Range("AG65536").End(xlUp).Row + 1, 33).Value = fBHZ.bhztxt8.Text
.Cells(Range("AH65536").End(xlUp).Row + 1, 34).Value = fBHZ.bhztxt9.Text
.Cells(Range("AI65536").End(xlUp).Row + 1, 35).Value = fBHZ.bhztxt10.Text
.Cells(Range("AJ65536").End(xlUp).Row + 1, 36).Value = fBHZ.bhztxt11.Text
.Cells(Range("AK65536").End(xlUp).Row + 1, 37).Value = fBHZ.bhztxt12.Text
.Cells(Range("AL65536").End(xlUp).Row + 1, 38).Value = fBHZ.bhztxt13.Text
.Cells(Range("AM65536").End(xlUp).Row + 1, 39).Value = fBHZ.bhztxt14.Text
.Cells(Range("AN65536").End(xlUp).Row + 1, 40).Value = fBHZ.bhztxt15.Text
.Cells(Range("AO65536").End(xlUp).Row + 1, 41).Value = fBHZ.bhztxt16.Text
.Cells(Range("AP65536").End(xlUp).Row + 1, 42).Value = fBHZ.bhztxt17.Text
End With
Danke
Josef