Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikel im Lagerbestand austragen

Gruppe

Arbeitsblatt

Problem

Die Werte aus Blatt Ausgang sollen im Blatt Lagerbestand ausgetragen werden.

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


StandardModule: Modul1

Sub Loeschen()
   Dim wks As Worksheet
   Dim vRow As Variant, vCol As Variant
   Dim iRow As Integer
   Set wks = Worksheets("Lagerbestand")
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      vRow = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
      If Not IsError(vRow) Then
         vCol = Application.Match( _
            Cells(iRow, 2).Value, _
            wks.Range(wks.Cells(vRow, 2), _
            wks.Cells(vRow, 256)), 0)
         If Not IsError(vCol) Then
            wks.Cells(vRow, vCol + 1).Delete shift:=xlShiftToLeft
         End If
      End If
      iRow = iRow + 1
   Loop
End Sub