Office: (Office 365) Blattnamen in neue Arbeitsmappe übernehmen

Helfe beim Thema Blattnamen in neue Arbeitsmappe übernehmen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich bin totale VBA-Anfängerin und stehe vor folgendem Problem: ich würde gerne ausgehend von einer vorhandenen Arbeitsmappe (XY) eine neue... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von sterni, 14. März 2022.

  1. sterni Neuer User

    Blattnamen in neue Arbeitsmappe übernehmen


    Hallo,

    ich bin totale VBA-Anfängerin und stehe vor folgendem Problem: ich würde gerne ausgehend von einer vorhandenen Arbeitsmappe (XY) eine neue erstellen und in der neuen Arbeitsmappe (XYZ) die gleiche Anzahl und Benennung an Arbeitsblättern haben wie in der vorhandenen Mappe (XY) ohne die Daten der Blätter zu übernehmen. Ist das möglich?
     
    sterni, 14. März 2022
    #1
  2. OilMax User
    Hallo Sterni

    Trage folgenden Code in ein Modul deiner Arbeitsmappe, welche du ohne Inhalt aber mit allen Arbeitsblättern und Blattnamen neu anlegen willst:

    Code:
    Option Explicit
    Dim arrBlattnamen
    
    Sub BlattnamenInArray()
        Dim Wks As Worksheet, Tbl_Blatt() As String, i As Integer
        For Each Wks In ThisWorkbook.Worksheets
            ReDim Preserve Tbl_Blatt(i)
            Tbl_Blatt(i) = Wks.Name
            i = i + 1
        Next Wks
        ReDim arrBlattnamen(i - 1)
        For i = LBound(Tbl_Blatt) To UBound(Tbl_Blatt)
            arrBlattnamen(i) = Tbl_Blatt(i)
        Next i
    End Sub
    
    Sub NeuesWorkbookAlleBlattnamen()
        Dim strFilename As String, strFilenameM As String, i As Integer
            BlattnamenInArray
            strFilename = InputBox("Bitte den Namen der Neuen Datei angeben")
    
            strFilenameM = ThisWorkbook.Name
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Workbooks.Add
        ActiveWindow.Caption = strFilename
        Windows(strFilename).Activate
    
        With Windows(strFilename)
            ActiveSheet.Name = arrBlattnamen(0)
            For i = 1 To UBound(arrBlattnamen)
                Sheets.Add
                ActiveSheet.Name = arrBlattnamen(i)
            Next i
        End With
            
        With Application.FileDialog(msoFileDialogSaveAs)
            .FilterIndex = 2 'Filterindex 1 ist .xlsx und 2 ist .xlsm
            .InitialFileName = strFilename
            If .Show = -1 Then
                .Execute
            Else
                MsgBox "Es wurde Abbrechen gedrückt!"
            End If
        End With
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    End Sub
    
    Die Sub "NeuesWorkbookAlleBlattnamen" erledigt das Alles.
    Anbei noch eine Beispieldatei
    Gruß Uwe
     
    OilMax, 15. März 2022
    #2
    1 Person gefällt das.
  3. sterni Neuer User
    Cool, vielen lieben Dank für die schnelle Antwort! :)
     
    sterni, 15. März 2022
    #3
  4. OilMax User

    Blattnamen in neue Arbeitsmappe übernehmen

    Gerne
     
    OilMax, 15. März 2022
    #4
Thema:

Blattnamen in neue Arbeitsmappe übernehmen

Die Seite wird geladen...
  1. Blattnamen in neue Arbeitsmappe übernehmen - Similar Threads - Blattnamen Arbeitsmappe übernehmen

  2. Blattnamen automatisch ändern mit Zellbezug auf anders Blatt

    in Microsoft Excel Hilfe
    Blattnamen automatisch ändern mit Zellbezug auf anders Blatt: Hallo, ich möchte meine Blätter automatisch umbenennen lassen. Das erste Blatt nennt sich „Übersicht“ dort möchte ich die Namen der anderen Blätter eingeben. Die Namen werden aber regelmäßig...
  3. Blattname in Variable speicher und danach benutzen

    in Microsoft Excel Hilfe
    Blattname in Variable speicher und danach benutzen: Hallo zusammen Eigentlich total logisch uns simpel. Weiss jedoch nicht warum das nicht funzt. Ich speichere einen Tabellenname in einer Variable: blatt2 = ActiveSheet.Name 'funzt ohne Probleme...
  4. Blattname in Zelle als Bezug auf Blatt

    in Microsoft Excel Hilfe
    Blattname in Zelle als Bezug auf Blatt: Guten Morgen ! Gibt es die Möglichkeit, den Blattnamen auf den sich bezogen werden soll, in einer Zelle zu hinterlegen und eine entsprechende Zelle auf dem Bezugsblatt auszulesen ? Bsp....
  5. Array mit Blattnamen füllen

    in Microsoft Excel Hilfe
    Array mit Blattnamen füllen: Hallo! Ich möchte, dass man vor dem Drucken, über eine Reihe von Checkboxen Blätter selektieren kann. Danach kann man im Druckdialog mit dem Radiobutton die Option ausgewählte Blätter markieren...
  6. Blattnamen fortlaufend ändern

    in Microsoft Excel Hilfe
    Blattnamen fortlaufend ändern: Liebe Spezialisten, habe da ein für mich großes, für Euch sicher kleines Problem. In einer Datei habe ich 12 Blätter gesamt. Ab dem 3. Tabellenblatt sollen die Tabellenblätter in Abhängigkeit...
  7. Blattname dynamisch in INDEX-Funktion

    in Microsoft Excel Hilfe
    Blattname dynamisch in INDEX-Funktion: Hallo, ich habe heute mehr oder weniger den gesamten Tag für die Erstellung einer Excel verwendet, um mir Informationen zu Aktienkursen zusammenzustellen und hänge gerade an einer Kleinigkeit...
  8. blattnamen automatisch in eine zelle übernehmen

    in Microsoft Excel Hilfe
    blattnamen automatisch in eine zelle übernehmen: Hallo, ist es möglich den blattnamen automatisch in eine zelle zu übernehmen? vielen dank heli
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden