Hallo zusammen,
ich glaube, dass was ich vorhabe ist eigentlich überhaupt nicht schwer, aber ich bin so ein verdammter Anfänger.
Was möchte ich:
1. die kopierte Zelle aus Datei 1 soll in Datei 2 gesucht werden
2. wenn gefunden, dann soll aus dieser nun Aktivendatei der Wert aus Spalte R in der Aktivenzeile kopiert und
3. dann in die Datei 1 (wiederum in die vormals aktive Zeile, aber Spalte AI) kopiert werden.
Mein versuchs Makro hab ich mal dran gehängt. In der Hoffnung auf einen Minifehler und keine große Sache,
frag ich hier mal nach.
Sub Makro2()
Dim SuchWert
SuchWert = Selection.Copy
Selection.Copy
Windows("Datei2.xls").Activate
Cells.Find(What:=SuchWert, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells(ActiveCell.Row, 9).Select
Application.CutCopyMode = False
Windows("Datei1.xls").Activate
End Sub