![]() |
||
![]() |
Produkte mit Verfallsdatum suchen und auflistenMeine Arbeitsmappe enthält verschiedene Tabellen mit Materialien und dem jeweils zugehörigen Verfallsdatum. Nun möchte ich in einer weiteren Tabelle automatisch alle verfallenen Materialien auflisten. Kann ich das in Excel ohne großen Programmieraufwand umsetzen? Ganz ohne Programmierung kommen Sie nicht aus. Mit einem relativ kleinen VBA-Makro können Sie diese Aufgabe jedoch zumindest bei gleich aufgebauten Einzeltabellen meist recht elegant lösen. In der geöffneten Arbeitsmappe führen Sie den Befehl »Extras | Makro | Makros« aus. Dann geben Sie dem Makro einem Namen wie zum Beispiel „Verfall“ und klicken auf die Schaltfläche »Erstellen«. Im VBA-Editor geben Sie nun folgende Programmzeilen ein oder Sie kopieren das Listing von der Heft-CD unter CHIP-Code verfall.
Sub Verfall()
Dim i, j, n, x, y As Variant
Dim info As String
x = Sheets.Count
Sheets.Add After:=Worksheets(x)
Sheets(x + 1).Select
Sheets(x + 1).Name = „Verfallene Produkte“
n = 2
For i = 1 To x
For j = 1 To 1000
If Worksheets(i).Cells(j, 3) <> „“ Then
If Worksheets(i).Cells(j, 3) < Now Then
Sheets(i).Select
Rows(j).Select
Selection.Copy
Sheets(x + 1).Select
Rows(n).Select
ActiveSheet.Paste
n = n + 1
End If
End If
Next j
Next i
Application.CutCopyMode = False
Sheets(x + 1).Select
Range(„A1“).Select
info = Str(n - 2) + „ Produkte sind verfallen“
MsgBox (info)
End Sub
|
![]() |