Formel kopieren

'--- neue adresse anlegen ---------

Private Sub CommandButton7_Click()

   Dim zz As String

    zz = 1

 Do While Cells(zz, 1) > ""                 ' Start der Schleife   1=Spalte A

    zz = zz + 1                              ' Schleifenzähler um 1 erhöhen

 Loop                                        ' Wendepunkt für Schleife

    Cells(zz, 1).Select                      ' Zelle selektieren    1=in Spalte A anfang

    ActiveCell.Offset(0, 0).Select           ' letzte Zeile nach oben

    Me.TextBox2.text = ""

    Me.TextBox3.text = ""

    Me.TextBox4.text = ""

    Me.TextBox6.text = ""

    Me.TextBox9.text = ""

   ActiveSheet.ActiveCell.Offset(0, 10).Select        

    ActiveSheet.ActiveCell.Offset(-1,10).Copy  'die formel soll kopiert werden

    ActiveSheet.ActiveCell.Offset(1, 10).Paste

    Me.TextBox10.text = ""

    Me.TextBox11.text = ""

    Me.TextBox14.text = ""

    Me.TextBox15.text = ""

End Sub