VBA: gefundenen Wert in Zelle kopieren
Dani
ich möchte einen Suchbegriff (SKU) aus dem Blatt wksCo in dem Blatt wksM finden und nur bestimmte Spalteneinträge (Spalten N-U) aus wksCO ins wksM kopieren (in die gefundene SKU-zeile).
Dazu habe ich mir mit Hilfe des Archivs den folgenden Code zusammengebsatelt, aber der läuft ständig auf Fehler:
Sub Farben()
Dim sku As Range
Dim wksM As Worksheet, wksCO As Worksheet
Dim LastRow As Long, RowSKU As Long
Set wksM = Worksheets("Master")
Set wksCO = Worksheets("CO")
Application.ScreenUpdating = False
With wksM
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With wksCO
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For RowSKU = 1 To RowSKU
If wksCO.Cells(RowSKU, 1) "" Then
With wksM.Columns(1)
Set sku = .Find(what:=wksCO.Cells(RowSKU, 1), LookIn:=xlValues, _
lookat:=xlWhole)
If Not sku Is Nothing Then
Do
LastRow = LastRow + 1
sku(0, 14).Copy Destination:=wksM.sku(0, 14).Value 'hier kommt ständig die _
Fehlermeldung
Application.CutCopyMode = False
Set sku = .FindNext(after:=sku)
Loop Until sku Is Nothing
End If
End With
End If
Next RowSKU
Application.ScreenUpdating = True
End Sub
Was ist falsch im Code?
DANKE für Eure Hilfe!
Dani
