Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten übergeben

Daten übergeben
18.07.2006 15:39:45
andre
Hallo,
habe folgendes Problem.
Ich möchte gerne Daten einer Zelle, aus meiner geöffneten Arbeitsmappe, an eine andere geöffnete übergebe, aber in eine ganz spezielle Zeile, Spalte und Arbeitsblatt natürlich.
Geht dieses auch in nicht geöffneten?
Mfg
Andre

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

Betreff
Datum
Anwender
Anzeige
AW: Daten übergeben
Orakel
Hallo Andre.
z.B. in der Zieldatei in die entsprechende Zelle (anpassen):
=[Quelle.xls]Tabelle1!$A$1
Grüße Orakel
AW: Daten übergeben
19.07.2006 11:36:16
Andre
Hallo,
würde das aber lieber über VBA machen!
Mfg
Andre
AW: Daten übergeben
Orakel
Hallo Andre,
da sich keiner Deiner annimmt(haben wohl Angst sich zu blamieren ;-)), habe ich mal ein wenig zusammengebastelt. Vorweg schon mal: In eine geschlossene Datei geht nicht, es sei denn, Du öffnest sie mit dem Makro kurz und schließt sie gleich wieder. Folgender Code geht von der Annahme aus, dass die geöffnete Datei aus der Daten übertragen werden sollen "Quelle.xls" und die geschlossene Datei "Ziel.xls" heißt. Du musst den Pfade, die jeweiligen Tabellennamen und die entsprechenden Bereiche anpassen.
Sub Werte_Format()
Application.ScreenUpdating = False
    Sheets("Tabelle1").[A1:A3].Copy
Application.EnableEvents = False 'Abfrage aus
    Workbooks.Open Filename:="D:\China\Quelle_Ziel3\Ziel.xls"
Application.EnableEvents = True 'Abfrage ein
    With Workbooks("Ziel.xls").Worksheets("Tabelle1").Range("A1")
        .PasteSpecial Paste:=xlValues           ' Werte
        .PasteSpecial Paste:=xlFormats      ' Formate
    End With
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub
Grüße Orakel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige