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()
'
' Makro2 Makro
'
' Tastenkombination: Strg+a
'
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
' hier wäre es weiterhin schön, wenn die Kopierte Zelle in Spalte AI und die Zeile aus der erstmals kopierten Zelle eingefügt werden könnte
End Sub
|