Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zugriff über SVERWEIS() auf eine Artikelliste

Gruppe

SVERWEIS

Problem

Wie kann ich mit der SVERWEIS()-Formel auf eine Artikelliste zugreifen? Die Datensätze sollen danach durch Drücken einer Schaltfläche in eine Umsatzliste übernommen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Eintragen()
   Dim var As Variant
   Dim iRow As Integer, iCol As Integer
   With Worksheets("Tagesjournal")
      iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      For iCol = 1 To 4
         .Cells(iRow, iCol).Value = Cells(iCol, 2).Value
      Next iCol
   End With
   With Worksheets("Artikelnummer")
      var = Application.Match(Cells(1, 2).Value, .Columns(1), 0)
      If IsError(var) Then
         Beep
         MsgBox "Artikelnummer wurde nicht gefunden!"
      Else
         .Cells(var, 7).Value = .Cells(var, 7).Value - Cells(3, 2).Value
      End If
   End With
End Sub