Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten übergeben

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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