Thema Datum  Von Nutzer Rating
Antwort
12.02.2021 13:41:47 Christof
NotSolved
Blau Tabellenblätter Excel mit Makro kopieren und umbenennen von zwei Quellen
 12.02.2021 16:23:34 UweD
NotSolved
12.02.2021 17:15:56 Gast71481
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
12.02.2021 16:23:34		 Views:
875		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter Excel mit Makro kopieren und umbenennen von zwei Quellen

Hallo

 

so?

Sub Copy_file()
    Dim Dlg As FileDialog
    Dim WBQuelle1 As Workbook, WBQuelle2 As Workbook
    Dim WBZiel As Workbook, TB3 As Worksheet, TB4 As Worksheet
    Dim Pfad As String, NeuPfad, Neuname As String
    
    
    Set WBQuelle1 = Workbooks("Quelle1.xlsx") ' ist geöffnet
    Set TB3 = WBQuelle1.Sheets("3")
    Set TB4 = WBQuelle1.Sheets("4")
    
    Pfad = "E:\temp\"
    Set WBQuelle2 = Workbooks.Open(Pfad & "Quelle2.xlsx")
    Neuname = "NeueDatei.xlsx"
    
    Application.ScreenUpdating = False
    
    'TeileA
    TB3.Copy
    Set WBZiel = ActiveWorkbook
    ActiveSheet.Name = "Aktiva_ALT"
    
    TB4.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "Passiva_ALT"
    
    
    'TeileB
    Set TB3 = WBQuelle2.Sheets("3")
    Set TB4 = WBQuelle2.Sheets("4")

    TB3.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "Aktiva_NEU"
    
    TB4.Copy after:=WBZiel.Sheets(Sheets.Count)
    ActiveSheet.Name = "Passiva_NEU"
    
       
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
    If Dlg.Show = True Then
        NeuPfad = Dlg.SelectedItems(1) & "\"
        
        WBZiel.SaveAs NeuPfad & Neuname
        
        WBQuelle2.Close False
        
    Else
        MsgBox " Fehler"
        Exit Sub
        
    End If
End Sub

LG UweD

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.02.2021 13:41:47 Christof
NotSolved
Blau Tabellenblätter Excel mit Makro kopieren und umbenennen von zwei Quellen
 12.02.2021 16:23:34 UweD
NotSolved
12.02.2021 17:15:56 Gast71481
NotSolved