Hallo,
ich habe eine Lohntabelle, wo es Personen gibt, die zwei verschiedene
ID’s haben und somit auch zweimal auftauchen.
Wie kann ich diese so gruppieren, das sich deren Lohn addiert und die
anderen Daten erhalten bleiben.
Hier mal ein PDF zur Vorschau:
www.itpc-online.de/vorschau.pdf
Vielen Dank im Voraus
Thomas
Hallo,
eine Pivottabelle macht sowas von Hause aus, wenn Du sie richtig aufbaust.
Da ich die pdf nicht in xl reinpressen kann, wäre ne Bsp.-Tabelle (file-upload.net) etwas besser!
VG René
eine Pivottabelle macht sowas von Hause aus, wenn Du sie
richtig aufbaust.Da ich die pdf nicht in xl reinpressen kann, wäre ne
Bsp.-Tabelle (file-upload.net) etwas besser!
Hallo René,
reinpressen geht schon:
http://www.file-upload.net/download-3646335/kwpdftes…
Somit hast du eine Beispieltabelle *grins*
Jetzt liegt es an dir an die Pivot-Tabelle die richtigen Kommandos zu geben damit sie das auch macht 
Gruß
Reinhard
Hallo René,
danke für deine schnelle Antwort, habe jetzt mal die Beispieltabelle
hier zum Download:
www.itpc-online.de/beispiel.xls
Wichtig wäre noch, das diese Tabelle durch einen Export aus einem anderen Programm entsteht und somit die Personen nicht immer an der gleichen Stelle sind. Die doppelten stehen aber definitiv immer untereinander.
Danke im Voraus
Thomas
Hallo Thomas,
hab das jetzt mal in die Pivot gepresst und getestet.
Leider wird es nicht so angezeigt, wie Du es gerne hättest.
Bin da wohl mit meinem Wissen an der Grenze 
Was soll außer der Optik wegen, eigentlich mit der Zusammenfassung erreicht werden?
Willst Du nur am Ende die Summen des Verdienstes oder was ganz anderes?
Kurz gefragt, was ist wichtig auf der Zusammenfassung (denn falls in beiden auch noch bei Vermerke was eingtragen wurde, wirds auch da etwas schwierig!
VG René
Hallo Reinhard,
wer hier mal bei der Forumsleitung anfragen, ob man Dich wegen „groben Unfuges“ abmahnen kann!)))
VG René
Hallo René,
die Ausgabe soll eine Lohnliste sein wo hauptsächlich die Gesamtsumme beim Lohn gezogen wird und die 5-stellige Personalnr. angezeigt wird.
Die doppelten Zeilen müssen unbedingt raus…
Hab keine Idee wie man da was hinbekommt, könntest du mir deinen Ansatz mal schicken? Vllt. kann ich dann mit VB bzw. Makros noch was machen?
Danke im Voraus
Thomas
[MOD] Abgeschlossen wegen OT… 
…
Grüezi Thomas
die Ausgabe soll eine Lohnliste sein wo hauptsächlich die
Gesamtsumme beim Lohn gezogen wird und die 5-stellige
Personalnr. angezeigt wird.
Die doppelten Zeilen müssen unbedingt raus…
Wenn Du damit leben kannst, dass die Reihenfolge der Spalten etwas anders ist, dann könnte man das in der Tat mit einer Pivot-Tabelle tun.
In deinem Beispiel werden die Arbeitstage der ‚Schönen Erika‘ nicht zusammengefasst, das sollte aber so der Fall sein, oder?
Hier ein aufbereitetes Beispiel deiner Daten:
http://users.quick-line.ch/ramel/Demo-Daten/tr_Pivot…
Mit freundlichen Grüssen
Thomas Ramel
die Ausgabe soll eine Lohnliste sein wo hauptsächlich die
Gesamtsumme beim Lohn gezogen wird und die 5-stellige
Personalnr. angezeigt wird.
Die doppelten Zeilen müssen unbedingt raus…
Hallo Thomas,
drücke Alt+F11, dann bist du im VB-Editor, Einfügen—Modul, nachfolgenden Code reinkopieren, Editor schließen.
In Excel dann Alt+F8 und das Makro Filtern ausführen lassen.
Anstatt Alt+F8 kannst du das Makro auch starten über eine Befehlsschaltfläche aus Symbolleiste Formular (Ansichten—Symbolleisten…).
Oder klassisch über Extras—makros–Makro—
Wenn du an den Code ranwillst, er steht anzunehmenderweis in „Modul1“.
Also Alt+F11. Links siehst du dein „Projekt“, erkennbar am Mappenname deiner Mappe.
darumnter ist so eine Baumstruktur im Explorer, d.h. wenn du „Modul1“ nicht siehst klickste halt auf die Pluszeichen usw.
Wenn du „Modul1“ siehst, darauf einen Doppelklick…
Gruß
Reinhard
Option Explicit
Sub Filtern()
Dim Formel1 As String, Formel2 As String, Zei As Long, wks1 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Formel1 = "=WENN(UND(B1=B2;C1=C2);D1+D2;WENN(UND(B2=B3;C2=C3);"""";D2))"
Formel2 = "=WENN(UND(B1=B2;C1=C2);E1+E2;E2)"
With Worksheets("Tabelle2")
.UsedRange.ClearContents
Zei = wks1.Cells(Rows.Count, 1).End(xlUp).Row
wks1.Range("A1:H" & Zei).Copy Destination:=.Cells(1, 1)
.Range("I2:I" & Zei).FormulaLocal = Formel2
.Range("J2:J" & Zei).FormulaLocal = Formel1
.Range("I2:I" & Zei).Value = .Range("I2:I" & Zei).Value
.Range("J2:J" & Zei).Value = .Range("J2:J" & Zei).Value
.Range("I2:I" & Zei).Copy Destination:=.Range("E2")
.Range("J2:J" & Zei).Copy Destination:=.Range("D2")
.Range("D2:smiley:" & Zei).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.Columns(9).Delete
.Columns(9).Delete
End With
End Sub
Danke an Alle!!!
habe den Vorschlag von Reinhard getestet und es klappt super,
muss nur noch ein paar kleine Anpassungen machen und dann paßt es
super in mein Projekt!!!
Bin begeistert!!!
Grüße, Thomas
habe den Vorschlag von Reinhard getestet und es klappt super,
muss nur noch ein paar kleine Anpassungen machen und dann paßt
es
super in mein Projekt!!!
Hallo Thomas,
danke dir für die Rückmeldung und schön daß es funktioniert.
Aber denke an die Zukunft.
Was ist wenn sich an deiner Tabelle, deren Aufbau/Struktur etwas ändert.
Da ist es egal ob du meine Vba-Lösung oder die PT-Lösung von Thomas gewählt hast.
In beiden Fällen hast du ein Problem wenn du die Lösungen anpassen willst.
Ergo, lerne Vba oder mit Pivottabellen umzugehen.
Und, soweit ich das aus der Antwort von Thomas ablesen kann mußte er wohl um zu einer Lösung zu kommen da wohl Spaltentitel also die Tabellenstruktur ändern.
Sowas kann er locker weil er Pivottabellen beherrscht.
Ein Pivottabellenanfänger scheitert daran.
Fazit, falls irgendwann mal was zu ändern ist und du das selbst tun willst was ja korrekt und sehr empfehlenswert ist, lerne Vba um zumindest meinen Code genau lesen zu können oder übe mit PTs bis du so fit wirst um zu verstehen warum da Thomas was am Aufbau ändern mußte.
Was ja im Umkehrschluß bedeutet, Thomas sah keine Möglichkeit zu einer PT-Lösung zu kommen bei der vorhandenen Tabellenstruktur.
Wenn das jmd. bzw. auch erkennt und eindeutig so sagen kann tja nun, der sehr viel bei PTs gelernt und ist kleiner Champ
Gruß
Reinhard
Grüezi Reinhard
Was ja im Umkehrschluß bedeutet, Thomas sah keine Möglichkeit
zu einer PT-Lösung zu kommen bei der vorhandenen
Tabellenstruktur.
Du hast mich da missverstanden und/oder meine Beispiel-Mappe nicht angesehen.
Verändert wird mit der Pivot-Tabelle nur die Reihenfolge der Ausgabe der Spalten, nicht aber die Datenquelle…
Mit freundlichen Grüssen
Thomas Ramel
Was ja im Umkehrschluß bedeutet, Thomas sah keine Möglichkeit
zu einer PT-Lösung zu kommen bei der vorhandenen
Tabellenstruktur.
Du hast mich da missverstanden und/oder meine Beispiel-Mappe
nicht angesehen.
Verändert wird mit der Pivot-Tabelle nur die Reihenfolge der
Ausgabe der Spalten, nicht aber die Datenquelle…
Grüezie Thomas,
natürlich hab ich mir deine mappe/tabelle angesehen.
Aber in dem Fall nur das, also anschauen und wieder schließen.
Denn Pt ist immer noch nichts was mich interessiert.
Bei anderen Dingen schaue ich dann doch bei dir genau hin denn entweder weiß ich was du da tust oder letztlich besser, grad bei Vba ich kann sogar was lernen.
Leider zeigst du sowenig Code *sniff* )
Und grundsätzlich, mich mal weglassend, ist es logischerweise für einen hiesigen Anfrager viel einfacher sich mit PT zu beschäftigen und dann genau prüfen warum du was ändern mußtest um das Ziel zu erreichen.
„einfacher“ ist falsch, eher Zukunftsoffener u.v.m. für ihn denn wenn er PT verstanden hat kann er ja was unheimlich wichtig ist da mal was selbst abändern.
Das ginge auch in Vba aber da ist der Lernaufwand im Vergleich dazu gewaltig größer.
Denn er will ja gar kein Vba lernen, er will eine bestimmte andere, gefilterte darstellung von Daten, da ist PT die Wahl der Wahl.
Mißverständnis sofern überhaupt vorhanden wieder weg?
Übrigens lieber Mod.
Im Excel-Brett betrieb jmd. MP
Lieben Gruß
Reinhard
Grüezi Reinhard
Du hast mich da missverstanden und/oder meine Beispiel-Mappe
nicht angesehen.natürlich hab ich mir deine mappe/tabelle angesehen.
Aber in dem Fall nur das, also anschauen und wieder schließen.
Denn Pt ist immer noch nichts was mich interessiert.
…schade, aber das kommt schon noch, davon bin ich überzeugt, denn:
„Steter Tropfen hölt den Stein“
Bei anderen Dingen schaue ich dann doch bei dir genau hin denn
entweder weiß ich was du da tust oder letztlich besser, grad
bei Vba ich kann sogar was lernen.
Leider zeigst du sowenig Code *sniff*
Oh, dem kann man abhelfen, mal sehen…
Mißverständnis sofern überhaupt vorhanden wieder weg?
Bei mir war da keines…
Übrigens lieber Mod.
Im Excel-Brett betrieb jmd. MP
…nicht mehr…
Mit freundlichen Grüssen
Thomas Ramel
Grüezie Thomas,
Denn Pt ist immer noch nichts was mich interessiert.
…schade, aber das kommt schon noch, davon bin ich überzeugt,
denn:
„Steter Tropfen hölt den Stein“
natürlich ist das gelegentlich so aber bei mir nicht. An meinem Hohlkopf wird nix mehr ausgehöhlt sonst regnet es rein
Leider zeigst du sowenig Code *sniff*
Oh, dem kann man abhelfen, mal sehen…
Sehr schön, anfangen könntest du damit:
http://www.wer-weiss-was.de/article/6561437
Also als Testaufgabe, Buttons in der Schnellzugriffsleiste erstellen und Symbol nach Wunsch zuweisen.
Sicher, hab glaub im Internet gelesen das geht mit Vba nicht. Aber was interessiert mich das, ich sehe das wie Toyota, nichts ist unmöglich.
Man müßte doch nur mit vba so einen Xml Code oder was das ist und dann in Excel2007 einpflanzen, zur Not durch Neustart von Excel.
Mißverständnis sofern überhaupt vorhanden wieder weg?
Bei mir war da keines…
dito, deshalb „sofern überhaupt“
Übrigens lieber Mod.
Im Excel-Brett betrieb jmd. MP…nicht mehr…
Ja, como siempre wurde das Doppelte entfernt wo ich dabei war, ich das reinste OT-Unschuldslamm
Wieder zurück zu Excel, dazu zwei Fragen:
Kannst du da in R aufs Gemeindeamt o.ä. gehen und dir anschauen was da einer aus der gegend so verteuert hat, also sein Eionkommen sehen?
(Kam mir in den Sinn weil ich mal sowas hörte und hier im Plauderbrett eine Beitragsfolge lief warum Deutsche nicht über ihr Einkommen reden)
Kann man in der Schweiz online ohne Angabe von Gründen nach einer schweizer Autonummer suchen und kriegt gesagt auf wen das Auto läuft, also name, Adresse? Am besten noch, ist sie verheiratet oder nicht, wie alt usw. *gg*
Gruß
Reinhard
Grüezi Reinhard
Denn Pt ist immer noch nichts was mich interessiert.
…schade, aber das kommt schon noch, davon bin ich überzeugt,
denn:
„Steter Tropfen hölt den Stein“natürlich ist das gelegentlich so aber bei mir nicht. An
meinem Hohlkopf wird nix mehr ausgehöhlt sonst regnet es rein-)
Der Vorgang ist bereits in Arbeit, du hast es bloss (noch) nicht bemerkt…
Leider zeigst du sowenig Code *sniff*
Oh, dem kann man abhelfen, mal sehen…
Sehr schön, anfangen könntest du damit:
http://www.wer-weiss-was.de/article/6561437
Also als Testaufgabe, Buttons in der Schnellzugriffsleiste
erstellen und Symbol nach Wunsch zuweisen.Sicher, hab glaub im Internet gelesen das geht mit Vba nicht.
Aber was interessiert mich das, ich sehe das wie Toyota,
nichts ist unmöglich.
Man müßte doch nur mit vba so einen Xml Code oder was das ist
und dann in Excel2007 einpflanzen, zur Not durch Neustart von
Excel.
Ach nö - sowas lässt sich in xl2007 nur durch die XML_Programmierung der Ribbons angehen.
Ab xl2010 kannst Du dann über die Oberfläche wieder eigene Ribbons zusammenbauen, da wird das dann wieder leichter.
Aber mit der XML-Programmierung der Ribbons habe ich mich nicht wirklich befasst, kann da also nix dazu beitragen.
Ja, como siempre wurde das Doppelte entfernt wo ich dabei war,
ich das reinste OT-Unschuldslamm
Ach Du Armer, hat es ausgerechnet dich wieder getroffen?
Aber wie ich gerade gelesen habe hast Du ja für mehr als adäquaten Ausgleich gesorgt…
Kannst du da in R aufs Gemeindeamt o.ä. gehen und dir
anschauen was da einer aus der gegend so verteuert hat, also
sein Eionkommen sehen?
Teilweise ist das machbar, aber eigentlich geht das nicht.
Es gibt Gemeinden welche die ‚schwarzen Schafe‘ an Steuer-Nicht-Zahlern öffentlich bekannt geben.
Kann man in der Schweiz online ohne Angabe von Gründen nach
einer schweizer Autonummer suchen und kriegt gesagt auf wen
das Auto läuft, also name, Adresse?
Ja, das gibt es hier in der Tat.
Am besten noch, ist sie verheiratet oder nicht, wie alt usw. *gg*
…das allerdings habe ich noch nie ausprobiert…
Mit freundlichen Grüssen
Thomas Ramel