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!
(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.
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 :)
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!
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" ...
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 |
Hi Jörg,
Zitat:{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?
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.
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