Werte in andere Tabelle kopieren und sortieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim WS1 As Worksheet, WS2 As Worksheet Dim iZeile As Long, sh As Shape Set WS1 = ActiveSheet Set WS2 = Worksheets("Arbeitsvorrat") With WS1 For iZeile = .Cells(Rows.Count, 23).End(xlUp).Row To 8 Step -1 If .Cells(iZeile, 23) Then .Rows(iZeile).Copy WS2.Rows(WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1) For Each sh In .Shapes If sh.TopLeftCell.Row = iZeile Then sh.Delete Next sh .Rows(iZeile).Delete End If Next iZeile End With End Sub

Sub Makro1() Dim WS1 As Worksheet, WS2 As Worksheet Dim iZeile As Long, sh As Shape Set WS2 = Worksheets("Arbeitsvorrat") For Each WS1 In ThisWorkbook.Worksheets If WS1.Name WS2.Name Then With WS1 For iZeile = .Cells(Rows.Count, 23).End(xlUp).Row To 8 Step -1 If .Cells(iZeile, 23) Then .Rows(iZeile).Copy WS2.Rows(WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1) ' For Each sh In .Shapes ' If sh.TopLeftCell.Row = iZeile Then sh.Delete ' Next sh ' .Rows(iZeile).Delete End If Next iZeile End With End If Next WS1 End Sub

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

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

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle kopieren und sortieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in andere Tabelle kopieren und sortieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread