Anzeige
Archiv - Navigation
1704to1708
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
Inhaltsverzeichnis

Zell-Farbwerte aus anderer Datei einlesen

Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 17:35:31
stormlamp
Hallo Zusammen,
in einer Tabelle1 der Datei Basis.xlsx sind die Zellen A1 bis Z200 mit unterschiedlichen Farben gefüllt.
In einer anderen Datei Ergebnis.xlsx möchte ich in Tabelle 2 in den Bereich B1 bis AA200 die Farbnummern der Farben eingetragen haben aus der ersten Datei.
Innerhalb einer Mappe geht das ja über Namen und
Farbwert=ZELLE.ZUORDNEN(63;INDIREKT("Tabelle1!A"&ZEILE()))
Leider geht das nicht mit Zugriff auf eine andere Arbeitsmappe.
Hat jemand eine Idee evtl. auch mit VBA-Code das zu übertragen?
Viele Grüße
Hans

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 18:02:40
onur
poste mal die Dateien - am besten gezipt, damit sich die Namen nicht ändern.
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 18:03:57
onur
Frage: Welche Datei soll das Ganze steuern und sind beide Dateien geöfnet?
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 18:24:13
onur
Und welche ist welche?
Deswegen schrieb ich ja auch: "am besten gezipt, damit sich die Namen nicht ändern".
Anzeige
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 18:29:25
stormlamp
Die 131082.xlsx ist die Basisdatei, die 131083.xlsx die Ergebnisdatei.
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 18:58:43
stormlamp
Hallo onan,
ganz herzlichen dank, super!
Muss im Code
Set wbq = Workbooks("Dateiname.xlsx")
der Begriff Dateiname.xlsx noch ausgetauscht werden oder muss nur dort geändert werden, wo Du den Kommentar geschrieben hast?
AW: Zell-Farbwerte aus anderer Datei einlesen
25.07.2019 19:00:58
onur
ONUR ! Onan war ein ganz Anderer.
Set wbq = Workbooks("Basis.xlsx")

Vielen Dank für die Lösung
25.07.2019 19:06:18
stormlamp
Hallo onur,
nochmals vielen Dank, Du hast mir sehr geholfen.
Viele Grüße
Hans
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige