- #1
P
prak05
Mitglied
Themenersteller
- Dabei seit
- 09.05.2005
- Beiträge
- 19
- Reaktionspunkte
- 0
Hey Leute,
möchte aus einer Datei die dieses Makro enthält, das erste Sheet in eine
andere Datei kopieren deren Name der User eingeben soll.
Habe jetzt folgenden Code, aber als Anfänger bin ich überfragt warum der nicht funktioniert.
Könnt Ihr mir helfen?? :-\
Vielen Dank im Voraus
Beste Grüße Prak
möchte aus einer Datei die dieses Makro enthält, das erste Sheet in eine
andere Datei kopieren deren Name der User eingeben soll.
Habe jetzt folgenden Code, aber als Anfänger bin ich überfragt warum der nicht funktioniert.
Könnt Ihr mir helfen?? :-\
Vielen Dank im Voraus
Beste Grüße Prak
Code:
Sub Speichernunter()
Dim tWB, WBz As Workbook
Dim Name_sp As String
Dim WS As Worksheet
Name_sp = InputBox(Speichernamen eingeben:)
Set WBz = Workbooks.Add
tWB.Worksheets(1).Copy after:=WBz.Worksheets(1)
'WBz.Name = Name_sp
WBz.SaveAs Filename:=Name_sp, FileFormat:=xlWorkbookNormal
WBz.Close
End Sub