Lagerbestand

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
zu 1.:
Hab ich so gemacht, allerdings nicht für die Datums-Textbox; im ersten posting hattest Du geschrieben, dass das aktuelle Datum oder ein anderes eingetragen werden soll, deshalb steht jetzt als default-Wert immer das aktuelle in der TextBox. Wenn Du die auch lieber leer hättest, dann kannst Du das im Code leicht selbst ändern:
Geh ins Modul der Tabelle, ins Click-Ereignis des CommandButton und ändere in der per Pfeil markierten Zeile das Date auf "".
zu 2.:
Nachdem es sich nicht um ein UserForm handelt sondern um eine Tabelle, nicht ohne Umweg, weil Steuerelemente für Tabellen keinen TabStop-Index haben. Man muss also für jedes Steuerelement festlegen, was passiert, wenn der Tabulator gedrückt wird, in diesem Fall also, welches Element als nächstes bzw als vorheriges (Tab+Shift) dran ist. Ich hab das schon umgesetzt, ich schreib das hier nur, damit Du verstehst, was in den KeyDown-Ereignissen passiert.
zu 3.:
Da hatte ich noch nen kleinen Fehler drin, aber jetzt isses so wie Du schreibst. Die Abgänge werden in der Übersicht direkt aus der TextBox draufaddiert, ohne Umweg über die Summe auf dem Buch-Blatt. Wenn Du die also sonst für nix brauchst, kannst Du die Zeile auch löschen.
zu 4.:
Wie gesagt, is kein UserForm sondern ne Tabelle mit Steuerelementen.
Geh mal im VBA-Editor auf "Ausführen" und dann auf "Entwurfsmodus". Jetzt kannst Du in der Tabelle die Steuerlemente beliebig verschieben.
So, und zur fertigen Datei geht's hier:
https://www.herber.de/bbs/user/39380.xls
Schönen Gruß,
Andi

Hi,
also die einfachste Möglichkeit wäre, dass Du sowas mit einer erneuten Eingabe korrigierst; bei den Abgängen können auch negative Werte eingegeben werden, das wird dann auf den Bestand einfach draufgerechnet. Statt einer Rechnungsnummer könntest Du zB 'Korrektur' eingeben oder so.
Die nächste Möglichkeit wäre, dass man die Spalte G in der Übersicht eben doch per Verknüpfung über die Summenzeilen der Buch-Blätter ausfüllt. Dann müsstest Du im Modul1 in der Eintragen-Routine folgendes löschen:
With Sheets("Übersicht")
For zeile = 8 To .Range("A65536").End(xlUp).Row 'Schleife durchsucht die Übersicht nach der richtigen Zeile für das entsprechende Buch; Find-Methode geht hier nicht wegen verbundenen Zellen
If .Range("A" & zeile) = Sheets("Eingabemaske").ComboBox1.Value Then
.Range("G" & zeile) = .Range("G" & zeile) + Sheets("Eingabemaske").TextBox3.Value 'Abgänge werden in Spalte G draufaddiert
Exit For
End If
Next zeile
End With
Sicherlich gäbe es auch die Möglichkeit komplett per Makro mit dem Workbook_SheetChange-Ereignis die manuellen Änderungen abzufragen und entsprechend zu bearbeiten. Dies stellt aber nur einen Mehr-Aufwand gegenüber der zweiten Lösung dar, keinen Mehr-Wert.
Was mir noch aufgefallen ist:
In der ComboBox taucht auch das Übersichtsblatt auf; um das zu vermeiden, müsstest Du noch im Modul 'DieseArbeitsmappe' im Open-Ereignis die Schleife so ändern:
For a = 1 To Sheets.Count 'Schelife, die alle sheets außer der Eingabemaske und der Übersicht in die Combobox schreibt
If Sheets(a).Name "Eingabemaske" And Sheets(a).Name "Übersicht" Then Worksheets("Eingabemaske").ComboBox1.AddItem Sheets(a).Name
Next a
Schönen Gruß,
Andi

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Lagerbestand

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread