Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 20:24:42
Datum nach Tag Monat Jahr sortieren
29.04.2024 19:27:41
Farbvorkommen innerhalb einer Produktkategorie
29.04.2024 17:40:50
Formel Index mit Vergleich kombiniert mit Addition
29.04.2024 17:11:06
Exce-Diagramm Datenwerte sinnvoll kürzen ('tausender)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lagerverwaltung Userform

Lagerverwaltung Userform
07.12.2022 23:21:32
Lamm
Hallo liebe Excel-Gemeinde,
ich brauche eure Hilfe. Ich versuche eine Lagerverwaltungsdatei nach meinen Bedürfnissen zu erstellen.
Dazu habe ich unzählige Videos geschaut aber nicht alles klappt es bei mir wie auf dem Video.
Ich habe eine UserForm erstellt, womit ich die neue Produkte in die Datentabelle (Sheet Datenbank) anlege. Das funktioniert.
Ferner möchte ich die Produkte in der gleichen UserForm bearbeiten können. Ich möchte in das Feld "ArtikelNr" den ArtikelNr händisch eingeben oder den Code einscannen-> alle Artikeldaten aus der Tabelle erscheinen in UserForm -> ich kann die Daten bearbeiten.
2te Frage: Ich habe ein Makro erstellt: sobald ich das Makro aktiviere wird die markierte Zeile in der Datenbank ausgeschnitten und in die Tabelle "Eingabeformular" kopiert. Es wird immer in die Zeile 12 und 13 kopiert und mit weiteren Datensätzen überschrieben. Ich möchte aber, dass es untereinander eingefügt wird.

Sub ArtikelLoeschen()
'Abfrage, ob Artikel wirklich gelöscht werden soll
Dim Antwort
Antwort = MsgBox("Soll der Artikel wirklich gelöscht werden?", vbYesNo + vbQuestion, "Artikel löschen?")
If Antwort = vbYes Then ActiveCell.EntireRow.Copy Sheets("Eingabeformular").Range("12:12").End(xlUp).Offset(12).Value
If Antwort = vbYes Then ActiveCell.EntireRow.Delete
End Sub
3te Frage: ich möchte auch, dass das Datum in das letzte Feld eingefügt wird.
Kann mir bitte, bitte jemand helfen?
https://www.herber.de/bbs/user/156578.xlsm
LG Dieter

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

Betreff
Datum
Anwender
Anzeige
AW: Lagerverwaltung Userform
08.12.2022 08:05:36
MCO
Guten Morgen, Dieter!
Deine Makros zur Userform hab ich angepasst, sollte alles soweit laufen. Du wirst schon durchsteigen...
Was du noch ändern könntest: Die Kategorien hast du jetzt mit Checkboxen eingebracht, hier sind aber mehrere Optionen anzuklicken möglich. Und wie diese Aussage schon zeigt, eignen sich hier die OPTIONBUTTONS. Hier ist immer nur 1 aus der Gruppe der Knöpfe anzuwählen, und wenn einer in der UF vorgewählt ist, ist auch immer einer WAHR.
Die Knöpfe "erfassen" und "ändern" haben jetzt die gleiche Funktion: Es wird erst nach der Nummer gesucht, ggf überschrieben.
https://www.herber.de/bbs/user/156583.xlsm
Viel Erfolg, weiterhin
Gruß, MCO
Anzeige
AW: Lagerverwaltung Userform
08.12.2022 11:25:38
Dieter
Guten Morgen,
vielen Dank MCO für deine Hilfestellung.
Ich habe aber noch Fragen:
zu1: wenn ich richtig verstehe, brauche ich den Button "Ändern" nicht mehr, oder?
zu2: ich wollte, dass aus Tabellenblatt "Datenbank" die ausgewälte Zeile ausgeschnitten wird und in Tabellenblatt "Eingabeformular" untereinander ab Zeile 12 eingefügt wird.
zu3: ich möchte, dass mit dem Klick auf "Daten erfassen" im letzten Feld "Datum" auch das Datum und evtl. Uhrzeit (optional) eingefügt wird.
Könntest du mir/könnte mir jemand weiterhelfen?
Vielen Dank im Voraus.
LG Dieter
AW: Lagerverwaltung Userform
08.12.2022 12:24:40
MCO
Hallo Dieter!
Zu 1: richtig.
Zu 2: ausschneiden? Ich denke eher kopieren. Was auch immer, beide Zeilen hab ich eingebaut:

Sub Datenbankzeile_to_Formular()
Dim rng As Range
Dim acr As Single
Dim cpy_rng As Range, to_rng As Range
acr = ActiveCell.Row
Set cpy_rng = Range(Cells(acr, "B"), Cells(acr, "M"))
lz_B = Sheets("Eingabeformular").Cells(Rows.Count, "B").End(xlUp).Row
Set to_rng = Sheets("Eingabeformular").Cells(lz_B + 1, "B")
cpy_rng.Copy to_rng    'kopieren
cpy_rng.Cut to_rng    'ausschneiden
End Sub
Zu 3:
Ersetze

    Cells(last, 13).Value = TextBox_Datum    'Datum
durch 

    Cells(last, 13).Value = Now()
Damit kannst du dir das Feld "Datum" in der Userform natürlich auch sparen. Es wird immer der aktuelle Zeitpunkt verwendet. Das war aber in der ursprünglichen Anforderung nicht definiert.
Viele Erfolg!
Gruß, MCO
Anzeige
AW: Lagerverwaltung Userform
08.12.2022 13:28:08
Dieter
Hallo MCO,
du hast mir sehr geholfen, vielen, vielen Dank.
Kann ich in UserForm im Feld ArtikelNr den Code auch einscannen, oder muss da was hinzugefügt werden?
LG Dieter
Scannen
09.12.2022 08:16:39
MCO
Moin!
Ne, der Scanner liefert den fertigen Text bzw Zahlen.
In der Scannerkonfiguration kannst du noch bestimmen, ob der Abschluss des Scans mit/ ohne Tab/Enter erfolgen soll. Damit kannst du dann eine Eingabe im Formular sofort bestätigen. Das ist aber nicht Excel sondern Scannersache.
Gruß, MCO
AW: Scannen
09.12.2022 11:06:07
Dieter
Vielen Dank MCO,
für deine Hilfe. Ich habe etwas angepasst und es funktioniert perfekt.
Es soll eine Lagerverwaltungstabelle sein. Ich bin aber noch nicht schlüssig wie ich die Buchung vornehme wenn der Artikel verkauft ist.
Ich stelle mir eine UserForm mit Preis, Kunde, Datum vor, wo ich die Daten eingebe und in einem Tabellenblatt abspeichere und eine Rechnung ausstellen kann.
An der UserForm bastelle ich momentan. Könntest du mir auch da helfen?
https://www.herber.de/bbs/user/156617.xlsm
LG Dieter
Anzeige
AW: Scannen
09.12.2022 17:00:26
Piet
Hallo
warum der Umweg über eine UserForm? Man kann die Daten doch direkt in eine druckbare Rechnungs Tabelle schreiben.
Wenn man den Druckbereich festlegt, kann man ausserhalb des Druckbereichs DropDown oder Listenfelder mit Kunden Nr., Artikeldaten usw. anlegen, und durch simples anklicken diese Daten direkt in die zu erstellende Rechnung übernehmen. Ist das nicht einfacher?
mfg Piet
AW: Scannen
09.12.2022 21:32:09
Dieter
Hallo Piet,
daran habe ich nicht gedacht. Wenn du mir helfen könntest wie du es meinst, würde ich mal gerne anschauen.
Der Umweg über UserForm ist, um die Verkaufsdaten einzugeben. Aber vielleicht denke ich zu kompliziert.
LG Dieter
Anzeige
AW: Lagerverwaltung Userform
10.12.2022 15:22:04
Piet
Hallo
freut mich das du weitermachen willst. Habe heute aber keine Zeit, melde mich wieder.
mfg Ğiet
AW: Lagerverwaltung Userform
13.12.2022 21:59:43
Piet
Hallo
anbei deine Beispieldatei mit einem ersten Entwurf zurück. Ich habe eine UserForm für einen Lieferschein entwickelt. Der Vorteil ist, dass man beim Listenfeld 7 Spalten sehen kann, statt einer!
Schau bitte mal ob das deiner Vorstellung entsprich. Wie Lieferschein und Rechnung genau aussehen sollen musst du bitte selbst entwickeln. Ich konzentriere mich auf das Makro programmieren.
https://www.herber.de/bbs/user/156713.xls
Mich wundert ein bisschen das deine Tabellen mit Zeile 11 begnnen, statt mit Zeile 1. Hat das einen Grund?
Ich warte mal deine Rückmeldung ab. Korrigiere Rechnung und Lieferschein das sie so aussehen wie du sie verwenden willst. Zeilen und Spalten können sich dabei noch verschieben.
Hinweis: - mein Beispiel ist eine alte Excel 2003 Datei, weil ich zur Zeit nur einen alten XP Laptop zur Verfügung habe. Deshalb sind die Spalten zusammengerückt, mein .Bildschirm ist klein.
mfg Piet
Anzeige
AW: Lagerverwaltung Userform
16.12.2022 00:08:00
Dieter
Hallo Piet,
vielen, vielen Dank für deine Hilfe, aber ich bin durcheinander gekommen (nicht wegen dir sondern mangels meiner VBA-Kenntnise)
Ich habe versucht dein Code durchzublicken, aber mangels VBA-Kenntnise aufgegeben.
Ich habe nochmal die Tabellenspalten angepasst, was für mich relevant ist. Bitte nicht böse sein.
Meine Tabelle beginnt in Zeile 11 weil oben Logo und ein paar Buttons kommen.
Ich möchte in dem Tabellenblatt Datenbank (sollte vielleicht besser Lagerbestand heißen) meine Artikel mit UserForm auflisten, erfassen, suchen und ändern können.
Sobald ein Artikel verkauft ist, sollte jeweilige Zeile gelöscht werden und in in Tabellenblatt Eingabeformular( besser vielleicht Buchung heißen) nacheinander eingefügt werden. Dabei sollte ein UserForm aufgehen, wo ich die Verkaufsdaten eingeben kann. Beide UserForm habe ich erstellt und bei Formulare eingefügt.
Aus diesen Eingabeformular_Buchung nehme ich die Daten für die Rechnung und Umsätze für den Dashboard.
So ist meine Idee.
Piet, du hast schon einige Macros geschrieben, könntest du bitte noch die Macros anpassen?
Vielen Dank für deine Mühe.
https://www.herber.de/bbs/user/156764.xlsm
LG Dieter
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige