Private Sub CommandButton1_Click()
Dim i As Long
Dim name As String
Dim quellname As String
Dim quelle As Object
Dim fso As Object
ActiveSheet.Rows("5:5").Insert Shift:=xlDown
ActiveSheet.Rows(4).Copy Destination:=ActiveSheet.Rows(5)
ActiveSheet.Rows(4).Hidden = True
For i = 1 To 7
ActiveSheet.Cells(5, 2 + i) = Me.Controls("Textbox" & i).Value
Next i
name = "Z:\Projekte\" & ActiveSheet.Cells(4, 2) & Me.TextBox1.Value & Me.TextBox2.Value & Me.TextBox3.Value & Me.TextBox4.Value
quellname = "Z:\leerer Projektordner"
Set fso = CreateObject("Scripting.FileSystemObject")
Set quelle = fso.GetFolder(quellname)
quelle.Copy (Ziel)
Set fso = Nothing
Set quelle = Nothing
End Sub