Office: 4 Arbeitsblätter exportieren nach Kriterium VBA

Helfe beim Thema 4 Arbeitsblätter exportieren nach Kriterium VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, aus einer Arbeitsmappe sollen 4 Arbeitsblätter ("Name1", "Name2" etc.) anhand des Bereich in Spalte A in separat zu erstellende... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Tom1469, 21. Dezember 2022.

  1. Tom1469 Neuer User

    4 Arbeitsblätter exportieren nach Kriterium VBA


    Hallo zusammen,

    aus einer Arbeitsmappe sollen 4 Arbeitsblätter ("Name1", "Name2" etc.) anhand des Bereich in Spalte A in separat zu erstellende Arbeitsmappen je Bereich exportiert werden, sie sollen jeweils die gleiche Bezeichnung des Bereichs erhalten , also z. B. "1", "2" etc. Ich habe ein Makro gefunden, was leider nur das 1. Arbeitsblatt exportiert und nicht alle 4. Mir ist es leider nicht gelungen es anzupassen, kenne mich mit VBA auch nicht wirklich gut aus.

    Hat jemand eine Idee, wie das Makro aussehen müsste?

    Eine Muster der Basis Arbeitsmappe sowie als Bsp. das gewünschte Ergebnis für den Bereich 1 ist beigefügt.

    Viele Grüße
    Tom
     
  2. Tom1469 Neuer User
    Hallo,

    kann keiner helfen? Ich habe mich noch ein paar mal damit beschäftigt, aber ich bekomme es nicht hin.

    Ansonsten muss ich das doch weiter alles per Hand kopieren, aber ein Makro hätte den Aufwand auf ein Minimum reduziert.

    Viele Grüße
    Tom
     
  3. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Tom,

    Deine Beschreibung und Code ist mir nicht klar.
    Den Datensatz aus der "XLSX" Datei findet man nicht in der "XLSM" Datei, mir ist also nicht klar wie der Satz in der "XLSX" Datei erstellt wurde?
    Möchtest Du für jeden Datensatz in der XLSM Datei eine Datei haben? Welcher Dateiname? Spalte F?
    nur "Name1"?

    4 Arbeitsblätter exportieren nach Kriterium VBA Grußformel4 Arbeitsblätter exportieren nach Kriterium VBA Homepage
     
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    4 Arbeitsblätter exportieren nach Kriterium VBA

    Hallo Tom,

    erst wird sich beschwert das keine Antwort kommt. Dann kommt keine Antwort auf die Antwort.
    Ich vermute das kommt auch erst in 3 Tagen. Ich bin dann raus, nach dieser Zeit ist der Beitrag für mich nicht mehr aktuell.
    Viel Erfolg.
    Meinen Beitrag umgestzt.

    Code:
    Option Explicit
    
    Sub Kopie()
        '**************************************************
        '* H. Ziplies                                     *
        '* 28.12.22                                       *
        '* erstellt von HajoZiplies@WEB.de                *
        '* http://Hajo-Excel.de                           *
        '**************************************************
        Dim Loletzte As Long
        Dim LoI As Long
        Dim WsTabelle As Worksheet
        ' Schleife über alle Tabelle
        Application.DisplayAlerts = False
        For Each WsTabelle In Worksheets
            With WsTabelle
                Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
                ' Schleife über Tabelle
                For LoI = 2 To Loletzte
                    Workbooks.Add
                    .Rows(1).Copy Rows(1)
                    .Rows(LoI).Copy Rows(2)
                    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("F2") & ".xlsx", _
                        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                    ActiveWorkbook.Close
                Next LoI
            End With
        Next WsTabelle
        Application.DisplayAlerts = True
    End Sub
    
    4 Arbeitsblätter exportieren nach Kriterium VBA Grußformel4 Arbeitsblätter exportieren nach Kriterium VBA Homepage
     
  5. Tom1469 Neuer User
    Hallo Hajo,

    bitte entschuldige, ich hatte eigentlich eingestellt, dass ich per E Mail benachrichtigt werde, wenn eine Antwort kommt, hatte aber nichts bekommen und gerade erst gesehen dass du geantwortet hast. Falls du trotzdem weiter helfen würdest, fände ich das toll.

    Das Makro aus der "XLM" Datei habe ich unten aufgeführt. Hier wird leider immer nur 1 Tabellenblatt und nicht alle 4 aufgeteilt. Das Ergebnis soll eigentlich so sein, als ob in der "XLM" Datei alle 4 Arbeitsblätter jeweils nach Spalte A ("Bereich") gefiltert und jeweils als neue Arbeitsmappe abgespeichert werden, also "1", "2", "3" etc. Die "XLSX" Beispieldatei sollte das Wunschergebnis für den Bereich 1 mit allen 4 Arbeitsblättern darstellen.

    Viele Grüße
    Tom

    Sub IndikatorenExportieren()
    Dim dicIdentNo As Object
    Dim strIdentNo As String
    Dim arrIdentNo As Variant
    Dim lngLastRow As Long, i As Long
    Set dicIdentNo = CreateObject("Scripting.Dictionary")
    'AutoFilter in Spalte A einrichten
    Columns("A:A").AutoFilter
    If Not ActiveSheet.AutoFilterMode Then
    Columns("A:A").AutoFilter
    End If
    'Letzte Zeile ermitteln
    lngLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    'Alle Indikator ermitteln
    With dicIdentNo
    For i = 2 To lngLastRow
    strIdentNo = Trim(Cells(i, 1).Text)
    If Not .Exists(strIdentNo) Then
    .Add strIdentNo, 0
    End If
    Next i
    'Alle Indikatoren in Array übertragen
    arrIdentNo = .keys
    'Jeden Indikator filtern und in neuer Arbeitsmappe speichern
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 0 To .Count - 1
    Selection.AutoFilter Field:=1, Criteria1:=arrIdentNo(i)
    Cells.SpecialCells(xlCellTypeVisible).Copy
    Workbooks.Add
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Range("A1").Select
    With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "/" & arrIdentNo(i) & ".xlsx"
    .Close
    End With
    Next
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic
    End With
    End Sub
     
  6. Hajo_Zi
    Hajo_Zi Erfahrener User
    Gut Du möchtest unbeding Dein Makro ändern, da ich damit nich klar komme bist Du selber dran.
    Ich bin dann raus. Mein Makro hat Dir nicht gefallen. Das meiner Meinung nach Deine Aufgabe löst für die Datei. In der nichts gefiltert war und darum nicht berücksichtigt.

     
  7. Tom1469 Neuer User
    Dein Makro liefert doch ganz andere Ergebnisse, es wird für jeden Mitarbeiter eine eigene Arbeitsmappe erzeugt und nicht für jeden Bereich mit allen Arbeitsblättern. Ich hatte gehofft, dass jemand mir Hilfe bei der Umstellung meines Makros geben könnte, dass ja grds. richtige Ergebnisse liefert, aber nur für 1 Arbeitsmappe und nicht alle 4 je Bereich.

    Gruß
    Tom
     
Thema:

4 Arbeitsblätter exportieren nach Kriterium VBA

Die Seite wird geladen...
  1. 4 Arbeitsblätter exportieren nach Kriterium VBA - Similar Threads - Arbeitsblätter exportieren Kriterium

  2. Arbeitsblatt duplizieren

    in Microsoft Excel Hilfe
    Arbeitsblatt duplizieren: Hallo zusammen, ich hoffe ihr könnt mir weiterhelfen: Ich möchte ein Arbeitsblatt "duplizieren", so dass Blatt 2 automatisch aktualisiert wird, wenn in Blatt 1 Änderungen vorgenommen werde. Mit...
  3. VBA-Code Arbeitsblatt wechseln

    in Microsoft Excel Hilfe
    VBA-Code Arbeitsblatt wechseln: Hallo zusammen, ich habe mal wieder eine Frage. Aktuell beschäftige ich mich mit VBA-Codes. Beim öffnen meiner Arbeitsmappe erscheint folgender Hinweis: Private Sub Workbook_Open() 'Titel Hinweis...
  4. Daten aus einem Arbeitsblatt in ein anderes

    in Microsoft Excel Hilfe
    Daten aus einem Arbeitsblatt in ein anderes: Hallo, ich möchte aus einem Tabellenblatt "Dateneingabe" 6 Werte einer Zeile(d5,e5,f5,g5,h5,i5) in ein anderes Tabellenblatt "Nebenk.-2023" in die Zellen e14,e17,e20,e23,e26 und e29 kopieren....
  5. Daten aus Tabelle auf anderem Arbeitsblatt und Suchabfrage

    in Microsoft Excel Hilfe
    Daten aus Tabelle auf anderem Arbeitsblatt und Suchabfrage: Hallo zusammen, ich bräuchte mal wieder euer Expertenwissen :-) Ich habe folgende Tabelle die ständig erweitert. Aktuell 480 Zeilen. Tabelle 1: A | B | C | D 1 2 3 Diese ist als Tabelle...
  6. Arbeitsblätter sind verschwunden

    in Microsoft Excel Hilfe
    Arbeitsblätter sind verschwunden: Hallo, einer xls Mappe habe ich vor einiger Zeit ein Password vergeben und arbeite täglich daran. In der Mappe sind xxxx Arbeitsblätter. Heute öffne ich die Mappe Password wird erfragt und...
  7. Druckansicht erstellen

    in Microsoft Excel Hilfe
    Druckansicht erstellen: Hallo :), ich habe eine relativ große Excel-Tabelle mit Aufträgen und den jeweiligen Arbeitsschritten, die diese durchlaufen. Nun möchte ich für die einzelnen Abteilungen das Wochenprogramm...
  8. Arbeitsblätter selektieren und exportieren

    in Microsoft Excel Hilfe
    Arbeitsblätter selektieren und exportieren: Hallo zusammen, Mit Hilfe dieses Makros exportier ich einige Tabellen und Diagramme in eine neue Arbeitsmappe. (Alle benötigten Arbeitsblätter markieren -> Rechtsklick ->...
  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