fehler im code
08.01.2004 00:22:57
Lin
habe ein Problem mit einem verweis den ich mir in vba mühevoll zusammengekleistert hab. kleine erklärung
im tabellenblat "Fs Eintrag" stehen in der Spalte U16 bis U381 die Suchbegriffe
im tabellenblatt "Berechnung" ist die Suchmatrix von A3:N200 wobei in spalte a der suchbegriff wieder vorkommt. wird der begriff gefunden soll aus spalte D der wert in Spalte V im tabellenblatt "Fs Eintrag" übernommen werden. er schreibt mir aber immer den suchbegriff in die zielspalte.
hier der code, ich hoffe es kann mir jemand helfen
Sub Verweis()
Dim Quelle As Worksheet
Dim Matrix As Range
Dim c, Suchwert$, Zielwert$, Fundzelle
Dim l&, q%, z%, y%
Set Quelle = Worksheets("Fs Eintrag")
Set Matrix = Worksheets("Berechnung").Range("A3:N200")
q = 21
z = 22
y = 4
Application.ScreenUpdating = False
For l = 16 To 381
Suchwert = Quelle.Cells(l, q)
Quelle.Cells(l, z).ClearContents
With Matrix
Set c = .Find(Suchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Quelle.Cells(l, z) = y.Value
Else
Quelle.Cells(l, z) = "-"
End If
End With
Next l
Application.ScreenUpdating = True
End Sub
Danke Lin