Hallo zusammen,
ich möchte gerne eine Tabelle mit Hilfe von VBA aktualisieren.
Hierbei soll aus dem Worksheet "Katalog" aus den Spalten Q298:Q384 Werte im Worksheet "LID" in der Spalte F gesucht werden. Anschließend sollen die daneben stehenden Werte (also aus den Spalten C, D & E ) aus dem Worksheet "LID" in das Worksheet "Katalog" übertragen werden.
Beispiel der Wert aus Q298 wird im Worksheet LID in Zelle F120 gefunden. Dann sollen die Werte aus C120 , D120 & E120 in das Worksheet Katalog in die Zellen N298, O298 & P298 übertragen werden.
With Worksheets("Katalog")
Set raBereich = .Range("Q298:Q384").SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
ThisWorkbook.Sheets("LID").Activate
With Worksheets("LID")
Set raFund = .Columns("F").Find(What:=raZelle, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
If raZielbereich Is Nothing Then
Set raZielbereich = raFund
Else
Set raZielbereich = Union(raZielbereich, raFund)
End If
End If
End With
Next raZelle
If Not raZielbereich Is Nothing Then
raFund.Offset(, -1).Copy Destination:=ThisWorkbook.Worksheets("Katalog").raZelle.Offset(, -1).PasteSpecial
raFund.Offset(, -2).Copy Destination:=ThisWorkbook.Worksheets("Katalog").raZelle.Offset(, -2).PasteSpecial
raFund.Offset(, -3).Copy Destination:=ThisWorkbook.Worksheets("Katalog").raZelle.Offset(, -3).PasteSpecial
End If
End With
Set raBereich = Nothing: Set raFund = Nothing: Set raZielbereich = Nothing
End Sub
hierbei erhalte ich eine Laufzeitfehler 438.
Vielen Dank für die Hilfe im Voraus und einen lieben Gruß