Thema Datum  Von Nutzer Rating
Antwort
31.05.2022 10:40:05 Holger
NotSolved
Blau Tabellenblätter in andere Mappe kopieren
 01.06.2022 11:17:20 UweD
NotSolved
01.06.2022 11:36:39 Gast83129
NotSolved
01.06.2022 12:04:37 UweD
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
01.06.2022 11:17:20		 Views:
782		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter in andere Mappe kopieren

Hallo

In ein Normales Modul

Sub Die_3_Naechsten()
    Dim WbA As Workbook, WbB As Workbook, Sh
    Dim Pfad As String, Datei As String
    Dim Pos As Integer, Bis As Integer, i As Integer
    
    Pfad = "C:\Users\Benutzerxyz\Meine Documents\Abt\Temp\" ' mit \ am Ende
    Datei = "B.xlsx"
    
    Set WbA = Workbooks("A.xlsm")
    
    Application.ScreenUpdating = False
    
    Set WbB = Workbooks.Open(Pfad & Datei)
    'löschen
    Application.DisplayAlerts = False
    For Each Sh In WbB.Sheets
        If Sh.Name <> "Tabelle3" Then Sh.Delete
    Next
    Application.DisplayAlerts = True

    
    With WbA
        Pos = .ActiveSheet.Index 'aktuelle Blattnummer
        Bis = Pos + 3 'aktuelles Blatt plus 3
        If Bis > .Sheets.Count Then
            MsgBox "Problem: keine 3 weiteren Blättr ab aktueller Position zum Kopieren vorhanden"
            Bis = .Sheets.Count 'nur bis zum Letzten
        End If
        
        For i = Pos To Bis
            .Sheets(i).Copy after:=WbB.Sheets(WbB.Sheets.Count) 'ans Ende kopieren
        Next
    End With
    
    WbB.Close True 'Speichern und schließen
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
31.05.2022 10:40:05 Holger
NotSolved
Blau Tabellenblätter in andere Mappe kopieren
 01.06.2022 11:17:20 UweD
NotSolved
01.06.2022 11:36:39 Gast83129
NotSolved
01.06.2022 12:04:37 UweD
NotSolved