Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auf Änderung im eingebetteten Objekt reagieren

Forumthread: Auf Änderung im eingebetteten Objekt reagieren

Auf Änderung im eingebetteten Objekt reagieren
Uppe
Hallo,
ich habe in meiner Exceltabelle ein eingebettetes Word-Dokument.
Ich möchte darauf reagieen, wenn das Word-Dokument den Fokus verliert. Wie mache ich das?
Danke und Gruß
Uppe
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Auf Änderung im eingebetteten Objekt reagieren
06.05.2010 14:42:43
JOWE
Welcher Sprache ist denn Uppe entlehnt?
Grüß Dich!
Wie wär's mit 'selection.name"?
Wenn das Objekt selektiert ist, lautet das Ergebnis 'Object nn,
ist eine Zelle oder ein Bereich selektiert gibt's einen Laufzeitfehler 1004.
Oder 'selection.Address", ist ein Objelt selektiert, gibt's einen Laufzeitfehler 438.
ist eine Zelle oder ein Bereich selektiert, gibt's den Bezug!
Jochen
Anzeige
AW: Auf Änderung im eingebetteten Objekt reagieren
06.05.2010 15:29:58
Uppe
Hallo Jochen,
das hilft mir leider nicht wirklich weiter.
Ich habe mal folgendes versucht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Selection.Name
End Sub
Aber leider reagiert das Ereignis gar nicht auf die Auswahl des Word-Dokuments :-(
Gruß Uppe
Anzeige
AW: Auf Änderung im eingebetteten Objekt reagieren
06.05.2010 17:02:36
fcs
Hallo Uppe,
getestet unter Office 2003.
Das Makro "WordDocSelected" weist du dem Wordobjekt zu.
Gruß
Franz 
'#### Code in einem allgemeinen Modul ####
Option Explicit
Public bolDocLostFocus As Boolean
Sub WordDocSelected()
Dim a
a = Application.Caller
bolDocLostFocus = True
ActiveSheet.Shapes(a).Select
End Sub
'Code im Modul des Tabellenblatts mit dem Word-Objekt
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If bolDocLostFocus = True Then
'Aktion nachdem Word-Objekt Fokus hatte
MsgBox "Doc-Objekt lost Fokus"
bolDocLostFocus = False
End If
End Sub

Anzeige
Super, das werde ich gleich einbauen. Danke! owT
06.05.2010 22:03:55
Uppe

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige