Hallo Andreas
ich lese aus deinem Beitrag das Du die Datei mit open öffnets.Schreibe Vor die Zeil mit Open
On Error Resume Next und danach On Error Goto 0
Gruß Hajo
Hallo Andreas
ich lese aus deinem Beitrag das Du die Datei mit open öffnets.Schreibe Vor die Zeil mit Open
On Error Resume Next und danach On Error Goto 0
Gruß Hajo
hallo
komme leider mit dem lösungsvorschlag nicht klar, wo muss ich die änderungen vornehmen?
danke
Sub Nach_Warteliste_kopieren()
Cells.Select
Workbooks.Open Filename:= _
"E:\Andi\Warteliste.xls"
Sheets("Tabelle2").Select
Application.CutCopyMode = False
ActiveSheet.Unprotect "test"
Cells.Select
Windows("adresse.xls").Activate
Selection.Copy
Windows("Warteliste.xls").Activate
ActiveSheet.Paste
Selection.Font.ColorIndex = 2
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
ActiveSheet.Protect "test"
Windows("adressen.xls").Activate
Range("A1").Select
Windows("Warteliste.xls").Activate
Sheets("Warteliste").Select
End Sub
Hallo Andreas
Gruß Hajo
hallo, das habe ich probiert. leider hat es nichts gebracht, denn das ergebnis ist das selbe. den die meldung "warteliste.xls ist bereits geöffnet. wenn sie es erneut öffnen, dann verlieren sie alle änderungen welche sie eingegeben haben. soll warteliste.xls erneut geöffnet werden? ja / nein. wenn ich dann auf nein klicke, erhalte ich eine fehler im makro in der zeile(Sheets("Tabelle2").Select)
es sollte aber die neue aufgabe ausführen ohne, die offene liste zu überschreiben.
gruss andi
Hallo Andreas
Mit folgendem Code wird die Datei erneut geöffnet damit gehen aber die Veränderungen in der geöffneten Datei verloren. (Vielleicht solltes du sie vorher speichern)
oder folgender anderer Ansatz
225. Prüfen ob Datei schon offen
Private Sub Workbook_Open()
For Each x In Workbooks
If x.Name = "test.xls" Then
MsgBox "Datei ist schon geöffnet!"
GoTo weiter
End If
Next
MsgBox "Test wird automatisch geöffnet!"
Workbooks.Open FileName:="C:\Eigene Dateien\Test.xls"
weiter:
End Sub
Gruß Hajo
war der meinung, dass ich diese frage schon einmal im formum gelesen habe, habe diese aber nicht gefunden.
währe super, wenn mir jemand helfen könnte
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen