Office: VBA Excel in mehrere teilen nach Kostenstelle

Hallo liebe Office Community,

ich bin mit VBA nicht so bewandert und habe folgenden "Auftrag"... Eine Excel Datei aus SAP soll aufgeteilt werden nach Kostenstelle. Sprich für jede Kostenstelle soll eine extra Datei erstellt werden. Wir sprechen hier von etwa 400 Kostenstellen (etwa 14000 Zeilen) in der Masterdatei.

Kann mir jemand vielleicht anhand einer Dummy Datei ein Makro dafür schreiben? Ich hab es mit Youtube und Co schon selber probiert.. aber wirklich funktioniert hat das nie :D

 

Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip

Ich führe keine Liste unrter welchem Namen die Datei gespoeichert ist.
Der Dateiname steht ja im Beitrag.

Das ist nur meine Meinung zu dem Thema.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest, beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

 

Hallo Hajo,

vielen Dank für die schnelle und ausführliche Rückmeldung.
Die Datei ist soweit unbedenklich gemacht.

Ich füge sie hier mal an

Vielen Dank

 

Ich kann Dir Leider nicht Helfen. Was wohl daran liegt das ich die Überschrift Kostenstelle nichtr finden kann. Excel konnte sie auch nicht finden. Vielleicht ist es die falsche Datei?

Gruß Hajo

 

Hallo,

genau genommen soll man so nicht vorgehen. Gleichartige Daten gehören auf ein Tabellenblatt. Hier mal ein Link zu einer meiner Jugendsünden: Werzeugkiste guckst unter Listenseparator.

 

Mein Fehler, es heißt in der Excel Abteilung. Die Kostenstellen heißen "1DE08021"

Sorry

 

Es sollte immer nur eine neue Datei erstellt werden, nicht gespeichert. Das habe ich jetzt so umgesetzt.
Ich habe das Makro nicht gespeichert. Du hattest ja Extra eine XLSX Datei hochgeladen, die ohne Makro ist.
Das Makro dauert ein wenig.

Code:

Option Explicit

Sub Liste()
    '**************************************************
    '* H. Ziplies                                     *
    '* 27.04.23                                       *
    '* erstellt von HajoZiplies@WEB.de                *
    '* http://Hajo-Excel.de                           *
    '**************************************************
    Dim LoLetzte As Long                            ' Letzte Zeile
    Dim LoI As Long                                 ' Schleifenvariable
    Application.DisplayAlerts = False               ' Bildschirm aus
    With ActiveSheet                                ' Bezug auf aktuelle Tabelle
        ' letzte Zeile
        LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
        For LoI = 2 To LoLetzte                     ' Schleife über alle Zeilen
            ' Prüfen ob erster datensatz
            If WorksheetFunction.CountIf(.Range("E2:E" & LoI), .Cells(LoI, 5)) = 1 Then
        '        If Not .AutoFilterMode = True Then
                    .Range("$A$1").AutoFilter Field:=5, Criteria1:= _
                        .Cells(LoI, 5)
                ' sichnaren Bereich kopieren
                .Range("A1:AS" & LoLetzte).SpecialCells(xlCellTypeVisible).Copy
                Workbooks.Add                       ' neue Datei
                ActiveSheet.Paste                   ' kopierten Bereich einfügen
          
            End If
        Next LoI
    End With
    Application.CutCopyMode = False                 ' Markierung Kopie aus
    Application.DisplayAlerts = True                ' Bildschirm ein
End Sub

Gruß Hajo

 

Hallo Hajo, das funktioniert super! Vielen Dank... ja das speichern habe ich tatsächlich vergessen zu erwähnen... Dann muss ich das nur noch rausfinden irgendwie :) Vielen Dank auf jedenfall für deine Mühe

 

Code:

                ActiveSheet.Paste                   ' kopierten Bereich einfügen
                ActiveWorkbook.SaveAs Filename:= _
                    ThisWorkbook.Path & "\" & .Cells(LoI, 5) & ".xlsx", FileFormat:= _
                    xlOpenXMLWorkbook
            End If
        Next LoI
        .AutoFilterMode = False

Gruß Hajo

 

Jetzt funktioniert er nicht mehr. Ich habe den Teil ersetzt an der Stelle.. jetzt kommt ein runtime Error :/

 

meuin Coidevorschlag hat dir also nicht gefallen, daruim hast Du dieses gelöscht.
& "\" &

Gruß Hajo

 

Nein ich dachte da muss der Zielort rein, wo die neuen Dateien gespeichert werden sollen. Wärst du so lieb die beiden Code Schnipsel zu verbinden? :) Irgendwie bekomme ich das nicht so hin, wie gesagt bin absolut der VBA Anfänger. Vielen Dank

 

Hallo Epueone,

mein Beispiel aus #4 hast du dir nicht angesehen, (Link unter Werkzeugkiste)? Schade.

 

Gut Du glaubst mitr nicht.
Dein Dateiname ist Outputexcel... ist wohl das Problem..
Ich bin dann raus.
Viel Erfolg

Gruß Hajo

 

Hallo Hajo, dass hat doch mit dir glauben nicht zu tun. Ich bekomme die beiden Schnipsel nicht verbunden oder kann ich sie extra posten? Wie gesagt ich bin ein Anfänger. Dachte du könntest den Code des Speicherns und dem des Splittens zusammenführen. Ich habe nie bezweifelt dass das was du geschrieben hast falsch ist.