Office: Auswertung Kunden - Vertragsliste

Hallo,

ich stehe gerade vor der Problematik, dass ich eine Kunden-Vertragsliste habe und diese Auswerten möchte. Hab gehofft die gewünschten Daten über Pivot zu erhalten, aber das klappt nicht so, wie ich mir das wünschen würde. Also dachte ich mir, dass das vielleicht mit nem Macro ganz gut klappen könnte.

ich habe folgende Situation. Aus einem Kundenverwaltungsprogramm generiere ich eine Excel-Tabelle. Die Kunden können mehrfach auftreten, da die Tabelle auf Basis der Kundenverträge erstellt wird.

hier ein kurzes Beispiel (Beispieldatei ist angehängt):

Code:

KdNr	Anrede	Name		Vorname	Geburtsdatum	Kinderanzahl	RefNr.	Produkt-Sparte	Produkt-Art		Tarif
102	Herr	Mustermann	Max	04.12.1956	1		3046	Kraftfahrzeug	Kraftfahrzeug		KFZ
102	Herr	Mustermann	Max	04.12.1956	1		7328	Kraftfahrzeug	Kraftfahrzeug		KFZ
102	Herr	Mustermann	Max	04.12.1956	1		7713	Hausrat	Hausrat	Hausrat
102	Herr	Mustermann	Max	04.12.1956	1		2850	Rechtsschutz	Rechtsschutz		Rechtsschutz
102	Herr	Mustermann	Max	04.12.1956	1		10692	Haftpflicht	Betriebshaftpflicht	BHV (PHV TierHV)
102	Herr	Mustermann	Max	04.12.1956	1		3042	Kraftfahrzeug	Kraftfahrzeug		KFZ
102	Herr	Mustermann	Max	04.12.1956	1		3045	Kraftfahrzeug	Kraftfahrzeug		KFZ
247	Frau	Musterfrau	Linda	12.05.1981	2		10863	Haftpflicht	Privathaftpflicht	Allgemeine Haftpflichtversicherung
247	Frau	Musterfrau	Linda	12.05.1981	2		29433	Unfall		Unfall	Allgemeine 	Unfall
247	Frau	Musterfrau	Linda	12.05.1981	2		15951	Leben		Leben / Rente / BU	Kapitalbildende Lebensversicherung
247	Frau	Musterfrau	Linda	12.05.1981	2		15950	Leben		Leben / Rente / BU	Kapitalbildende Lebensversicherung
247	Frau	Musterfrau	Linda	12.05.1981	2		27271	Leben		Leben	
247	Frau	Musterfrau	Linda	12.05.1981	2		28191	Kranken		Zusatzversicherung	Krankenzusatzversicherung

Mein Ziel ist es nun, einen eigenen Filter zu erstellen. Ich habe mir das so vorgestellt, dass auf einem anderen Datenblatt mittels Buttons verschiedene Macros gestartet werden können. So zum Beispiel ein Macro, das mir alle Kunden ausgeben soll, die keinen Vertrag in der Sparte "Leben" haben. In der erzeugten Liste sollen die Kunden natürlich nur 1x vorkommen und auch nur die ersten 7 Spalten.

Als Identifizierungsmerkmal kann die Kundennummer genutzt werden, da diese einmalig ist. Ich hätte mir das so vorgestellt, dass das Macro das ganze Datenblatt durchläuft und dann für jede gefundene Kundennummer zählt, wie oft beispielsweise die Sparte "Leben" vorkommt. Ist das Ergebnis 0 wird der Kunde ausgegeben. (Das Macro könnte man natürlich noch beliebig erweitern, aber für den Anfang würde mir das schon reichen)

Das Problem ist, dass ich mit scripten in Office nicht so sehr vertraut bin. Wenn mir jemand also helfen könnte ein erstes Script zu schreiben, dann könnte ich daraus sicher alle weiteren Scripte erstellen, die ich benötige.


Officeversion: 2007
Beispieldatei:
Den Anhang Kundenvertragsauswertung.xlsm betrachten

 

Hi,

vielleicht nach diesem Prinzip:

Code:

Sub Filtern()
   Dim lngZeile As Long
   Dim lngStart As Long
   Dim lngZielZeile As Long
   With Worksheets("Daten")
      lngStart = 2
      For lngZeile = 2 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
         If .Cells(lngZeile, 1) <> .Cells(lngZeile + 1, 1) Then
            lngZielZeile = IIf(IsEmpty(ActiveSheet.Cells(ActiveSheet.Rows.Count, 1)), ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row, ActiveSheet.Rows.Count) + 1
            If Application.CountIf(.Range(.Cells(lngStart, 9), .Cells(lngZeile, 9)), "Leben") = 0 Then
               ActiveSheet.Cells(lngZielZeile, 1) = .Cells(lngZeile, 1)
               ActiveSheet.Cells(lngZielZeile, 2) = .Cells(lngZeile, 3)
               ActiveSheet.Cells(lngZielZeile, 3) = .Cells(lngZeile, 4)
               ActiveSheet.Cells(lngZielZeile, 4) = .Cells(lngZeile, 5)
            End If
            lngStart = lngZeile
         End If
      Next lngZeile
   End With
End Sub

Bis später,
Karin

 

Hallo Karin,

danke für den Einstieg :) Ich denke damit sollte ich weiter kommen.

Grüße