Kopieren mit Bedingungen
26.06.2006 14:29:33
Reto
Ich habe ein Makro gemacht, welches mir Werte aus einer Lager1 Tabelle in eine Inventurtabelle kopiert. Dabei werden gewisse Prüfungen gemacht und Meldungen gemacht, wenn etwas nicht stimmt (zB. Artikelnummer im Inventur Blatt nicht vorhanden). An diesen Stellen ('--> ...) sollten diese Fehlerhaften Zellen markiert werden. Bekomme das aber irgenwie nicht hin ...
Hat jemand eine Idee?
------------
Public
Sub lager1()
Dim found As Range
Dim i As Long
Worksheets("Lager1").Range("A2:B5000").Select
With Selection
End With
For i = 2 To Worksheets("Lager1").Cells(Rows.Count, 1).End(xlUp).Row
Set found = Worksheets("Inventur").Range("A9:A3000") _
.Find(Worksheets("Lager1").Range("A" & i).Value, lookat:=xlWhole)
If found Is Nothing Then
MsgBox ("Artikelnummer im Inventurblatt nicht vorhanden!" & Chr(10) _
& "Artikelmenge wurde nicht übernommen!")
' --> Artikelnummer (Zelle Ai) auf Lager1 Rot markieren
Else
If found.Offset(0, 1).Value <> "" Then
found.Offset(0, 1).Select
MsgBox ("Für diesen Artikel ist in diesem Lager bereits eine Menge erfasst!" _
& Chr(10) & "Menge wurde nicht übernommen!")
' --> Menge (Zelle Bi) auf Lager1 Rot markieren
Else
found.Offset(0, 1).Value = Worksheets("Lager1").Range("B" & i).Value
End If
End If
Next
End Sub
------------
Besten Dank für jegliche Hilfe.
freundlich grüsst
Reto E.