Excel Bestand

Hallo Leute,
ich habe ein Problem.
ich würde gerne eine Exceltabelle erstellen wie in meiner Beispieldatei.
nun habe ich aber keine Ahnung von VBA und nur mit Excelformeln geht es leider nicht.
könnt ihr mir dabei helfen.
Funktionsbeschreibung:
Jeden Artikel den ich der Tabelle 2 einfüge kann man dann automatisch im "WAS" in der Tabelle 1 auswählen.
in der Spalte (B)"Datum" soll immer das Aktuelle Datum stehen.
In der Spalte (C) "Wareneingang Warenausgang" soll man immer nur auszuwählen sein ob Wareneingang oder ausgang.
In Spalte (D)"Wer" soll immer der Angemeldete Username stehen.
Ich öffne die Datei und klicke auf Warenein oder ausgang nun trägt excel automatisch das Datum in die Zeile und mein usernamen.
Jetzt wähle ich aus was den raus oder reingegangen ist und wieviel.
dementsprechend rechnet er "+" oder "-" bei dem Bestand des ausgewählten Artikels.
danach speicher ich ab
auf die Vorranggegangenden Zeilen kann man nur Als Admin zugreifen.
ich hoffe es geht und macht euch nicht zu viele Umstände
Beispieldatei:
https://www.herber.de/bbs/user/96625.xlsx

Hallo Matze,
deine Wünschte kann man alle umsetzen.
1. Zeit statt Datum
In Zelle B1 die Formel ändern in =JETZT() und das Format in Spalte B ändern in ein benutzserdefiniertes Format so dass Datum und Zeit angezeigt werden. z.B. TT.MM.JJ hh:mm
2. Klarname statt Username/Userkennung
Das ist etwas komplizierter.
2.1 Blatt "AWL"
- in Spalte C die User-Kennungen eintragen, in Spalte D zu zugehörigen Namen.
2.2 Blatt "Warenein- oder ausgang"
2.2.1 Zelle A1
- den Zell-Schutz deaktivieren - in A1 wird vom Makro die Userkennung eingetragen
2.2.2 Zelle D1
- folgende Formel eintragen: =SVERWEIS(A1;AWL!$C:$D;2;FALSCH)
- den Zell-Schutz aktivieren - Formel soll gegen Änderungen geschützt sein
2.3 Makros anpassen
Ersetze im VBA-Editor den Code unter der Tablle "Warenein- oder ausgang" durch den nachfolgenden.
Das Makro prüft, ob der angemeldete User in der Liste steht, und läßt ggf. keine Buchung zu.
Gruß
Franz

Option Explicit
Private Const pw As String = "" 'Password für Blattschutz hier anpassen _
bevor eine Buchung getätigt wird
Private Sub CommandButton1_Click()
'Buchen-Button
Dim Zeile_L As Long, ZelleWas As Range
Dim bolWE As Boolean, varWas As Variant, dblWieviel As Double
With Me
.Range("A1").Value = VBA.Environ("Username")
.Calculate
'Eingabewerte prüfen
If fncUserCheck(rngZelle:=Me.Cells(1, 4)) = False Then
Exit Sub
ElseIf .ComboBox2.ListIndex = -1 Then
MsgBox "Bitte in der Combobox Wareneingang oder Warenausgang wählen", _
vbOKOnly, "Prüfung Eingabewerte - WE/WA"
Exit Sub
ElseIf .ComboBox1.ListIndex = -1 Then
MsgBox "Bitte in der Combobox ein Material wählen", _
vbOKOnly, "Prüfung Eingabewerte - Material"
Exit Sub
ElseIf IsEmpty(.Cells(1, 6)) Or .Cells(1, 6)

Forumthread: Excel Bestand

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Excel Bestandsliste für Wareneingang und Warenausgang erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)