Thema Datum  Von Nutzer Rating
Antwort
Rot Lagerverwaltung
02.06.2021 08:31:21 Michael Pfeil
NotSolved
02.06.2021 19:51:35 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Michael Pfeil
Datum:
02.06.2021 08:31:21
Views:
126
Rating: Antwort:
  Ja
Thema:
Lagerverwaltung

Hallo zusammen, ich habe hier in den Beispielen ein Tool zur Lagerverwaltung gefunden. Das Tool ist Super und ich würde das gerne etwas ändern.

Der Wareneingang erfolgt über die Userform. Allerdings nur mit der Artikelbezeichnung. Ich würde dies gerne ändern in Produktnummern. Sprich im Prinzip soll in dem Feld Artikel Nummern statt Texte eingegeben werden.

Option Explicit

Private Sub cboArtikel_Change()
   Dim wks As Worksheet
   Dim iRow As Integer
   If optLagerA.Value = True Then
      Set wks = Worksheets("Lager1")
   Else
      Set wks = Worksheets("Lager2")
   End If
   If cboArtikel.ListIndex = -1 Then
      txtStueck.Text = ""
   Else
      iRow = WorksheetFunction.Match( _
         cboArtikel.Value, wks.Columns(1), 0)
      txtStueck.Text = wks.Cells(iRow, 2).Value
   End If
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim wks As Worksheet
   Dim iRow As Integer
   If optLagerA.Value = True Then
      Set wks = Worksheets("Lager1")
   Else
      Set wks = Worksheets("Lager2")
   End If
   If cboArtikel.ListIndex = -1 Then
      iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
   Else
      iRow = WorksheetFunction.Match( _
         cboArtikel.Value, wks.Columns(1), 0)
   End If
   wks.Cells(iRow, 1).Value = cboArtikel.Value
   If optEingang.Value = True Then
      wks.Cells(iRow, 2).Value = _
         wks.Cells(iRow, 2).Value + CDbl(txtStueck.Text)
   Else
      wks.Cells(iRow, 2).Value = _
         wks.Cells(iRow, 2).Value - CDbl(txtStueck.Text)
   End If
   txtStueck.Text = wks.Cells(iRow, 2).Value
End Sub

Private Sub Label1_Click()

End Sub

Private Sub optLagerA_Change()
   Call optLager_Change
End Sub

Private Sub optLagerB_Change()
   Call optLager_Change
End Sub

Private Sub optLager_Change()
   Dim wks As Worksheet
   Dim iRow As Integer
   cboArtikel.Clear
   If optLagerA.Value = True Then
      Set wks = Worksheets("Lager1")
   Else
      Set wks = Worksheets("Lager2")
   End If
   iRow = 2
   With cboArtikel
      Do Until IsEmpty(wks.Cells(iRow, 1))
         .AddItem wks.Cells(iRow, 1).Value
         iRow = iRow + 1
      Loop
      If .ListCount > 0 Then
         .ListIndex = 0
      End If
   End With
End Sub
 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Lagerverwaltung
02.06.2021 08:31:21 Michael Pfeil
NotSolved
02.06.2021 19:51:35 ralf_b
NotSolved