Kundenliste auswerten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

Für eine Auswertung dieser Art bietet Excel bietet Excel die Funktionalität der Pivottabelle.

Wenn Du Pivottabellen noch nicht kennst, empfehle ich, nach Übungsbeispielen und Lernvideos zu googeln und diese durchzugehen und aufzunehmen.

Eine weitere, vielleicht einfachere Möglichkeit besteht in der Nutzung meines kleinen VBA Programms sbMiniPivot, welches eine vereinfachte ähnliche Funktionalität anbietet. Es hat den Vorteil, dass es automatisch das Ergebnis neu berechnet, wenn Eingabedaten verändert werden. Echte Pivottabellen muss man manuell neu berechnen lassen (Refresh).

Mein Programm ist hier beschrieben: https://www.bplumhoff.de/sbminipivot_de/

Anbei eine (ohne jegliche Gewährleistung, aber ich verwende einen aktuellen Virenscanner) Beispieldatei: https://www.herber.de/bbs/user/163604.xlsm

Beachte bitte: Es werden nicht alle Kundenstammdaten mit Bestellungen vor oder gleich dem 31.12.2012 gezeigt, sondern jeweils nur die letzte (Max Datum).

Viele Grüße,
Bernd

Moin,

hier ist ein VBA Makro das diese Aufgabe erledigt:

Sub FilterLastOrders()

    Dim LastRow As Long

    Dim OriginalData As Worksheet

    Dim FilteredData As Worksheet



    ' Setze die Arbeitsblätter

    Set OriginalData = ThisWorkbook.Worksheets("Stammliste")

    Set FilteredData = ThisWorkbook.Worksheets.Add

    FilteredData.Name = "Auswertung"



    ' Kopiere Daten aus der Stammliste

    OriginalData.UsedRange.Copy Destination:=FilteredData.Cells(1, 1)



    ' Sortiere die Daten

    FilteredData.Sort.SortFields.Clear

    FilteredData.Sort.SortFields.Add2 Key:=Range("G2:G" & FilteredData.Cells(Rows.Count, 7).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With FilteredData.Sort

        .SetRange FilteredData.UsedRange

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With



    ' Filtere nach Datum

    FilteredData.UsedRange.AutoFilter Field:=7, Criteria1:="=12/31/2012"



    ' Kopiere sichtbare Zeilen in die neue Tabelle

    LastRow = FilteredData.Cells(Rows.Count, 1).End(xlUp).Row

    FilteredData.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=OriginalData.Cells(LastRow + 1, 1)



    ' Entferne den Autofilter

    FilteredData.AutoFilterMode = False

End Sub

Um dieses Makro auszuführen, gehe wie folgt vor:

1. Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

2. Füge ein neues Modul hinzu, indem du im Menü "Einfügen" -> "Modul" auswählst.

3. Kopiere den obigen Code und füge ihn in das neue Modul ein.

4. Schließe den VBA-Editor.

5. Drücke ALT + F8, um das Makro "FilterLastOrders" auszuführen.

Das Makro erstellt automatisch ein neues Arbeitsblatt namens "Auswertung" und kopiert die relevanten Daten aus der "Stammliste" unter Berücksichtigung der Kriterien (Bestelldatum vor dem 31.12.2012). Beachte, dass dieses Makro ein neues Arbeitsblatt erstellt und die vorhandenen Daten nicht überschreibt.

Bitte sichere deine Arbeitsmappe, bevor du das Makro ausführst, da es Änderungen an deiner Datei vornimmt.

Gruß

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kundenliste auswerten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread