Worksheet kopieren, SaveAs

Dieses Thema Worksheet kopieren, SaveAs im Forum "Windows XP Forum" wurde erstellt von prak05, 31. Aug. 2005.

Thema: Worksheet kopieren, SaveAs Hey Leute, möchte aus einer Datei die dieses Makro enthält, das erste Sheet in eine andere Datei kopieren deren...

  1. 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

    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
    
    
    
     
  2. Hallo prak05,

    tWB ist nicht gesetzt  ;)

    Entweder die copy-Zeile ändern in
    Code:
    ActiveWorkbook.Worksheets(1).Copy after:=WBz.Worksheets(1)
    oder vor der copy-Zeile tWB setzen:
    Code:
    Set tWB = ActiveWorkbook

    Am Ende des Makros die Object-Variablen auf Nothing setzen
    Code:
    Set tWB = Nothing
    Set WBz = Nothing
    Sonst gibt es Speicherfresser  ;D

    Gruß Matjes :)
     
  3. Vielen Dank für Deine Hilfe. Hat funktioniert! :D
    Beste Grüße Prak
     
Die Seite wird geladen...

Worksheet kopieren, SaveAs - Ähnliche Themen

Forum Datum
Zellen die ein "J" enthalten in einen Worksheet kopieren Microsoft Office Suite 8. Mai 2007
Excel: Mit einem Kontrollkästchen Worksheet "X" öffnen Microsoft Office Suite 11. Juli 2008
Per Marko Zeile in anderem Worksheet ausblenden Microsoft Office Suite 19. Dez. 2007
KW aus Worksheetnamen in Zelle "D23" übernehmen Microsoft Office Suite 11. Dez. 2006
Excel Worksheets Monat automatisch miteinander verknüpfen Windows XP Forum 2. Dez. 2004