Hallo Karin,
ich hab noch ein bischen gebastelt udn habe jetzt einen Button auf mein Originalformular gelegt. Dazu kopiere ich den Fragebogen auch noch in eine extra Datei, damit ich den neu erzeugten Fragebogen per mail versenden kann. Das ist bestimmt nicht perfekt, aber es funktioniert so wie ich möchte. Vielen dank für deine Mühe.
Hier der Code, falls jemand mal ein ähnliches Problem hat:
Sub Fragebogen_kopieren_BeiKlick()
Dim tabname As String
'Checkbox für neuen Tabellennamen aufrufen
tabname = InputBox("bitte ID für neuen Fragebogen eingeben", "ID")
'Fragebogen kopieren und als neuen Namen den Namen aus der InputBox verwenden
Sheets("Fragebogen").Select
Sheets("Fragebogen").Copy After:=Sheets(Sheets.Count)
Sheets("Fragebogen (2)").Select
Sheets("Fragebogen (2)").Name = tabname
'Ausgabeverknüpfungen in der Kopie anpassen
Dim cbbElement As CheckBox
For Each cbbElement In ActiveSheet.CheckBoxes
cbbElement.LinkedCell = Application.Substitute(cbbElement.LinkedCell, "Fragebogen!", "")
Next cbbElement
'Button in der Kopie löschen
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If TypeName(sh.OLEFormat.Object) = "Button" Then sh.Delete
Next
'Fragebogen als neue Datei speichern
Dim Dateiname$, Dateipfad
Dateiname = tabname
ActiveSheet.Select
ActiveSheet.Copy
If Dateiname = "" Then Exit Sub
ChDrive "S"
ChDir "S:\Zentral\Organisation\Daten\QM_Z41\Kundenbefragung 2011\Fragebögen fürs Versenden"
Dateipfad = Application.GetSaveAsFilename(Dateiname, FileFilter:="Excel Files (*.xls), *.xls")
If Dateipfad <> False Then
MsgBox "Der Fragebogen wurde gespeichert unter: " & Dateipfad
ActiveWorkbook.SaveAs FileName:=Dateipfad
End If
End Sub