Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem bei Verweisen mit Makros auf andere Datein

Problem bei Verweisen mit Makros auf andere Datein
16.05.2006 11:57:46
stefanseevetal
Hallo!
Ich arbeite mit mehreren Excel-Dateien in einem Ordner die ich durch Buttons/Makros miteinander versunden habe, bzw. ausrufen kann. Siehe Beispiel:

Sub zu_Inhaltverzeichnis()
Workbooks.Open Filename:=ThisWorkbook.Path & "\Inhaltsverzeichnis.xls"
End Sub

Ich habe nun das Problem, dass wenn ich z.B. in der Datei Inhaltsverzeichnis etwas eingetragen habe und noch nicht gespeichert habe, diesen Makro nicht ausführen kann, da er die Datei dann neu öffnen möchte und dann die Änderungen löscht.
Gibt es eine Möglichkeit, z.B. mit if-Anweisung, dass der Makro entweder
- die Datei öffnet (wie oben), wenn sie noch nicht offen ist oder
- nur wieder zurückspringt, wenn sie bereits offen ist?
Vielen Dank und Gruß,
stefanseevetal

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem bei Verweisen mit Makros auf andere Datein
16.05.2006 12:26:22
otto
Hi,
vielleicht so:
Dim Name
Name=ThisWorkbook.Path & "\Inhaltsverzeichnis.xls"
On Error GoTo aktivieren
Workbooks.Open Filename:=ThisWorkbook.Path & "\Inhaltsverzeichnis.xls"
aktivieren:
Workbooks Name.Activate
gruß otto
AW: Problem bei Verweisen mit Makros auf andere Datein
16.05.2006 12:58:41
stefanseevetal
Hallo Otto!
Leider funktioniert es nicht. Es gibt einen "Fehler beim Kompelieren, Unzulässige Verwendung einer Eigenschaft" bei Worksbooks Name.Activate
Wenn ich stattdessen
Windows("Inhaltsverzeichnis.xls").Activate
schreibe, funktioniert der Wechsel zwischen den beiden Dateien wie vorher. Es ist dann das gleiche Problem.
Excel fragt mich dann wieder, ob ich die Datei "Inhaltsverzeichnis" neu öffnen möchte und das dann die Daten dort wieder gelöscht werden.
Vielleicht hast Du noch eine Idee?
Danke und Gruß,
Stefanseevetal
Anzeige
AW: Problem bei Verweisen mit Makros auf andere Datein
16.05.2006 13:22:40
otto
Hi,
versuch mal
Dim Name
Name=ThisWorkbook.Path & "\Inhaltsverzeichnis.xls"
If Name = True Then GoTo aktivieren
Workbooks.Open Filename:=ThisWorkbook.Path & "\Inhaltsverzeichnis.xls"
aktivieren:
Windows("Inhaltsverzeichnis.xls").Activate
otto
funktioniert leider noch nicht
16.05.2006 13:43:17
stefanseevetal
Hallo Otto!
Vielen Dank für Deine Mühen!
Leider ist es aber nachwievor so, dass er mich fragt, ob er die Datei neu öffnen und den aktuellen Inhalt dabei löschen soll.
Gruß, Stefanseevetal
Es funktioniert - Danke!!!
16.05.2006 14:44:12
stefanseevetal
So, ich hab es rausgefunden:
Sub zu_Checkliste()
Dim sPfad As String
sPfad = ThisWorkbook.Path & "\P001_checkliste.xls.xls"
If DateiGeoeffnet(sPfad) = True Then
Windows("P001_chekcliste.xls").Activate
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\P001_checkliste.xls"
End If
End Sub

Private Function DateiGeoeffnet(DerPfad As String) As Boolean
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function

Es funktioniert! Vielen Dank für die Hilfe!
Gruß, Stefanseevetal
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige