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?
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.
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.
Es gibt immer Querytables.
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.
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.
Hallo,
würde das die Arbeit verbessern? Oder wäre das "nur" eine eleganter Variante?
Hallöchen
die Fragen waren
Zitat:Wohl nicht sehr elegant ...
und
Zitat: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....
[
attachment=11805][
attachment=11806]
Zitat: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.
'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“