VB-Script und Excel Button

[rider]

Hi!

Also ich denke wir kommen der Sache näher:

Sub CommandButton1_Click()
   InputBox(Propt,[Wie heißt der Traeger?],[Name des Trägers] Dim Traegername As String
   Traegername = InputBox()

ThisWorkbook.Worksheets("Haupt").Copy Position
   ThisWorkbook.Worksheets("copy of Haupt").name = Traegername
End Sub

-------------------------------------------------------------

Bei dem "ThisWorkbook.Worksheets("Haupt").Copy Position" bin ich mir immer noch unsicher ob da noch was dran kommt. Die verlinkte Seite is ja leider in Englisch ^^.

Danke erstmal für deine Hilfe.