Daten aus mehreren Tabellen zusammenfassen und Rest löschen

[Frogger1986]

Du nimmst wenn du fertig bist die Formeln und ersetzt sie durch ihre werte, dann kannst du die Ursprungstabelle löschen(Bereich markieren, Kopieren, werte einfügen!

[GMG-CC]

(Bezug zu #10)
Nein, das ist schon wesentlich mehr, auch wenn es den Anschein hat, dass das, was du geschrieben hast, zielführend ist.
Hast du denn einmal euren Admin gefragt? Es gibt tatsächlich EDV-Verantwortliche, die das Interesse des Betriebes vor das eigene Wohlbefinden stellen.  Ich bin gerne bereit, ihm/ihr eine funktionierende Lösung als Beleg zu liefern. Alternative wäre dann noch VBA, womit manch ein Admin zu Recht Probleme hat.

[ExcelBoon]

Ok ich hab das jetzt mal probiert, und auch SUMMEWENN gegoogled, allerdings versteh ich meinen Output überhaupt nicht. ich habe insg. gut 3000 Firmen da. Ich kann doch nicht für jede Zeile eine neue Zelle mit Code füllen? Gibt's denn im Excel einen direkten Befehl dafür? Hab mal ein Beispiel drangehängt. Danke! @GMC: ich kann nicht gleich am ersten Tag zu meinem ITler gehen hier und wegen einer Fleißaufgabe meine Rechte erhöhen wollen :)

[Frogger1986]

Da jetzt endlich eine richtige beispieldatei da ist, wird auch ersichtlich was du wirklich möchtest..  Die Formeln lassen sich ziehen, wenn sie richtig eingegeben werden! Somit muss die Formel nur einmal eingegeben werden!

[GMG-CC]

1. Tag der Lehre/Ausbildung ...
Da habe ich für dein Argument vollstes Verständnis!
Im "Gegentum" zu demjenigen, der dir das aufgehalst hat. In der Psychiatrie nennt man so etwas "ruhig stellen" ... 

[Jockel]

Hallo, aber vielleicht kannst du ihm (dem ITLer) das Ergebnis zeigen - auf'm Bild vielleicht) Die Aufgabe ist wie für PQ gemacht. Schon mal danke für die Aufgabe... {kein Sarkasmus - es fehlt an Aufgaben zum Üben..}

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I
1	Kundennummer	Matchcode	Bemerkungen	Vertreter	PLZ	Jahr 2018	Jahr 2017	Jahr 2016	Jahr 2015
2	1	Gebäudereinigung				2.012,00	1.921,00
3	1	Gebäudereinigung				2.012,00		5.555,00
4	1	Gebäudereinigung				2.012,00			1.998,00
5	2	Leitungsbau GmbH				0,00			1.321,00
6	3	Landkreis				0,00	45.433,00
7	3	Landkreis				0,00		82.111,00
8	4	Moor GmbH				0,00	355,00
9	5	Institut				4.300,00	65.011,00
10	5	Institut				4.300,00		5.444,00
11	5	Institut				4.300,00			4.321,00
12	6	X AG				0,00		1.234,21
13	6	X AG				1.800,00			21.113,00
14
15	SOLL DANN SO AUSSEHEN
16	1	Gebäudereinigung				2.012,00	1.921,00	5.555,00	1.998,00
17	2	Leitungsbau GmbH				0,00	0	0	1.321,00
18	3	Landkreis				0,00	45.433,00	82.111,00	0,00
19	4	Moor GmbH				0,00	355,00	0	0,00
20	5	Institut				4.300,00	65.011,00	5.444,00	4.321,00
21	6	X AG				1.800,00	0,00	1.234,21	21.113,00
22
23
24	Kundennummer	Matchcode	Bemerkungen	Vertreter	PLZ	Jahr 2018	Jahr 2017	Jahr 2016	Jahr 2015
25	1	Gebäudereinigung				2.012,00 €	1.921,00 €	5.555,00 €	1.998,00 €
26	2	Leitungsbau GmbH							1.321,00 €
27	3	Landkreis						82.111,00 €
28	3	Landkreis					45.433,00 €
29	4	Moor GmbH					355,00 €
30	5	Institut				4.300,00 €	65.011,00 €	5.444,00 €	4.321,00 €
31	6	X AG				1.800,00 €		1.234,21 €	21.113,00 €

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[WillWissen]

Hi Jörg,

{kein Sarkasmus - es fehlt an Aufgaben zum Üben..}

taste mich auch so langsam in dieses Metier vor. Allerdings habe ich für dieses Problem den richtigen Ansatz nicht gefunden. Hilfst du mir bitte auf die Sprünge?

[Jockel]

Hallo Günter, guckst du..:

   

reicht das {für's Erste}?

[WillWissen]

Nee, Jörg,

leider nicht; hier ist "Schlauchstehen" angesagt. Wir müssen das jetzt aber nicht unbedingt in diesem Thread ausdiskutieren. Mit Sicherheit haben wir in Durach ein wenig Zeit, um hierüber zu reden.

[Frogger1986]

Da PQ nicht zur Verfügung steht habe ich hier eine VBA- Lösung.. die Datei muss vom Aufbau genauso aussehen wie die Datei im Anhang(oder besser du Kopierst das Original in diese)! 

Bitte führe den Code in einer Kopie aus um eventuellen Datenverlust zu vermeiden! 

Code:

Sub daten()
Last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Range("A:A")
        .NumberFormat = "General"
        .Value = .Value
End With
Application.ScreenUpdating = False
Sheets("Tabelle1").Range("A1:I1").Copy
Sheets("Tabelle1").Range("N1:V1").PasteSpecial
Sheets("Tabelle1").Range("J2").FormulaLocal = "=WENN(Z?HLENWENNS($B$2:$B2;$B2;F$2:F2;"">0"")=1;$A2;"""")"
Sheets("Tabelle1").Range("J2").AutoFill Destination:=Range("J2:J" & Last)
Sheets("Tabelle1").Range("J2").AutoFill Destination:=Range("J2:M" & Last)

For I = 2 To Last
        Last1 = ActiveSheet.Cells(Rows.Count, 14).End(xlUp).Row
        Set finden = Sheets("Tabelle1").Range("N:N").Find(Sheets("tabelle1").Cells(I, 1))
        If finden Is Nothing Then
          Sheets("Tabelle1").Cells(Last1 + 1, 14).Value = Sheets("Tabelle1").Cells(I, 1).Value
          Sheets("Tabelle1").Cells(Last1 + 1, 15).Value = Sheets("Tabelle1").Cells(I, 2).Value
          Sheets("Tabelle1").Cells(Last1 + 1, 16).Value = Sheets("Tabelle1").Cells(I, 3).Value
          Sheets("Tabelle1").Cells(Last1 + 1, 17).Value = Sheets("Tabelle1").Cells(I, 4).Value
          Sheets("Tabelle1").Cells(Last1 + 1, 18).Value = Sheets("Tabelle1").Cells(I, 5).Value
         
                    If I = 2 Then
                      Sheets("Tabelle1").Cells(Last1 + 1, 19).FormulaLocal = "=WENNFEHLER(INDEX($A$2:$I$" & Last & ";VERGLEICH($N2;J$2:J$" & Last & ";0);6);0)"
                      Sheets("Tabelle1").Cells(Last1 + 1, 20).FormulaLocal = "=WENNFEHLER(INDEX($A$2:$I$" & Last & ";VERGLEICH($N2;K$2:K$" & Last & ";0);7);0)"
                      Sheets("Tabelle1").Cells(Last1 + 1, 21).FormulaLocal = "=WENNFEHLER(INDEX($A$2:$I$" & Last & ";VERGLEICH($N2;L$2:L$" & Last & ";0);8);0)"
                      Sheets("Tabelle1").Cells(Last1 + 1, 22).FormulaLocal = "=WENNFEHLER(INDEX($A$2:$I$" & Last & ";VERGLEICH($N2;M$2:M$" & Last & ";0);9);0)"
                    Else
                      Sheets("Tabelle1").Range("S" & Last1 + 1 & ":V" & Last1 + 1).FillDown
                    End If
        End If
Next
Sheets("Tabelle1").Range("N2:V" & Last1 + 1).Copy
Sheets("Tabelle1").Range("N2:V" & Last1 + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Tabelle1").Range("A:M").Delete
Application.ScreenUpdating = True
End Sub