Formeln umstellen

Public datu, z%

Private Sub CommandButton1_Click()
datu = DTPicker1.Value
z = 5
Do While Cells(z, 1) <> datu
z = z + 1
Loop
Do While Cells(z, 1) <> ComboBox1.Text
z = z + 1
Loop
Cells(z, 5) = ComboBox3.Value
Cells(z, 6) = Format(ComboBox8.Value, "hh:mm")
Cells(z, 7) = ComboBox4.Text
Cells(z, 8) = Format(ComboBox9.Value, "hh:mm")
Cells(z, 9) = ComboBox5.Text
Cells(z, 10) = Format(ComboBox10.Value, "hh:mm")
Cells(z, 11) = ComboBox6.Text
Cells(z, 12) = Format(ComboBox11.Value, "hh:mm")
Cells(z, 3) = Format(ComboBox7.Value, "hh:mm")
End Sub

Gruß Michaela