Tabellenblatt spiegeln

[M.Wichmann]

Hallo, 

ist es möglich ein Tabellenblatt sozusagen komplett in einem anderen Dokument zu spiegeln? Ohne jede einzelne Zelle zu verknüpfen?

Hintergrund:

Ich habe eine Tabelle auf das einige Personen zugreifen, aber ich bin der Hauptbearbeiter. Bislang war die zentral auf dem Server gespeichert. Da ich den Inhalt der Tabelle auch für andere Sachen benötige, wollte ich die jetzt in mein Verwaltungsdokument integrieren. Mit "normalen" Verknüpfungen möchte ich nicht wirklich arbeiten, da ich evtl öfter mal die Struktur anpassen muss.

Ideal wäre es, wenn man ständig eine komplette 1 zu1 Kopie dieses Tabellenblatts in der öffentlichen Datei hätte. Also das egal was ich mit der Tabelle anstelle, soll die andere das auch so wiedergeben.

Wie könnte man da ansetzten?

[GMG-CC]

Moin,
die sauberste Lösung wäre imho eine Datenbank, die ist nämlich wirklich mehrplatzfähig.
Vielleicht kannst du aber auch Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/ einsetzen? Da wäre dann eine Aktualisierung auf Knopfdruck möglich.

[M.Wichmann]

Hallo,

Powerquery kommt nicht in Frage, da ich das ja auf jedem Rechner installieren müsste. Auch gebe es wohl Probleme, da es hier leider auch noch unterschiedliche Excel Versionen gibt.

[snb]

Es gibt immer Querytables.

[M.Wichmann]

Hallo, 

also ich hab jetzt nen Macro aufgenommen, das mir die Tabelle kopiert und dann in das andere Dokument einfügt und abspeichert.
Wohl nicht sehr elegant, aber sollte seinen Zweck erfüllen, und die anderen Betrachter können nix falsch machen^^

Code:

Sub Datenübertragen()
'
' Datenübertragen Makro
'

'
   Workbooks.Open Filename:= _
       "O:\Bedarfslisten\Bestände\Tägliche Bestände 150813.xls"
   Windows( _
       "Produktionsplanung 2017 Automatik"). _
       Activate
   Range("A1:i300").Select
   Selection.Copy
   Windows("Tägliche Bestände 150813.xls").Activate
   Range("A1:F1").Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
   ActiveWorkbook.Save
   ActiveWindow.Close
   Application.CutCopyMode = False
   Range("J22").Select
   ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub

Kann man an dem Code noch was verbessern?? Wie gesagt der is aufgenommen.

[schauan]

Hallo,

sowas

Code:

Windows( _
       "Produktionsplanung 2017 Automatik"). _
       Activate
   Range("A1:i300").Select
   Selection.Copy

kannst Du zu einem Befehl zusammenfassen. Dadurch brauchst Du das nächste ...Activate nicht mehr.

das

Code:

   Range("A1:F1").Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False

geht auch in einer Zeile und man könnte es sogar in der oben genannten Zeile anhängen.

Im Prinzip
x.copy Destination:= z
wobei man "Destination:=" auch noch einsparen könnte.

[M.Wichmann]

Hallo,

würde das die Arbeit verbessern? Oder wäre das "nur" eine eleganter Variante?

[snb]

Ja, bestimmt.

[schauan]

Hallöchen

die Fragen waren

Wohl nicht sehr elegant ...

und

Kann man an dem Code noch was verbessern

und das schaut jetzt so aus, wobei der eine einen 1936er Horch eleganter findet als einen 2016er Bugatti und ein anderer sieht es anders herum....

       

würde das die Arbeit verbessern?

der Verzicht auf Selct und Activate ist auch zweckmäßig, merkt man, wenn man es häufig verwendet.
Zweckmäßig wären zumindest in der "Entwicklerversion" auch reichlich Kommentare, um bei späteren Änderungen noch nachvollziehen zu können, was man da mal gemacht hat.

[snb]

'Elegant' ist ein mathematisches Fachbegriff. Das hat wenig mit geschmack zu tun, aber alles mit Redundanz.


Wikipedia:

In den Naturwissenschaften, insbesondere der Mathematik, bedeutet Eleganz „soviel wie Einfachheit und Durchsichtigkeit eines Beweises, einer Lösung“