ich habe ein Problem damit Daten, die gefunden werden, in ein anderes Tabellenblatt in bestimmte Zellen zu kopieren. Hier mal mein VBA Code:
Option Explicit
Sub Spaltefinden()
ThisWorkbook.Worksheets("Grobplanung").Activate
'finden als Variable definieren und Zeile 7 in Tabelle1 "Grobplanung" nach dem Inhalt von _
Tabelle2 (Detailplanung) durchsuchen
Dim KW As Range
Set KW = Tabelle1.Rows(6).Find(What:=Tabelle2.Range("B3").Value, lookat:=xlWhole)
Cells(6, KW.Column).Interior.ColorIndex = 6
'finden hat jetzt die Adressdaten des gesuchten Inhalts
Dim x As Integer
Dim i As Integer
i = 3
'i = Zeile in Detailplanung
'x ist die Zeile in der in Grobplanung gesucht werden soll
'KW.Column hat hierbei den Wert 4
For x = 14 To 69
If Worksheets("Grobplanung").Cells(x, KW.Column).Value = "" Then
Else
ActiveSheet.Range(Cells(x, KW.Column), Cells(x, KW.Column)).Copy Destination:= _
Worksheets("Detailplanung").Range(Cells(i, 5), Cells(i, 5))
i = i + 1
End If
Next x
End Sub
Hierbei gibt er mir bei der Copy-Funktion eine Laufzeitfehlermeldung '1004': Anwendungs- oder Objektdefinierter Fehler. Ich bin absoluter Neuling was VBA angeht. Könnt Ihr mir sagen wo mein Fehler ist ?
Grüße und Danke
René