Hallo ihr 3,

Ralfs Lösung funktioniert, solange man sich im Excel befindet. Sobald man jedoch das Makro in einer anderen Applikation (hier Word) hat, braucht man die Excel-Instanz. Das Problem ist auch klar. Durch Select, bzw. die manuelle Auswahl einer Zelle erhält Excel den Fokus und gibt ihn nicht mehr her. Nach ein bisschen Rumspielen mit divesen API-Funktionen die den Fokus an Word zurückgeben sollen, bin ich schließlich zu folgender Lösung gekommen. Probiert es aus.

Private Const WM_KILLFOCUS = &H8
Private Const WM_SETFOCUS = &H7
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" _
  (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, _
   ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'weitere mögliche API-Funktionen durchgetestet
'Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
'Private Declare PtrSafe Function SetFocus Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr
'Private Declare PtrSafe Function GetProcessID Lib "kernel32" (ByVal hwnd As LongPtr) As LongPtr
'Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
'Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hwnd As LongPtr) As Long

Sub ExcelAnzeigen()

 
ExtDateipfad = "D:\Daten\Entwicklung\Tests\Test.xlsm"
Tabellenname = "Tabelle1"
 
 On Error Resume Next 'Excel neue Instanz aufbauen
  Set ExcApp = CreateObject("Excel.Application")
  On Error GoTo 0
  
wdhwnd = Application.ActiveWindow.hwnd 'Word Handle ermitteln
  
Set excwb2 = ExcApp.Workbooks.Open(ExtDateipfad)
Set ExcWs2 = excwb2.Sheets(Tabellenname)
excwb2.Activate
ExcApp.Visible = True
ExcApp.WindowState = -4137
ExcWs2.Activate
ExcWs2.Visible = True
ExcWs2.Cells(ExcWs2.Cells(ExcWs2.Rows.Count, 1).End(-4162).Row, 1).Select
   'wartet auf Nutzereingabe und Zelle auswählen


'Dim rng As Range
Set rng = ExcApp.Selection


Do
DoEvents
Loop Until ExcApp.Selection.Address <> rng.Address
Debug.Print ExcApp.Selection.Address
Debug.Print rng.Address
Exchwnd = ExcApp.ActiveWindow.hwnd

'Fokus an Word zurückgeben
a = SetWindowPos(Exchwnd, 1, 0, 0, 1000, 1000, 0) 'sendet Excel in den Hintergrund
b = SendMessage(Exchwnd, WM_KILLFOCUS, 0&, 0&)    'Nimmt den Fokus von Excel weg
c = SendMessage(wdhwnd, WM_SETFOCUS, 0&, 0&)      'und gibt ihn an Word
Application.ActiveWindow.Activate                 'Aktiviert Word
ThisDocument.Activate                             'Aktiviert das aufrufende Dokument

'Schliessen der Datei
With excwb2
   .Saved = True
   .Close
End With
ExcApp.Quit

Set excwb2 = Nothing

End Sub

PS: Die auskommentierten API-Funktionen kannst du getrost löschen. Die hab ich nur für Dokumentationszwecke drin gelassen,

Gruß Mr. K.