Thema: Zugriff über SVERWEIS() auf eine Artikelliste

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

Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS