Thema Datum  Von Nutzer Rating
Antwort
Rot Zellwert kopieren und in ein neues Workbook in einer bestimmten Zelle einfügen
27.04.2021 14:47:02 Chris
NotSolved
27.04.2021 15:09:36 Mase
NotSolved
27.04.2021 15:10:36 Mase
NotSolved
27.04.2021 17:05:22 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris
Datum:
27.04.2021 14:47:02
Views:
50
Rating: Antwort:
  Ja
Thema:
Zellwert kopieren und in ein neues Workbook in einer bestimmten Zelle einfügen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellwert kopieren und in ein neues Workbook in einer bestimmten Zelle einfügen
27.04.2021 14:47:02 Chris
NotSolved
27.04.2021 15:09:36 Mase
NotSolved
27.04.2021 15:10:36 Mase
NotSolved
27.04.2021 17:05:22 Chris
NotSolved