Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
09.05.2024 08:18:18
Feldformatierung (Einzahl/Mehrzahl) ohne VBA
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestandübersicht mit Ein ung Ausgang

Bestandübersicht mit Ein ung Ausgang
03.01.2021 17:36:16
1nFected_f0x
Hallo zusammen,
ich komm mit Excel an sich ganz gut klar nur von VBA hab ich (noch) keine Ahnung.
Mit diesem kleinen Projekt möchte ich das ändern.
Ich habe vor meine Legosteine zu inventarisieren.
sobald ein nues Teil in die Maske eingetragen wird und eingelagert wird, soll das Teil in der Bestandübersicht nummerisch geordnet einsortiert werden.
Sollte ein Teil in der selben Farbe bereits vorhanden sein, so soll nur die anzahl addiert bzw. subtrahiert werden.
Über die Suchfunktion soll mit Farbe und anzahl des gesuchten Teils ausgegeben werden.
Die Datei im anhang ist der grobe Entwurf.
Ich habe nich keine Ahnung wie man an ein solches Projekt herantritt. vielleicht kann mir jemand Starthilfe geben :)
Danke und liebe Grüße

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kein Anhang oT
03.01.2021 17:38:08
Hajo_Zi

AW: Bestandübersicht mit Ein ung Ausgang
03.01.2021 17:57:50
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
es war kein Beispiel für Eingabe eingetragen, da Du dies selbst in den Code einarbeiten wolltest.
Viel Erfolg.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LoLetzte As Long
Dim RaFound As Range
If Target.Column = 1 And Target  "" Then
With Worksheets("Bestandübersicht")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set RaFound = .Columns(2).Find(Target, .Range("B1"), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
' gefunden
.Cells(RaFound.Row, 3) = .Cells(RaFound.Row, 3) + 1
Else
.Cells(LoLetzte, 1) = Target
.Cells(LoLetzte, 3) = 1
End If
End With
End If
End Sub
Gruß Hajo
Anzeige
Fehler
03.01.2021 18:01:18
Hajo_Zi 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LoLetzte As Long
Dim RaFound As Range
If Target.Column = 1 And Target  "" Then
With Worksheets("Bestandübersicht")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set RaFound = .Columns(2).Find(Target, .Range("B1"), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
' gefunden
.Cells(RaFound.Row, 3) = .Cells(RaFound.Row, 3) + 1
Else
.Cells(LoLetzte, 2) = Target
.Cells(LoLetzte, 3) = 1
End If
End With
End If
End Sub
Gruß Hajo
Anzeige
AW: Bestandübersicht mit Ein ung Ausgang
04.01.2021 16:24:30
1nFected_f0x
Doofe Frage aber was bewirkt der Code jetzt :D
AW: Bestandübersicht mit Ein ung Ausgang
04.01.2021 16:41:13
Hajo:Zi
das was Du wolltest es wird die Stückzahl erhöht oder der Stein eingtragen.
Mir scheint ich habe die Aufgabe falsch verstanden, ich bin dann raus.
Gruß Hajo
AW: Bestandübersicht mit Ein ung Ausgang
04.01.2021 16:45:24
1nFected_f0x
Doch das ist genau das was ich wolte. Ich hab den Quellcode nur nicht verstanden.
Das ist wie gesagt mein erster Kontakt mit VBA.
Sorry falls ich auf deinen Schlips getreten bin.
AW: Bestandübersicht mit Ein ung Ausgang
04.01.2021 16:58:23
1nFected_f0x
Anbei nochmal eine Datei zur veranschaulichung
https://www.herber.de/bbs/user/142747.xlsm
Anzeige
AW: Bestandübersicht mit Ein ung Ausgang
04.01.2021 17:05:45
Hajo_Zi
wie schon mitgeteilt 
es war kein Beispiel für Eingabe eingetragen, da Du dies selbst in den Code einarbeiten  _
wolltest.
Viel Erfolg.
Ich arbeite nicht für den Papierkorb. Also passe den Code selber an.
Viel Erfolg.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige