Werte in andere Tabelle kopieren und sortieren

Claudio · 2017-05-02T09:19:31+00:00

Hallo zusammen, in einer Datei "Eingang Offerten 2017" habe ich für jeden Monat ein Blatt sowie ein Blatt "Arbeitsvorrat" angelegt. In den Blättern ist jeweils eine Tabelle mit den Spalten Offerte/Abgebot/Auftrag/Absage/Preis. Jede Zelle der Spalten Offerte/Abgebot/Auftrag/Absage hat ein Steuerelement (Kästchen zum anklicken). Durch die Aktivierung der jeweiligen Steuerelemente wird die Hintergrundfarbe der ganzen Zeile farbig (Durch Anklicken des Steuerelements "Auftrag" wird dann die Hintergrundfarbe der ganze Zeile durch eine bedingte Formatierung grün. Problemstellung: Wenn eine Zeile durch die Aktivierung der bedingten Formatierung grün wird, soll der Wert "Preis" in der letzten Spalte in das Blatt "Arbeitsvorrat" fortlaufend kopiert werden und dies eben von allen 12 Blättern (jeder Monat). Ich möchte also in dem Blatt "Arbeitsvorrat" eine fortlaufende Liste erstellen, in welche die Werte der einzelnen Aufträge aller Monate aufgelistet sind. Hat jemand eine Lösung dafür ? VIIIELEN DANK im voraus !! Claudio

Hi Claudio
Jetzt kommen wir der Sache näher (Code mache ich morgen). Aber ein paar Fragen hätte ich noch.
- Ausser Preis/Summe steht jetzt überall "Wird von Hand ausgefüllt", dann bleibt nicht mehr viel zum Übertragen ;) Ist es richtig, dass du Datum Eingabe, Kunde, Architekt, Arbeit, Preis übertragen lassen willst?
Spalte B = B, D:F = D:F, U = L
Summenformel in Q
1 Mitarbeiter verkauft 1 Auftrag oder gibt es manchmal auch mehrere Verkäufer für einen Auftrag?
Könnte man für die Mitarbeiter-Kennzeichnung und den Auftragsstatus auch einfach eine Dropdown-Auswahl machen? (Solche CheckBox-Haufen sind etwas umständlich zum Erstellen, im Auswerten und verschieben sich gerne beim Filtern oder Kopieren. Zudem ungünstig in der Wartung z.B. bei Aus- oder Neueintritt.)
Noch ein paar Anregungen zum Aufbau generell. Das Hauptproblem besteht darin, dass du (so wie ich verstehe) manuelle Eingaben auf den Monatsblättern und gleichzeitig auf der Zusammenfassung (Arbeitsvorrat) machst.
Ganz einfach geht eine Aktualisierung, wenn man den Inhalt löscht und die ganze Tabelle neu aufbaut. Wenn jetzt aber die Zusammenfassung manuell bearbeitet wird, kann man nicht löschen/überschreiben. Man muss also prüfen, ob ein Datensatz bereits vorhanden ist und nur bei Nichtvorhandensein neu erstellen. Da auf den Monatsblättern keine eindeutige Auftragsnummer vorhanden ist, ginge dies nur aus einer Kombination von Kundenname und Preis (evtl. noch ein zusätzlicher Quer-Check über die Anzahl). Ohne Primärschlüssel (z.B. eindeutige Auftragsnummer) wird der Abgleich ziemlich unsicher (Beispiel: gleicher Kunde hat mehrere Aufträge mit identischem Preis).
Eigentlich würde ich den Prozess/Aufbau generell überdenken und zwar würde ich unbedingt die Monatsblätter durch Jahresblätter ersetzen (Verwaltung in einer grossen Tabelle). Das "zerstreuen" von Daten ist technisch mühsam und du musst für die kleinste Auswertung in die Trickkiste greifen.
Willst du z.B. mal wissen, wie hoch das Volumen der nicht erhaltenen Aufträge ist, stehst du bereits wieder an. Die zentrale Datenverwaltung hat weitere Vorteile z.B. Suche nach einem bestimmten Kunden, Filtern und Auswerten. Auswerten kannst auch nach Monat (z.B. Pivot-Tabelle oder SUMMEWENNS() Formel). Bezüglich Benutzerfreundlichkeit kann man vieles Tun z.B. Standard-Filter definieren und mit TEILERGEBNIS kombinieren. Oder mit etwas VBA ein automatischer Datumseintrag, Auftragsnummer generieren, User-Erkennung...
Rein Datentechnisch zwar ungünstig, aber m.E. OK, ist der Übertrag von erhaltenen Aufträgen ins nächste Blatt. Aber du brauchst da eine klare Trennung. Entweder verschiebst du den Datensatz (die Zeile) komplett oder die automatisch übertragenen Spalten im Arbeitsvorrat sind zur Bearbeitung gesperrt.
cu
Chris

Hi Claudio
https://www.herber.de/bbs/user/113269.xlsm

Private Sub Worksheet_Activate()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, letzteZeile As Long
Set WS2 = Worksheets("Arbeitsvorrat")
For Each WS1 In ThisWorkbook.Worksheets
If WS1.Name  WS2.Name And WS1.Name  "Hilfsblatt" Then
For iZeile = 8 To WS1.Cells(Rows.Count, 4).End(xlUp).Row
If WS1.Cells(iZeile, 13) = "Auftrag" And _
WorksheetFunction.CountIfs(WS2.Columns(4), WS1.Cells(iZeile, 4), _
WS2.Columns(8), WS1.Cells(iZeile, 14)) = 0 Then
letzteZeile = WS2.Cells(Rows.Count, 4).End(xlUp).Row + 1
WS2.Cells(letzteZeile, 2) = WS1.Cells(iZeile, 2).Value
WS2.Range(WS2.Cells(letzteZeile, 4), WS2.Cells(letzteZeile, 6)) = _
WS1.Range(WS1.Cells(iZeile, 4), WS1.Cells(iZeile, 6)).Value
WS2.Cells(letzteZeile, 7) = WS1.Cells(iZeile, 11).Value
WS2.Cells(letzteZeile, 8) = WS1.Cells(iZeile, 14).Value
WS2.Cells(letzteZeile, 13).Formula = "=SUM(I" & letzteZeile & ":L" &  _
letzteZeile & ")"
End If
Next iZeile
End If
Next WS1
End Sub

Das Blatt Arbeitsvorrat aktualisiert sich bei Aktivierung automatisch. Es werden jedoch nur neue Daten hinzugefügt und nicht gelöscht d.h. wenn du den Auftragsstatus von Auftrag auf Absage änderst, dann müsstest du den Datensatz manuell löschen.
Unberücksichtigt sind allfällige Duplikate (identische Aufträge).
cu
Chris

Werte in andere Tabelle kopieren und sortieren

Forumthread: Werte in andere Tabelle kopieren und sortieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial