VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Artikel im Lagerbestand austragen

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Artikel im Lagerbestand austragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt