Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Wissenslücke am November 27, 2017, 16:31:21 Nachmittag

Titel: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am November 27, 2017, 16:31:21 Nachmittag
Hallo Ihr schlauen Füchse,

ich habe ein Eingangsbuch für Pakete und andere Sendungen erstellt.
Nach meinen Möglichkeiten. Es ist nutzbar aber ich bin mir sicher, das geht wesentlich besser.
Wenn mir hier einer helfen kann, wäre ich sehr dankbar.
Ich kann die Datei leider nicht mit anfügen, die Datei ist zu groß bemängelt das System hier. Ich sende diese gerne per Email dass mal ein Spezialist, ggf. für VBA drüber sehen und helfen kann, wie das Projekt nutzerfreundlicher aufgebaut werden kann.

Schön wäre halt, wenn man z. B. in Spalte D eine Eingabe vornimmt, in Spalte B das Tagesdatum automatisch erscheint und dieses sich nicht verändert.

Die Formeln sind derzeit einfach bis in Zeile 15001 runterkopiert. Auch das geht mit VBA sicherlich vorteilhafter. Kann und mag hier jemand helfen? Gerne bin ich auch bereit mich erkenntlich zu zeigen wenn es erschwinglich ist.
Ich sage bereits jetzt schon mal Herzlichen Dank.

Freue mich auf eure Nachrichten.

Liebe Grüße, Peter



Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: gmg-cc am November 27, 2017, 16:43:00 Nachmittag
Moin Peter,

dass du Daten hochladen wolltest ist schon einmal sehr positiv.  8)
Als Ausweg bietet sich an, dass du A) wesentlich weniger Zeilen nimmst (20 Zeilen sollten meistens reichen), B) das File als *.xlsb abspeicherst (nicht so gerne gesehen, du solltest versichern, dass da kein VBA dabei ist)-und auch nicht als *.xls, die Files sind auch immer schön groß;  oder C) einfach als *.zip packen, dann ist das File meistens auch erheblich kleiner.
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am November 27, 2017, 16:48:08 Nachmittag
Servus Günther,

Besten Dank für deine NAchricht.
Hier mal eine komprimierte Version. Hoffe es klappt.
Muss mich jetzt gleich entschuldigen, habe einen Termin beim Physiotherapeuten. Dachte nicht dass so schnell Antwort kommt.
Melde mich schnellstmöglich zurück.

Danke, Peter
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: gmg-cc am November 27, 2017, 17:01:01 Nachmittag
Moin Peter,
da fällt mir nur ein: "Wer abrutscht, darf nochmal ..."
59 Byte (!) ist doch etwas zu wenig.  :o Das ist eine leere 7z-Datei.
Und noch ein Tipp: Nicht jeder Helfer ist auch it 7-Zip ausgestattet. Versuche einfach als *.zip zu packen, das kann jede (neuere) Windows-Version entpacken.
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am November 27, 2017, 19:55:16 Nachmittag
Guten Abend Günther und all die anderen frelissigen Helfer.
So, jetzt nochmal ein Versuch.

Wünsche jetzt scho mal einen guten Abend und eine schöne Nacht.

Peter
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am Dezember 01, 2017, 10:57:01 Vormittag
Liebe Excelianer,
kann hier denn keiner unterstützen das Projekt etwas vorteilhafter für die künftige Nutzung zu gestalten?

Ich denke mit einer VBA-Lösung kann einiges noch verbessert werden. Leide rkann ich nicht progammieren.
Ich danke im Vorfeld schon vielmals für die Unterstützung.

Beste Grüße, Peter
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: gmg-cc am Dezember 01, 2017, 11:11:00 Vormittag
Moin Peter,
füge in das Modul des Paketbuch18 diesen Code ein:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 4 Then
      If Not IsDate(Target.Offset(0, -2)) Then Target.Offset(0, -2) = Date
   End If
End Sub
Titel: Antw: Antw: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am Dezember 01, 2017, 11:35:20 Vormittag
Guten Morgen Günther,

Mensch, das funktioniert prima.
Vielen Dank. Das wäre schon Mal erledigt.

Wenn ich in den Stammdaten, die Liste erweitere, muss ich derzeit die Dropdownfelder aktualisieren.
Gibt es eine vorteilhaftere Möglichkeit dass die Dropdwons sich automatisch aktualisieren?

Beste Grüße, Peter


Zitat von: gmg-cc link=topic=52038.msg60562#msg60562 =1512123060
Moin Peter,
füge in das Modul des Paketbuch18 diesen Code ein:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 4 Then
      If Not IsDate(Target.Offset(0, -2)) Then Target.Offset(0, -2) = Date
   End If
End Sub
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: gmg-cc am Dezember 01, 2017, 11:51:40 Vormittag
Moin,
wo willst du welche DropDowns aktualisieren?
Titel: Antw: Antw: Paket-/Posteingangsbuch
Beitrag von: Wissenslücke am Dezember 01, 2017, 12:02:50 Nachmittag
Tabellenblatt Paketbuch18 Spalte C, E, I, J, K sofern neue Einträge dazukommen bzw. geändert oder storniert werden.

Moin,
wo willst du welche DropDowns aktualisieren?
Titel: Antw: Paket-/Posteingangsbuch
Beitrag von: gmg-cc am Dezember 01, 2017, 12:49:45 Nachmittag
OK, ich zeige es dir einmal am Beispiel der Spalte_C auf:
Jetzt werden alle Änderungen/Erweiterungen der Lieferart automatisch übernommen, weil du ja die Tabelle namentlich angesprochen hast. Und das ginge zwar auch per VBA, aber solange die Performance deines Rechners mitmacht ...  8)  Ach ja, ich würde auch aus Paketbuch18 eine Intelligente Tabelle machen ...