Access-o-Mania

Office-Forum (Deutsch/German) => Microsoft Excel => Thema gestartet von: pitty2k am Februar 06, 2012, 11:49:17

Titel: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: pitty2k am Februar 06, 2012, 11:49:17
Hallo,

ich komme bei einem Problem nicht weiter und hoffe hier auf Hilfe.
Ich habe Tabelle 1 mit folgenden Spalten:

Datum (fortlaufend für ein Jahr)
Wochentag
Bestand
Abgänge
Zugänge

Nun wird es nicht jeden Tag einen Zugang geben, sondern vielleicht nur 2-mal in der Woche oder einmal im Monat oder so.

Ich möchte auf einem zweiten Tabellenblatt in einer Tabelle nur das Datum und die Zugänge ausgewiesen haben, an denen ein Warenzugang zu verzeichnen war.

Ist das möglich und wie kann ich das realisieren?

Gruß
pitty
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: oma am Februar 06, 2012, 12:20:50
Hallo pitty,

dein Tabellenaufbau ist falsch, du solltest folgenden Aufbau wählen:

tblBewegung: ID_B, (Primärschlüssel, Autoformat), DatumBewegung, Bewegung

Das Feld Datum umbenennen in DatumBewegung (Datum ist reserviertes Wort in Access); Bestand wird immer berechnet; im Feld Bewegung gibts du mit Vorzeichen Plus oder Minus einen Abgang oder einen Zugang ein; Wochentag wird aus Datumsfeld ermittelt.

Dein "Zweites Tabellenblatt"  ist dann eine Abfrage, in der du dir alle Datensätze ohne Datum einfach anzeigen lassen kannst! Mehr zu solchen Wareneingangs/ausgans -Problem kannst du auch hier im Forum mit einer Suche finden

Gruß Oma
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: Bernie110 am Februar 06, 2012, 12:24:36
Hi,

mach dir doch eine Abfrage zu dieser Tabelle.

Felder:

Datum
Zugänge

Unter zugänge gibst du dieses Kriterium ein : >0

Dann werden dir alle Zugänge angezeigt, die eben grösser als 0 sind
Gruss Bernie
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: pitty2k am Februar 06, 2012, 12:27:36
Oh...
:-[
Bei Access wäre es klar, aber ich lege die Tabelle ich Excel an.
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: oma am Februar 06, 2012, 12:33:41
Hallo,

ja und warum... Du kannst doch das Ganze (Eingänge, Bestände ermitteln usw.)  in Access realisieren. Oder willst du immer zwischen Excel und access hin- und her hüpfen?

Gruß Oma
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: Bernie110 am Februar 06, 2012, 12:47:22
Oh sorry, hatte übersehen, dass es sich um Excel handelt.
Dachte du machst es im Access. ( Oma hat recht. ist um einiges einfacher udn man hat mehr Möglichkeiten )

Ich würde es so machen. ( Also wenn du es unbedingt im Excel machen möchtest.
Leg dir ein weiteres Feld an.
ZB. Eingänge
In diesem Feld kopierst du dir die Formel:

Nehmen wir an Feld Zugänge = A5
=Wenn (A5 > 0;1;0)
und diese Formel kopierst du eben in jede Zeile.

Dann leg dir einen Autwofilter an.  So kannst du dir alle Spalten ansehen, die den Wert 1 haben.

Gruss Bernie
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: oma am Februar 06, 2012, 13:31:40
Hallo pitty,

sorry, alter Excel-Fan, da wir im Forum fast ausschließlich Access-Themen behandeln, hatte ich gar nicht bemerkt.

Gruß Oma
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: pitty2k am Februar 06, 2012, 14:24:16
kein Problem  :)
ich werde mal versuchen, das Ganze mit einer Pivot-Tabelle zu lösen.
Danke trotzdem für die Hilfen.
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: Pergus am Februar 09, 2012, 03:13:57
Hallo pitty2k,

habe Dir mal was zusammengestellt, schau mal ob's passt!
Habe ich mit Excel 2007 zusammengestellt und in's xls-Format zurückkonvertiert, da die Größe der Datei somit auf 306 kB gestiegen ist,
musste ich die 3 Tabellen trennen. Verbinde diese in eine Arbeitsmappe und probier' mal, ob alles einwandfrei funktioniert!

Sonst melde Dich einfach!

Gruß Gustav

P.S.: Notfalls schicke ich Dir die Datei direkt, wenn Du willst!

[Anhang gelöscht durch Administrator]
Titel: Re: Zugänge bei Lagerbeständen nach Datum übernehmen
Beitrag von: Pergus am Februar 09, 2012, 20:13:52
Hallo pitty2k,

vorab eine kurze Info: verwende die überarbeitete "Bewegungen-Tabelle1.xls", die ich Dir hier gepostet habe!!!

Zum Zusammenführen der drei Tabellen gehe wiefolgt vor:

1.)   Öffne als Erstes die "Bewegungen-Tabelle1.xls", gefolgt von der 2. und von der 3. Arbeitsmappe.
      Klicke bei der Sicherheitswarnung auf Optionen und "Diesen Inhalt aktivieren". Bestätige die Verknüpfungs-Meldung mit "weiter".
2.)   Klicke bei der 2. Arbeitsmappe auf den Tabellenreiter mit der rechten Maustaste und wähle "Verschieben/kopieren..." aus.
3.)   Wähle in der Maske die "Bewegungen-Tabelle1.xls", klicke auf "(ans Ende stellen)" und bestätige mit "OK".
4.)   Schließe die Arbeitsmappe "Bewegungen-Tabelle2.xls" ohne zu speichern und wiederhole die letzten 2 Schritt mit der 3.Tabelle.
5.)   Klicke auf "Zugänge", Zelle "E1" ohne die Maustaste loszulassen, bis sich die Form des Cursors ändert (in ein +).
6.)   Markiere Folgendes: =WENN('DeinLW:\DeinPfad\[Bewegungen.xls]Eingabe 2012'!F1<>"";HYP...
7.)   Kopiere (Strg+C) und öffne die Maske "Suchen und Ersetzen" (Strg+H) und füge den kopierten Text (Strg+V) in
      "Suchen nach:" ein.
8.)   Klicke in der Maske auf "Ersetzen durch:" und schließe sie zunächst (oben rechts auf x).
9.)   Klicke jetzt auf "Eingabe 2012", kopiere den markierten Text in "Ersetzen durch:" und klicke auf "Zugänge" und dann
      "Alle ersetzen".
10.) Klicke nun auf "Abgänge" und wiederum auf "Alle ersetzen", danach auf "Schließen".
11.) Ergänze in den Tabellen "Zugänge" und "Abgänge", Zelle E1, folgenden Text:
      ...HYPERLINK("#"&ADRESSE(1;6;;;"Eingabe 2012");...
12.) Lösche nun die "alten" Arbeitsmappen "Bewegungen-Tabelle2.xls" und "Bewegungen-Tabelle3.xls" und benenne die aktuelle
      "Bewegungen-Tabelle1.xls" um, so wie Du es brauchst.
13.) Drücke 'Alt' + 'F11' und mit einem Rechtsklick auf "Diese Arbeitsmappe" wählst Du "Einfügen" und "Modul".
14.) Kopiere in das "mittlere" Fenster folgende Code:

Option Explicit

Sub EinträgeLöschen()
Dim i As Integer

i = MsgBox("Durch ein Klick auf 'Ja' bestätigen Sie folgendes: " & vbLf & _
           vbLf & _
           "Die Einträge in den Spalten 'Abgänge' und 'Zugänge' " & vbLf & _
           "dieser Tabelle '" & ActiveSheet.Name & "' werden gelöscht!" & vbLf & _
           vbLf & _
           "Möchten Sie diese Einträge löschen?", vbYesNo + vbExclamation, "Einträge löschen")

If i = vbNo Then Exit Sub

ActiveSheet.Range("D2:E367").ClearContents
Range("D2").Activate
           
End Sub


Sub NeuesJahr()
Dim i As Integer

i = MsgBox("Um diese Arbeitsmappe auch für die nächsten Jahre verwenden zu können, " & vbLf & _
           "folgen hier die Tipps, wie man das anstellt! " & vbLf & _
           vbLf & _
           "1.) Kopiere diese Arbeitsmappe und speichere sie mit einem eindeutigen Namen. " & vbLf & _
           "2.) Ändere ausschließlich in der Zelle A2 das Datum in z.B. '1.1.13' und klicke dann Enter. " & vbLf & _
           "3.) Klicke auf das Button 'Alle Einträge löschen'. " & vbLf & _
           "4.) Korrigiere in den Tabellen 'Zugänge' und 'Abgänge', Zelle E1, die Jahreszahl in 'Eingabe 2012' " & vbLf & _
           vbLf & _
           "Fertig ist die 'neue' Arbeitsmappe!", vbOKOnly + vbInformation, "INFO bei Jahreswechsel!")
           
End Sub


15.) Speichere das Project mit Strg+S und schließe das Fenster mit ALt+Q!

FERTIG !!!

Zur Verwendung:

-  Klicke auf "Neue Eingabe" um in der aktuelle Datumszeile in den Spalten "Abgänge" und "Zugänge" die Einträge zu machen!
-  ==> Zur Übersicht: Zugänge   öffnet die Tabelle "Zugänge"
-  ==> Zur Übersicht: Abgänge   öffnet die Tabelle "Abgänge"
-  Button "Alle Einträge löschen" löscht ausschließlich die händisch eingegebenen Einträge in den Spalten
   "Abgänge" und "Zugänge".
-  "Hier klicken zur Kontrolle der Öffnungszeiten!" bewegt den Cursor zu, die sich selbstverständlich ändern lassen
   (offen-geschlossen)!
-  "==> Zum 1. des Monats...:" gestattet die Eingabe einer Ganzzahl zwischen 1 und 31,
   das durch Klick auf die darunter aufgelisteten Monate den Cursor zum jeweiligen Datum bewegt!
   (Achtung, die Eingabe von z.B. 31 und ein Klick auf Februar bewegt den Cursor zum 3. bzw. bei einem Schaltjahr zum 2. März)
-   Button "Info - Jahreswechsel" erläutert die Vorgehensweise dafür!

Würde mich über ein kurzes Feedback freuen!

Gruß
Gustav

[Anhang gelöscht durch Administrator]