Leider hatte ich etwas vergessen. In der 5.Spalte der Tabelle ist auch der Marktwert der Marken angegeben, der alle paar Monate verändert wird. Jetzt suche ich nach einer Möglichkeit, die Katalog-Werte, die von unserem Club mit einer Excel-Tabelle verteilt werden, maschinell auszuwerten bzw. direkt in meine 'Datenbank' zu übernehmen.
Die Such- und 'find' Funktionen in dem unten angegebenen Code ist schon gut. Aber wie kann ich auch noch die Werte ändern. D.h. in der Datenbank stehen an erster Stelle die Code-Nr. und u.a. an 5.ter Stelle der Markenwert.
Kann mir 'Chris' oder jemand anders helfen????
Option Explicit
Sub fehlnum()
Dim SuchErgebnis As Object
Dim neu As Long
Dim CodeNr As String
Dim Orig As Worksheet, Frmd As Worksheet
Dim Rng As Range
Set Orig = Workbooks("Marken.xls").Sheets(1)
Set Frmd = Workbooks("Markenfrmd.xls").Sheets(1)
Set Rng = Orig.Range("A1:A" & Orig.Range("A65536").End(xlUp).Row)
Orig.Activate
For neu = 2 To Frmd.[A65536].End(xlUp).Row
CodeNr = Frmd.Cells(neu, 1)
Set SuchErgebnis = Rng.Find(CodeNr, LookIn:=xlValues)
If SuchErgebnis Is Nothing Then
Frmd.Rows(neu).Interior.ColorIndex = 6
End If
Next neu
End Sub
Gruss Laguna