hab ein Problem und zwar habe ich eine Excel Datei in der Ich mit Hilfe einer VBA Anweisung in einem zweiten Tabellenblatt einen Wert suchen will und dann die Zelle neben dem Wert in das erste Tabellenblatt einfügen will.
Das Problem bei der Suche in dem zweiten Tabellenblatt zeigt es mir immer den Fehler
Laufzeitfehler '1004'
Die Activate-Methode des Range-Objektes ist fehlerhaft.
wie kann ich den Fehler beheben?
Hier mein Quellcode:
Sub übernehmen()
Dim Cr As Long, CC As Integer
Dim mess As String
CC = 1
Cr = Selection.Row
Cells(Cr, CC + 5).Select
Selection.Copy
mess = ActiveCell
Sheets("Peilstab").Select
Cells.Find(What:=mess, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
CC = 1
Cr = Selection.Row
Cells(Cr, CC + 1).Select
Application.CutCopyMode = False
Selection.Copy
Windows("test-Oel2004.xls").Activate
CC = 1
Cr = Selection.Row
Cells(Cr, CC + 6).Select
ActiveSheet.Paste
End Sub
Vielen Dank im Vorraus
Mfg Micha