Office: VBA Excel in mehrere teilen nach Kostenstelle

Helfe beim Thema VBA Excel in mehrere teilen nach Kostenstelle in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo liebe Office Community, ich bin mit VBA nicht so bewandert und habe folgenden "Auftrag"... Eine Excel Datei aus SAP soll aufgeteilt werden nach... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von epueone, 27. April 2023.

  1. epueone Neuer User

    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
     
    epueone, 27. April 2023
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    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)

    VBA Excel in mehrere teilen nach Kostenstelle GrußformelVBA Excel in mehrere teilen nach Kostenstelle Homepage
     
    Hajo_Zi, 27. April 2023
    #2
  3. epueone Neuer User
    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
     
    epueone, 27. April 2023
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    VBA Excel in mehrere teilen nach Kostenstelle

    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?

     
    Hajo_Zi, 27. April 2023
    #4
  5. Klaus-Dieter Erfahrener User
    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.
     
    Klaus-Dieter, 27. April 2023
    #5
  6. epueone Neuer User
    Mein Fehler, es heißt in der Excel Abteilung. Die Kostenstellen heißen "1DE08021"

    Sorry
     
    epueone, 27. April 2023
    #6
  7. Hajo_Zi
    Hajo_Zi Erfahrener User
    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
    
     
    Hajo_Zi, 27. April 2023
    #7
  8. epueone Neuer User

    VBA Excel in mehrere teilen nach Kostenstelle


    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
     
    epueone, 27. April 2023
    #8
  9. Hajo_Zi
    Hajo_Zi Erfahrener User
    Code:
                    ActiveSheet.Paste                   ' kopierten Bereich einfügen
                    ActiveWorkbook.SaveAs Filename:= _
                        ThisWorkbook.Path & "\" & .Cells(LoI, 5) & ".xlsx", FileFormat:= _
                        xlOpenXMLWorkbook
                End If
            Next LoI
            .AutoFilterMode = False
    
     
    Hajo_Zi, 27. April 2023
    #9
  10. epueone Neuer User
    Jetzt funktioniert er nicht mehr. Ich habe den Teil ersetzt an der Stelle.. jetzt kommt ein runtime Error :/
     
    epueone, 27. April 2023
    #10
  11. Hajo_Zi
    Hajo_Zi Erfahrener User
    meuin Coidevorschlag hat dir also nicht gefallen, daruim hast Du dieses gelöscht.
    & "\" &

     
    Hajo_Zi, 27. April 2023
    #11
  12. epueone Neuer User
    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
     
    epueone, 27. April 2023
    #12
  13. Klaus-Dieter Erfahrener User

    VBA Excel in mehrere teilen nach Kostenstelle

    Hallo Epueone,

    mein Beispiel aus #4 hast du dir nicht angesehen, (Link unter Werkzeugkiste)? Schade.
     
    Klaus-Dieter, 27. April 2023
    #13
  14. Hajo_Zi
    Hajo_Zi Erfahrener User
    Gut Du glaubst mitr nicht.
    Dein Dateiname ist Outputexcel... ist wohl das Problem..
    Ich bin dann raus.
    Viel Erfolg

     
    Hajo_Zi, 27. April 2023
    #14
  15. epueone Neuer User
    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.
     
    epueone, 27. April 2023
    #15
Thema:

VBA Excel in mehrere teilen nach Kostenstelle

Die Seite wird geladen...
  1. VBA Excel in mehrere teilen nach Kostenstelle - Similar Threads - VBA Excel Kostenstelle

  2. VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

    in Microsoft Excel Hilfe
    VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.: Hallo zusammen, Eine Tabelle mit 9 Worksheets, Datenblatt, Studien, Studie_1 ...Studie_7. Auf dem Deckblatt werden in Zelle B4-B10 die Namen der Studien eingetragen. Davon abhängig ob ein Name...
  3. Excel VBA Spalten mit Ordnerinhalt vergleichen

    in Microsoft Excel Hilfe
    Excel VBA Spalten mit Ordnerinhalt vergleichen: Hallo, Bin ehr Excel VBA Neuling, Würde aber gerne in einer bestehender Tabelle die Auflistung der Ordner mit dem eigentlichen Stand in den besagten Ordner kontrollieren. Also in der Spalte Q10...
  4. Array aus Excel Tabelle einlesen Word VBA

    in Microsoft Excel Hilfe
    Array aus Excel Tabelle einlesen Word VBA: Hallo, ich benötige in einer Word Datei die Werte einer Excel Datei. Ich würde gerne eine Spalte als Array einlesen. Wie das Array ein lesen in Excel geht weiß ich, aber wie schaffe ich den...
  5. Dynamische Tabellen mit automatischer Aktualisierung

    in Microsoft Excel Hilfe
    Dynamische Tabellen mit automatischer Aktualisierung: Hallo in die Runde! Vorab schon mal vielen Dank für alle Mühen und die Hilfe! Ich habe folgendes Anliegen: Ich habe eine Geräteliste als Excel Datei mit einigen verschiedenen Tabellenblättern...
  6. (Excel) Dynamische Tabelle, VBA, fehlende Formatierung?

    in Microsoft Excel Hilfe
    (Excel) Dynamische Tabelle, VBA, fehlende Formatierung?: Liebe Experten, Gefilterte Daten sollen in ein Listobject übertragen werden. Für das Listobject habe ich ein Template angelegt, dass alle Formatierungen (u.a. bedingte Formatierung etc.) enthält....
  7. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  8. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
Schlagworte:
  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