Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: aus geöffneten Arbeitsmappen kopieren

aus geöffneten Arbeitsmappen kopieren
09.07.2005 21:13:11
Peter
Hallo,
es sind 2 Arbeitsmappen geöffnet.
Jetzt möchte ich nur den Inhalt (ohne vorh. Formatierungen) von Datei Quelle Tabelle1
nach Datei Ziel Tabelle2 kopieren.
Wie macht man das richtig?
Peter

Sub Sh_Inhalt_kopieren()
EndZeile = Cells(Rows.Count, 2).End(xlUp).Row
Workbooks("Ziel.xls").Worksheets("Tabelle2").Range(Cells(1, 1), Cells(EndZeile, 15)).Value = _
Workbooks("Quelle.xls").Worksheets("Tabelle1.").Cells
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus geöffneten Arbeitsmappen kopieren
09.07.2005 21:32:29
Ramses
Hallo
probiers mal so
Sub Sh_Inhalt_kopieren()
Dim EndZeile As Integer
With Workbooks("Quelle.xls").Worksheets("Tabelle1")
    .Activate
    EndZeile = .Cells(Rows.Count, 2).End(xlUp).Row
    .Range(Cells(1, 1), Cells(EndZeile, 15)).Copy
End With
With Workbooks("Ziel.xls").Worksheets("Tabelle1")
    .Activate
    .Range(Cells(1, 1), Cells(EndZeile, 15)).PasteSpecial Paste:=xlPasteValues
End With
End Sub

Gruss Rainer
Anzeige
AW: Danke -noch 'ne Frage
09.07.2005 21:47:39
Peter
Danke für die schnelle Antwort.
Wie und an welcher Stelle wird der Zwischenspeicher gelöscht
Peter
AW: Danke -noch 'ne Frage
09.07.2005 22:32:41
Ramses
Hallo
Damit kannst du den Zwischenspeicher löschen

Sub Clipboard_clear()
    'löscht den Zwischenspeicher
    Dim Clear As DataObject
    Set Clear = New DataObject
    Clear.SetText ""
    Clear.PutInClipboard
    Set Clear = Nothing
End Sub

Gruss Rainer
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige