Thema Datum  Von Nutzer Rating
Antwort
15.02.2021 21:35:04 Morning
NotSolved
Blau Ganzes Tabellenblatt in eine neue Arbeitsmappe mit Werte und Format kopieren
 16.02.2021 08:45:07 Sigi
NotSolved
16.02.2021 09:09:10 Morning
NotSolved
16.02.2021 09:24:43 Werner
NotSolved
16.02.2021 09:30:51 Sigi
NotSolved
16.02.2021 12:39:43 Gast78330
Solved

Ansicht des Beitrags:
Von:
Sigi		 Datum:
16.02.2021 08:45:07		 Views:
509		 Rating:
     
Antwort:
  Ja
Thema:
Ganzes Tabellenblatt in eine neue Arbeitsmappe mit Werte und Format kopieren

Hi, verstehe nicht ganz was du willst. Funktioniert ja eh.
Der Code unterhalb von dir öffnet ein neues Workbook und hängt das ganze Sheet samt Formatierung im neuen an!

LG

Public Sub test()
    Dim wkbQuelle   As Excel.Workbook
    Dim wkbZiel     As Excel.Workbook
    Dim Neuname       As String
     
    Set wkbZiel = Application.Workbooks.Add

    'Auswahl der Arbeitsmappe (externe Datei)
    
    ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xls*", , "Bitte die Datei RISK_3 zum Kopieren öffnen ...")
    ExportDatei = CStr(ExportDatei)
    If ExportDatei = "Falsch" Then Exit Sub
    Set wkbQuelle = Workbooks.Open(ExportDatei)
    
   'Arbeitsblatt in die Zieldatei mit Werten und Formatierung kopieren
    
    wkbQuelle.Worksheets(1).Copy After:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
end sub

 

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
15.02.2021 21:35:04 Morning
NotSolved
Blau Ganzes Tabellenblatt in eine neue Arbeitsmappe mit Werte und Format kopieren
 16.02.2021 08:45:07 Sigi
NotSolved
16.02.2021 09:09:10 Morning
NotSolved
16.02.2021 09:24:43 Werner
NotSolved
16.02.2021 09:30:51 Sigi
NotSolved
16.02.2021 12:39:43 Gast78330
Solved