ausgeblendete Tabelle

Sub Namen_einfügen(zeile As Integer, spalte As Integer, name As String)
Dim anzahl As Integer
If ActiveWorkbook.name = "Dienstbericht.xls" Then
anzahl = Sheets("Daten").Cells(6, spalte)
Sheets("Daten").Range(Cells(zeile, spalte), Cells(anzahl + 6, spalte)).Cut
Selection.Cut Destination:=Range(Cells(zeile + 1, spalte), Cells(anzahl + 6 + 1, spalte))
Sheets("Daten").Cells(zeile, spalte).Value = name
Sheets("Daten").Cells(6, spalte).Select
End If
frmEdit_Listen.lstNamen.Clear
frmEdit_Listen.txtName.text = ""
Liste_einlesen spalte
End Sub