Werte inkl. Formatierung übertragen

Hallo,
ich habe das Problem, dass ich bisher Werte vom einen Blatt ins andere mit folgendem Code übertrage. Nun sollte ich jedoch auch die Formatierung (wie z.B. die Zell-Farbe) mitübertragen. Wie muß ich nun meinen Code verändern?
For zeile = 10 To Worksheets("Test").Range("A65536").End(xlUp).Row
Set a = Worksheets("Tabelle 2").Range("a:a").Find(Worksheets("Tabelle 1").Cells(zeile, 1).Value)
If Not a Is Nothing Then
Worksheets("Tabelle 1").Cells(zeile, 8).Value = Worksheets("Tabelle 2").Cells(a.Row, 2).Value
Worksheets("Tabelle 1").Cells(zeile, 9).Value = Worksheets("Tabelle 2").Cells(a.Row, 63).Value
Worksheets("Tabelle 1").Cells(zeile, 12).Value = Worksheets("Tabelle 2").Cells(a.Row, 57).Value
End If
Next zeile
Könnt ihr mir dabei vielleicht behilflich sein?
Gruß,
Ellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim zeile As Long Dim a As Range For zeile = 10 To Worksheets("Test").Range("A65536").End(xlUp).Row Set a = Worksheets("Tabelle 2").Range("a:a").Find(Worksheets("Tabelle 1").Cells(zeile, 1).Value) If Not a Is Nothing Then Worksheets("Tabelle 1").Cells(zeile, 8).Copy Worksheets("Tabelle 2").Cells(a.Row, 2).PasteSpecial xlPasteValues Worksheets("Tabelle 2").Cells(a.Row, 2).PasteSpecial xlPasteFormats Worksheets("Tabelle 1").Cells(zeile, 9).Copy Worksheets("Tabelle 2").Cells(a.Row, 63).PasteSpecial xlPasteValues Worksheets("Tabelle 2").Cells(a.Row, 63).PasteSpecial xlPasteFormats Worksheets("Tabelle 1").Cells(zeile, 12).Copy Worksheets("Tabelle 2").Cells(a.Row, 57).PasteSpecial xlPasteValues Worksheets("Tabelle 2").Cells(a.Row, 57).PasteSpecial xlPasteFormats End If Next zeile Application.CutCopyMode = False End Sub

Hallo,
ich habe genau das gleiche Problem mit dem Indirekt-Öffnen (gut zu wissen, dass das nur mit bereits geöffneten Dateien geht) und würde gerne den gleichen Code verwenden.
Leider habe ich absolut keine Ahnung von Makros.
Kann mir einer sagen, wo (oder ob) in dem Makro die Zellbereiche definiert werden, die kopiert werden und aus welchem Tabellenblatt die Zellen kopiert werden?
Ich möchte folgendes machen:
- Ich habe ca. 30 identisch aufgebaute Excel-Dateien in 30 Unterordnern eines Verzeichnisses.
- In jeder Datei habe ich ein Blatt mit Messwerten (Zellbereich A17 bis G35, in diesem Zellbereich sind aber auch Überschriften u.ä. enthalten macht aber nix wenn das mitkopiert wird).
- In meinem Hauptverzeichnis will ich eine Übersichts-Excel mit einem Tabellenblatt in dem ich dynamisch die Messwerte in einer Tabelle darstellen will. Ich brauche eine Funktion/Makro, das mir die Messwerte aus den (ungeöffneten) Unterordnern in meine Übersichts-Excel kopiert.
- Ich habe eine Dropdownliste mit allen Dateien aus denen ich wählen kann, und mir eine Funktion gebastelt, die mir einen Textstring mit dem Pfad zu Datei und zum gewünschten Blatt liefert, aber der Indirekt-Befehl kann die Datei ja nicht öffnen.
Könnte man ein Makro machen, das alles für mich erledigt, jedes Mal, wenn ich eine Quelle aus der Dropdownliste gewählt habe?
Oder (vielleicht noch viel einfacher) ein Makro (durch einen Aktualisieren-Button gestartet), das die Datei öffnet, den Indirekt-Befehl ausführt und die Datei wieder schließt. Damit der Indirekt-Befehl die Daten rüberkopiert während die Datei geöffnet war (wenn das funktioniert?)
Sorry für den langen Text, aber ich wollte halbwegs eindeutig sein.
Vielen Dank für alle Antworten.
David

Beliebteste Forumthreads (12 Monate)

Werte inkl. Formatierung übertragen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread