Re: 2 Tabellen vergleichen
20.08.2002 15:29:49
andreas e
hiIft der Iösungsansatz etwas weiter ?zwei Inventurlisten sollen abgeglichen werden. Alle neuen Artikel, die es im Jahr 2001 noch nicht gegeben hat, sollen dabei gekennzeichnet werden.
Sub Inventurabgleich()
Const Blatt1 = "2001"
Const Blatt2 = "2002"
Dim artnr As String
Dim b As Boolean
Sheets(Blatt2).Activate
Range("A2").Select
Do Until ActiveCell.Value = ""
artnr = ActiveCell.Value
Sheets(Blatt1).Activate
Range("A2").Select
b = False
Do Until ActiveCell.Value = "" Or artnr = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell.Value = artnr Then b = True
Sheets(Blatt2).Activate
If b = False Then ActiveCell.Offset(0, 3).Value = "Neu in 2002"
ActiveCell.Offset(1, 0).Select
Loop
End Sub
gruß
andreas e