Office: (Office 2016) Tabellen zusamenkürzen

Helfe beim Thema Tabellen zusamenkürzen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; @RPP63 : Hallo Ralf, ich hatte deinen Lösungsvorschlag schon versucht. Leider habe ich eine Rückmeldung versäumt, sry :-( Ich bin auf 2 Probleme... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von suey, 11. Januar 2021.

  1. suey
    suey User

    Tabellen zusamenkürzen


    @RPP63 : Hallo Ralf, ich hatte deinen Lösungsvorschlag schon versucht. Leider habe ich eine Rückmeldung versäumt, sry :-(
    Ich bin auf 2 Probleme gestoßen.
    Zum Einen kann ich deine Excel-Tabelle nicht herunterladen, weil ich auf meinem Arbeitsrechner dazu keine Berechtigung habe. Das könnte ich allerdings von zuhause machen.
    Das größere Problem ist, dass eine Umwandlung der 6 MB großen Tabelle nach 1.048.000 geladenen Zeilen abgebrochen wird und mir eine Fehlermeldung mitteilt, dass mein Arbeitsspeicher von 8 GB nicht ausreichen würde ...
    Könnte aber auch das zuhause mit 64 GB noch mal versuchen :-)

    @Beverly : Hi Beverly, die eigentliche Tabelle kann ich nicht hochladen, weil sie personenbezogene Daten enthält und recht groß ist. Ich habe mal die obere linke Ecke der ersten Haupttabelle rauskopiert und hier hochgeladen. Ich hoffe, das ist ausreichend.
    Ich will nach den Kursen "Pmd", "Pkt" und "PrW" suchen. Bei diesen hätte ich gerne in der per Makro neu zu erstellenden Tabelle gewusst, welche Gruppen (mit wie vielen Teilnehmern - die Zahl links daneben) an welchem Tag einen dieser Kurse besuchen / besucht haben.

    Ich finde es übrigens großartig, wie ihr euch hier kümmert !

    LG
     
    1 Person gefällt das.
  2. Beverly
    Beverly Erfahrener User
    Die hochgeladene Mappe war ausreichend um deinen Tabellenaufbau nachvollziehen zu können. Mit dem folgenden Code sollte es jetzt funktionieren:

    Code:
    Sub Zusammenfassen()
        Dim intSpalte As Integer
        Dim lngZeile As Long
        Dim intLetzte As Integer
        Dim lngLetzte As Long
        Application.ScreenUpdating = False
        ActiveSheet.Copy after:=ActiveSheet
        With ActiveSheet
            lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            intLetzte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
            .Range(.Cells(1, 8), .Cells(lngLetzte, intLetzte)).Copy
            .Range("H1").PasteSpecial Paste:=xlValues
            For lngZeile = lngLetzte To 6 Step -1
                If .Cells(lngZeile, 2) <> "" Then
                    If Application.CountIf(.Range(.Cells(lngZeile, 8), .Cells(lngZeile, intLetzte)), "Pkt") = 0 _
                        And Application.CountIf(.Range(.Cells(lngZeile, 8), .Cells(lngZeile, intLetzte)), "Pmd") = 0 _
                        And Application.CountIf(.Range(.Cells(lngZeile, 8), .Cells(lngZeile, intLetzte)), "PrW") = 0 _
                        Then
                        .Rows(lngZeile).Delete
                    End If
                End If
            Next lngZeile
            For intSpalte = intLetzte To 8 Step -1
                If Application.CountIf(.Range(.Cells(6, intSpalte), .Cells(lngLetzte, intSpalte)), "Pkt") = 0 _
                    And Application.CountIf(.Range(.Cells(6, intSpalte), .Cells(lngLetzte, intSpalte)), "Pmd") = 0 _
                    And Application.CountIf(.Range(.Cells(6, intSpalte), .Cells(lngLetzte, intSpalte)), "Prw") = 0 _
                    Then
                    .Columns(intSpalte).Delete
                End If
            Next intSpalte
        End With
        Application.ScreenUpdating = True
    End Sub
    
    Beachte, dass der Tabellenkopf keine Formeln mehr enthält sondern diese in Werte umgewandelt werden weil andernfalls dort Bezugsfehler auftreten, da ja Spalten gelöscht werden müssen und die Formeln keinen Bezug auf vorhergehende Spalten mehr nehmen können.


    Tabellen zusamenkürzen GrußformelTabellen zusamenkürzen Beverly's Excel - Inn
     
    2 Person(en) gefällt das.
  3. suey
    suey User
    Danke Beverly. Ich bin allerdings erst am Donnerstag wieder an meinem Arbeitsrechner und kann es ausprobieren. Ich melde mich dann.
     
  4. suey
    suey User

    Tabellen zusamenkürzen

    Es klappt ! Der Code macht genau, was ich wollte.
    Ich freu mich :-)
    Vielen vielen Dank !!!
     
    1 Person gefällt das.
Thema:

Tabellen zusamenkürzen

Die Seite wird geladen...
  1. Tabellen zusamenkürzen - Similar Threads - Tabellen zusamenkürzen

  2. Zugriffsrechte für eine bestimmte Tabelle

    in Microsoft Access Hilfe
    Zugriffsrechte für eine bestimmte Tabelle: Hallo Ich würde gerne meine Datenbank so programmieren, sodass einer die Datenbank nur ausführen kann und nichts verändern kann, jedoch aber in einer bestimmten Spalte, bzw Tabellenfeld die...
  3. Pivot Tabelle sortiert Monate bei Jahreswechsel nicht richtig

    in Microsoft Excel Hilfe
    Pivot Tabelle sortiert Monate bei Jahreswechsel nicht richtig: Guten Abend! ich habe ein kleines Problem mit einer Pivot-Tabelle und hoffe, dass mir hier jemand helfen kann. In den Quelldaten für die Tabelle hat jeder Datensatz ein fortlaufendes Datum. In...
  4. vorhandene Tabelle sortieren

    in Microsoft Excel Hilfe
    vorhandene Tabelle sortieren: Hallo und guten Tag, ich habe ein Problem und finde meinen Denkfehler nicht :( Ich habe eine Adress-Liste mit Geburtsdaten, diese möchte ich gerne so sortiert haben, das dass erste...
  5. sVerweis Blattübergreifend verwenden

    in Microsoft Excel Hilfe
    sVerweis Blattübergreifend verwenden: Hallo Leute, ich habe eine Formel die wie folgt ausschaut: =SVERWEIS(Hersteller_Aus&Modell_Aus;WAHL({1.2};AMX!B2:B500&AMX!C2:C500;AMX!D2:D500);2;0) D.h.: Er sucht den Wert, welcher in der Zelle...
  6. Gekennzeichnete Spalten mit WENN-Bedingung in Makro nach 5 Tabellen kopieren

    in Microsoft Excel Hilfe
    Gekennzeichnete Spalten mit WENN-Bedingung in Makro nach 5 Tabellen kopieren: Hallo, Ich habe ein Makro, welches ich gerne ein wenig erweitern möchte, um mir bei der Weiterverarbeitung der Ergebnisse deutlich Zeit zu sparen. Da dies meine sehr rudimentären Makrokenntnisse...
  7. Bereich aus anderer Tabelle einfügen je nach Dropdown Wert

    in Microsoft Excel Hilfe
    Bereich aus anderer Tabelle einfügen je nach Dropdown Wert: Hallo zusammen, ich würde gerne ein einer Tabelle, in der sich ein Dropdown befindet einen Bereich aus einer anderen Tabelle einfügen, sagen wir A3 bis E8 wenn in dem Dropdown ein gewisser Wert...
  8. Der nächst höhere Wert, aus der Tabelle

    in Microsoft Excel Hilfe
    Der nächst höhere Wert, aus der Tabelle: Guten Tag zusammen, ich bin im Netz nicht so richitg fündig geworden, also versuche ich es direkt im Forum bei euch. Ich suche das richtige Formel um folgendes zu erreichen(siehe Foto): Ich...