Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon nero022022 vom 29.01.2022, 15:57 Options
auf bereits geöfnette tabelle zugreifen Makro
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
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
Antwort 1 von Saarbauer vom 29.01.2022, 16:09 Options
Hallo,
excel ist, zumindest bis 2003, nicht für Mehrfachnutzerbetrieb eingerichtet. Es wird daher keine Lösung geben.
Gruß
Helmut
excel ist, zumindest bis 2003, nicht für Mehrfachnutzerbetrieb eingerichtet. Es wird daher keine Lösung geben.
Gruß
Helmut
Antwort 2 von nero022022 vom 29.01.2022, 16:14 Options
aber es ist doch auch möglich wen ein kolege diese datei offen hat das ich sie schreibgeschützt öffne !!!!
mein makro kopiert ja nur gewisse zellen aus der datei und dan schließt es sie wieder. ( 2007 )
gruß nero.
mein makro kopiert ja nur gewisse zellen aus der datei und dan schließt es sie wieder. ( 2007 )
gruß nero.
Antwort 3 von fedjo vom 29.01.2022, 17:49 Options
Hallo nero,
ich kenne das Problem auch bei meiner Arbeit (Office 2003).
Habe es so gelöst, unter Extras, Arbeitsmappe freigeben.
Es dürfen natürlich nicht mehrere User auf die gleiche Zelle zugreifen und speichern.
Gruß
fedjo
ich kenne das Problem auch bei meiner Arbeit (Office 2003).
Habe es so gelöst, unter Extras, Arbeitsmappe freigeben.
Es dürfen natürlich nicht mehrere User auf die gleiche Zelle zugreifen und speichern.
Gruß
fedjo
Antwort 4 von nero00022 vom 30.01.2022, 17:05 Options
hallo fedjo !!!
das habe ich auch schon versucht,es klapt auch !!! auser das meine makros die in dieser mappe sind nicht mer laufen ich bekomme einen fehler !!!
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden !!!
gibt es den keine andere möglichkeit so das ich mein Makro benutzen kann :
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
gruß nero..!!
das habe ich auch schon versucht,es klapt auch !!! auser das meine makros die in dieser mappe sind nicht mer laufen ich bekomme einen fehler !!!
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden !!!
gibt es den keine andere möglichkeit so das ich mein Makro benutzen kann :
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
gruß nero..!!
Antwort 5 von fedjo vom 30.01.2022, 17:43 Options
Hallo nero,
Andere Personen müssen natürlich die Arbeitsmappe freigeben.
Gruß
fedjo
Zitat:
auser wen jemand anderes diese liste offen hat.
auser wen jemand anderes diese liste offen hat.
Andere Personen müssen natürlich die Arbeitsmappe freigeben.
Gruß
fedjo
Antwort 6 von nero00022 vom 30.01.2022, 18:33 Options
Hallo fedjo !!
wie meinst du das,habe es getestet und diese mappe freigegeben.
aber wen ich das mache laufen die makros in dieser arbeitsmappe nicht mehr.... !!!!!!!!!!!
gruß nero.
wie meinst du das,habe es getestet und diese mappe freigegeben.
aber wen ich das mache laufen die makros in dieser arbeitsmappe nicht mehr.... !!!!!!!!!!!
gruß nero.
Antwort 7 von fedjo vom 31.01.2022, 10:31 Options
Hallo nero,
wenn andere Personen die Arbeitsmappe vor dir öffnen, müssen sie natürlich auch die Arbeitsmappe freigeben, damit du uneingeschränkt darauf zugreifen kannst.
Jeder der die Arbeitsmappe öffnet, muß sie Freigeben für mehrere Benutzer.
Gruß
fedjo
wenn andere Personen die Arbeitsmappe vor dir öffnen, müssen sie natürlich auch die Arbeitsmappe freigeben, damit du uneingeschränkt darauf zugreifen kannst.
Jeder der die Arbeitsmappe öffnet, muß sie Freigeben für mehrere Benutzer.
Gruß
fedjo
Antwort 8 von nero00022 vom 31.01.2022, 21:48 Options
Hallo fedjo !! habe es jatz auch bei den anderen freigegeben !!!
abe bekomme immer noch den fehler !!
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden !!!
was mache ich falsch ???? oder muß ich meine makros irgend wie noch ändern ???
das tabellen blatt ist zusätzlich auch noch mit einem Passwort geschützt.. aber in meinen makros hebe ich es erst auf und am ende setze ich es wieder ein.
gruß nero.
abe bekomme immer noch den fehler !!
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werden !!!
was mache ich falsch ???? oder muß ich meine makros irgend wie noch ändern ???
das tabellen blatt ist zusätzlich auch noch mit einem Passwort geschützt.. aber in meinen makros hebe ich es erst auf und am ende setze ich es wieder ein.
gruß nero.
Antwort 9 von fedjo vom 01.02.2022, 17:39 Options
Hallo nero,
funktioniert dein Makro wenn nur du die Arbeitsmappe öffnest?
Gruß
fedjo
funktioniert dein Makro wenn nur du die Arbeitsmappe öffnest?
Gruß
fedjo
Antwort 10 von nero00022 vom 01.02.2022, 19:14 Options
hallo fedjo
nein auch wenn ich sie aleine öffne klappt es nicht , woran kann das liegen oder ist es nicht möglich makros auszuführen wen die arbeitsmappe freigegeben ist.... die tabelle wo die makros laufen ist auch noch schreibgeschützt... hat es damit was zu tun ???
also wenn sie nicht freigegeben ist laüft es ohne problemme ..
gruß nero.
nein auch wenn ich sie aleine öffne klappt es nicht , woran kann das liegen oder ist es nicht möglich makros auszuführen wen die arbeitsmappe freigegeben ist.... die tabelle wo die makros laufen ist auch noch schreibgeschützt... hat es damit was zu tun ???
also wenn sie nicht freigegeben ist laüft es ohne problemme ..
gruß nero.
Antwort 11 von fedjo vom 02.02.2022, 18:43 Options
Hallo Nero,
versuch es mal mit Arbeitsmappe und Blattschutz aufheben.
Gruß
fedjo
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 SubGruß
fedjo
Antwort 12 von nero00022 vom 05.02.2022, 05:18 Options
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
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
Ähnliche Themen
Makro für Auswahl aus Tabelle und Kopieren in leere Tabelle
JNS 27.10.2008 - 181 Hits - 4 Antworten
per Makro Tabelle durchsuchen und Ergebnis ausgeben
Petra65 05.06.2009 - 687 Hits - 10 Antworten
Makro auf aktive Tabelle beziehen
wmei 16.06.2009 - 125 Hits - 2 Antworten
Formel/Makro für erweiterbare Tabelle
Elbryan 08.07.2009 - 242 Hits - 10 Antworten
bestehendes Makro erweitern ... Abfrage ob Tabelle bereits vorhanden ist
Petra65 08.09.2009 - 284 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
