auf bereits geöfnette tabelle zugreifen Makro

Question

Hallo erst ein mal, habe mal wieder ein problem...!!
Ich habe zwei Tabellen,in jeder tabelle ist ein makro.

Tabelle 1
Option Explicit
Sub Start()
Application.ScreenUpdating = False
ChDir "I:\Terminliste"
Workbooks.Open Filename:="I:\Terminliste\Terminliste_neu_Test.xlsm"
Workbooks("Terminliste_neu_Test.xlsm").Sheets("Eingabe Termine").Activate
Application.Run "Terminliste_neu_Test.xlsm!Tabelle1.Suchen"
End Sub

dieses Makro öfnet mir die datei Teminliste.....
und da liegt das problem!!

Diese datei wird teilweise von einer anderen person benutzt.
und ich muß aber auch darauf zugreifen und aus der Tabele daten zu Kopieren und dan wird sie wieder geschlossen. das klappt ja auch alles wunderbar auser wen jemand anderes diese liste offen hat.


hat vieleicht jemand eine idee ?????

Danke schon mal.
gruß nero022

Answer 1

Hallo Nero,
versuch es mal mit Arbeitsmappe und Blattschutz aufheben.

Sub Start()
Application.DisplayAlerts = False 'Fehlermeldung unterdrücken
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Admin\Desktop\Erstmuster Versand.xls" 'Pfad ändern
ActiveWorkbook.ExclusiveAccess 'Freigabe für andere Benutzer wird aufgehoben
ActiveSheet.Unprotect Password:="" 'Dein Passwort eintragen
Application.Run "Terminliste_neu_Test.xlsm!Tabelle1.Suchen"
ActiveSheet.Protect Password:="" 'Dein Passwort eintragen
ActiveWorkbook.KeepChangeHistory = True 'Freigabe für andere Benutzer
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Admin\Desktop\Erstmuster Versand.xls", _
AccessMode:=xlShared 'Pfad ändern
Application.DisplayAlerts = True 'Fehlermeldungen aktivieren
End Sub

Gruß
fedjo

Answer 2

Hallo fedjo !

Habe das makro mal versucht,aber leider klappt es auch nicht...!
aber danke für deine hilfe.
werde das problemm irgend wie anders lösen

Trotsallem danke an alle..... !!!!!

gruß nero022