Hallo,
ich schreibe gerade mein drittes Makro und stecke gerade bei einer simplen Aufgabe fest :( ... Wär jemand so nett und könnte mir den Code schicken (s.unten in "ROT" markiert) , wenn ich aus einer bestimmten Arbeitsmappe/Worksheet/Zelle, in meinem Fall die Zelle E10 kopieren, und sie in eine neue Arbeitsmappe (bereits geöffnet) wertmäßig in die Spalte B einfügen möchte ? Zusätzlich habe ich auch noch die offset Funktion aktiviert, damit er die nächste Zelle in der Spalte B immer auswählt.
Hier ist der relevante Code-Ausschnitt:
'Differenz-Auflistung
Set oSourceBook3 = Workbooks.Open(strDatei3) 'Aufmachen einer neuen Datei aus welcher ich den Zellenwert kopieren und in die oTargetBook3 in einfügen möchte. strDatei3 ist der von mir angelegte Pfad wo sich die ensptrechende Datei befindet.
oSourceBook3.Worksheets("Abstimmung").Range("E10").Copy 'diese Zelle soll kopiert werden
oTargetBook3.Activate
oTargetBook3.Worksheets("Tabelle1").Select
oTargetBook3.Worksheets("Tabelle1").Range("B1").Select
If Worksheets("Tabelle1").Range("B1").Offset(1, 0) <> "" Then
Worksheets("Tabelle1").Range("B1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.............................. ' Hier soll die kopierte Zelle von oben eingefügt werden. Komme leider nicht drauf.
oSourceBook3.Close SaveChanges:=False
oTargetBook3.Close SaveChanges:=True
Hoffe ihr könnt mir weiterhelfen :)
Dankeschön!
LG
|