Excel Datenauf anderem Schrim anzeigen

Hallo !
Ich habe auf einem Netzlaufwerk eine Excel Datei in die Arbeitszeiten eingetragen werden (mit Formatierungen etc...).
Ich will nun dass an einem anderen Rechner (im Aufenthaltsraum) dieses Blatt angezeigt wird und automatisch (entweder nach Änderung oder 5 Minuten - ist mir egal)die Daten aktualisiert werden.
Ich habe es mit den verknüpften Bildern probiert dass funktioniert aber über das Netz anscheinend nicht ( lokal am Rechner bei mir gehts). Es geht nur wenn ich ins Bild klicke und dann das zur Bearbeitung geöffnete Blatt wieder schliesse, dann wirds auch am eigentlichen Bild aktualisiert. ( ich habe keine Ahnung warum)
Vielleicht hat jemand eine Lösung für mich. So ausgefallen scheint mir mein Anliegen ja nicht.
Auch für jede andere Lösung bin ich offen - Hauptsache es funktioniert.
mfg
Ulrich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ulrich,
&gt Vielleicht hat jemand eine Lösung für mich. So ausgefallen scheint mir mein Anliegen ja nicht.
Ausgefallen ist es sicher nicht, aber nicht ganz einfach zu realisieren.
&gt Auch für jede andere Lösung bin ich offen - Hauptsache es funktioniert.
Ich würde die Sache mit einer COM+-Applikation (s.u.) lösen, oder vielleicht mit XML (benötigt aber einen Parser).
Für solche Szenarien habe ich mir z.B. das Tool "xlRemoting" erstellt (s. meine Webseite). Einmal installiert, kann man dann ganz einfach auf die Excelinstanz des anderen Rechners zugreifen. Das Tool muß aber richtig konfiguriert werden. Dann noch etwas Programmierung, ungefähr so (bei Zelländerung wird die Zelle auf dem entfernten Rechner ebenfalls aktualisiert, nebst gewünschter Formatierung) ...

Option Explicit
Dim xl As Excel.Application
Dim xlr As XLRemoting.CXLRemoting
Private Sub Workbook_Open()
    On Error Resume Next
    If xlr Is Nothing Then _
        Set xlr = CreateObject("XLRemoting.CXLRemoting", "moosburg")
    If Not xlr Is Nothing Then _
        Set xl = xlr.GetExcel
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not xl Is Nothing Then
        With xl.Range(Target.Address(True, True))
            .Value = Target
            .Interior.ColorIndex = Target.Interior.ColorIndex
            .Font.Bold = Target.Font.Bold
            ' usw.
        End With
    End If
End Sub
Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

Beliebteste Forumthreads (12 Monate)

Excel Datenauf anderem Schrim anzeigen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread