Hallo Mike,
ich schaue mir die Daten aber auf der Bestellübersicht an und nicht in der Pivot-Tabelle. Die sollten in der Bestellübersicht doch auch korrekt sein oder wozu stehen die Zahlen dort?
Hallo zusammen,
der Filter sollte nicht in Spalte J sondern in Spalte P gesetzt werden, dann sollte es passen.
Zum Prüfen kann man eine Pivottabelle nutzen. Das habe ich mal in der anliegenden Datei gemacht.
Für die die Kurzübersicht habe ich dann einfach die Pivot kopiert und die Zeilen aufgefüllt.
[
attachment=1832]
Hallo Atilla :)
das mit der Pivottabelle war auch mal meine Idee und habe es auch schon versucht.
Doch ich kann dann in den Spaltendaneben zwar Bemerkungen eintragen, aber wenn sich die Pivottabelle ändert.
z. B ich wieder anders filtere, dann passen die Bemerkungen nicht mehr zu den passenden Bestellnummern und Lieferanten.
in meinem Beitrag #5 hier, habe ich ein Bild eingefügt mir Erklärungen, was ich vorhabe.
Ich brauche eine Kurzübersicht, wo der Lieferant nur 1mal angezeigt wird und jede Bestellnummer daneben, die noch nicht vollständig ist....es sollen die die ganzen Artikel angezeigt werden, nur das Bestelldatum.
In Spalte D und E möchte ich manuelle Einträge machen. Wenn dann eine Bestellnummer weg fällt, da sie vollständig erfüllt ist, würde diese aus der Liste verschwinden. Wenn diese Inder ersten Zeile z.B. stand und weg ist, sollen alle gemachten Einträge in Spalte D und E passend zur Bestellung nachrücken.
Das würde doch mit der Pivottabelle nicht gehen, oder?
Grüße Mike
Hallo Mike,
nein das würde nicht wirklich gehen.
Deshalb habe ich ja noch zusätzlich zu der Pivottabelle die "Bestell-Kurzübersicht" beibehalten.
In meiner Variante wird die halt nicht über den Filter eingelesen sondern aus der Pivot.
Das zurückschreiben dürfte nur funktionieren, wenn Du auch, wie in der Pivot, die Artikelnummern dazu nehmen würdest.
Hmmm...das du dir das Bild im Beitrag #5 von mir mal angesehen?
Das aussehen und was nur angezeigt werden soll, habe ich mit meiner Kollegin so abgesprochen.
Es soll eine Kurzübersicht zum ausdrucken oder als PDF speichern sein.
Diese Kurzübersicht wollen wir regelmäßig öffentlich aushängen, sodass andere Mitarbeiter schnell sehen können,
wie der Status zu welcher Bestellung gerade ist...damit wir nicht ständig danach gefragt werden. ;)
Die Artikel sollen nicht angezeigt werden, dadurch würde die Liste zu lang werden.
speziell nach den Artikeln soll dann bei uns nachgefragt werden.
Der Satus, zu einer Bestellnummer, kann sich von Tag zu Tag ändern zu den Bestellnummern.
Wie kann man das sonst noch lösen?
ich möchte die Liste nicht jeden Tag neu schreiben müssen, mit dem aktuellen Status zur der passenden Bestellnummer.
Grüße Mike
Hallo Atilla,
habe deine Pivot ein wenig ausprobiert.
Mit ein wenig filtern und die Spalte Artikel-Nr-Lieferant nicht mit anzeigen, dann zeigt er mir wie im Bild zu sehen, es so an, wie ich es eigentlich haben möchte.
[
attachment=1837][
attachment=1838]
Im Blatt Bestell-Kurzübersicht aber nicht genauso.
Habe in der Pivottabelle die Spaltenüberschriften, die ich eigentlich auch noch brauche, eingefügt.
So hätte ich das gerne zur Ansicht und die Möglichkeit in Spalte D und E meine eigenen Angaben machen zu können.
Aber dieses ist ja nicht möglich ... wird die Pivot aktualisiert ein zusätzlicher Lieferant dort gewählt, oder anders gefiltert, passen die Eingaben nicht mehr.
Wie gesagt, die Ansicht wie in der Pivottabelle, so brauche ich sie und eben auch die Spalten D und E.
Gibt es denn noch eine andere Lösung, wie ich das so verwenden kann, wie ich es brauche? :(
Grüße Mike
Hallo Mike,
ausgehend davon, dass in der Pivot die Daten ab Zeile 5 beginnen (wie in Deinem Bild) sollte es mit folgendem Code gehen:
Code:
Sub kurzübersicht()
Dim i As Long
Dim lngLetzte, lngLetzte1 As Long, lngLetzte2 As Long
If MsgBox("Alle Eingaben werden gelöscht und neue Daten werden eingelesen!" _
& vbLf & vbLf & "Möchten sie mit der Aktion fortfahren?", vbOKCancel, "HINWEIS") = vbOK Then
lngLetzte1 = Cells(Rows.Count, 2).End(xlUp).Row
lngLetzte2 = Cells(Rows.Count, 3).End(xlUp).Row
lngLetzte = Application.Max(2, lngLetzte1, lngLetzte2)
Range("A2:E" & lngLetzte).ClearContents
With Sheets("Kurzübersicht_Pivot")
lngLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
.PivotTables("PivotTable1").PivotCache.Refresh
.Range("A5:C" & lngLetzte).Copy Sheets("Bestell-Kurzübersicht").Range("A2")
End With
End If
End Sub
Hi Atilla,
vielen Dank für deine Hilfe.
Liege ich da richtig, wenn ich diesen Code hinter dem Blatt der Pivottabelle einfüge? :)
Gruß Mike
rHallo Mike,
Bin wieder unterwegs, deshalb nur kurz.
Hinter Blatt Kurzübersicht und einer Schaltfläche zuweisen.
Also nicht hinter dem Blatt der Pivottabelle, sondern dem Blatt "Bestell-Kurzübersicht"
Dort gibt es einen Button "Aktualisieren", diesem den Code zuweisen?
Gruß Mike