AW: Kopieren und Einfügen in verschiedenen Mappen
01.07.2017 11:00:02
Andreas
Danke Hajo-
nun es geht doch noch nicht wie ich will.
Habe nun mal meine Version - die mit dem Makrorecorder hier abgebildet,
Vielleicht nochmal das Vohaben-
* Worksheets("Druckmenü") ist geöffnet.
* Doppelklick in O28 '(öffnet Mappe Druckmenü Tabelle1)
** jetzt trage ich einen Text in O28 ein- drücke ENTER und es soll der
* Zellinhalt von O28 kopiert und die andere Mappe (Druckmenü Tabelle1 - letzte ausgefüllte Zelle in B finden- eine Zeile tiefer springen dort den Text einfügen.
als nächster Schritt
*in dieser Zeile eine Spalte nach links springen (es ist die Spalte A- dort steht jetzt eine Nr. hier befindet sich aber auch eine Formel- es soll aber nur deren Ergebnis kopiert werden und das dann in Worksheets"Druckmenü"in Y35 eingefügt werden.
Worksheets("Druckmenü").Range("y35").PasteSpecial xlPasteValues
* nun Mappe ("ProtokollnR 1.xlsx") schließen und zurück zu Worksheets("Druckmenü")
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "O28" Then
Workbooks.Open Filename:="D:\ProtokollnR 1.xlsx"
Cancel = True
End If
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Vorlage.xlsm").Activate
Range("O28").Select
'Windows("Vorlage.xlsm").Activate
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Application.WindowState = xlNormal
Windows("ProtokollnR 1.xlsx").Activate
Application.GoTo Range("B65536").End(xlUp).Offset(1, 0)
Selection.Copy
'Worksheets("Vorlage.xlsm").Worksheets("Druckmenü").Range("y35").PasteSpecial xlPasteValues
Worksheets("Druckmenü").Range("y35").PasteSpecial xlPasteValues
Windows("Vorlage.xlsm").Activate
Selection.Copy
Windows("ProtokollnR 1.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.GoTo Range("B65536").End(xlUp).Offset(1, -1)
Selection.Copy
'Worksheets("Vorlage.xlsm").Worksheets("Druckmenü").Range("y35").PasteSpecial xlPasteValues
'Range("A197").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Vorlage.xlsm").Activate
Windows("ProtokollnR 1.xlsx").Activate
'Range("A196").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Vorlage.xlsm").Activate
Range("Y35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
So den richtigen Durchblick habe ich hier nicht.
Vielleicht geht das auch so nicht.
Gruß Andreas