Arbeitsblatt kopieren und einfügen
30.10.2016 23:43:26
Martin
habe mir aus mehreren Codes einen zusammengebaut, aber leider funzt er nicht. Habe nicht so vile Ahnung von VBA.
Ich möchte ein Arbeitsblatt(Muster) kopieren, anschließend einen Namen vergeben und es soll an _
einer bestimmten Stelle(10) eingefügt werden. Werde mal den Code anhängen, der aber leider noch _
nicht ganz funzt.
Private Sub CmdKopieren_Click() _
'Neues Arbeitsblatt einfügen
Dim wsAct As Worksheet
Dim strBlattname As String
If MsgBox("Soll der nächste Monat vorbereitet werden?", vbYesNo) = vbYes Then
Set wsAct = Worksheets("Muster")
strBlattname = InputBox("Geben Sie bitte den Blattnamen ein:")
If strBlattname "" Then
wsAct.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = strBlattname
End If
End If
ActiveSheet.CmdKopieren.Visible = False
End Sub
Vieleicht hat noch jemand eine Idee.
Danke und Gruß
Martin