Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
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
Inhaltsverzeichnis

Öffnen von anderen Excel Dateien

Öffnen von anderen Excel Dateien
20.09.2008 09:00:00
anderen
Folgendes Problem:
Es besteht ein Makro, dass eine andere Datei öffnet.
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Alex\Desktop\1\Stammdaten.xls"
Sollte die Datei allerdings schon geöffnet sein, soll meine Bearbeitung in dieser geöffneten Datei
automatisch weitergehen.
Was kann ich machen.
Vielen Dank für Deine Hilfe.
Gruß
Alex

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Öffnen von anderen Excel Dateien
20.09.2008 09:14:00
anderen
Hallo Alex,
Beispiel:
Public Sub Beispiel()
    Dim objWorkbook As Workbook
    Dim blnFound As Boolean
    For Each objWorkbook In Workbooks
        If objWorkbook.Name = "Stammdaten.xls" Then
            blnFound = True
            Exit For
        End If
    Next
    If Not blnFound Then Workbooks.Open Filename:= _
        "C:\Dokumente und Einstellungen\Alex\Desktop\1\Stammdaten.xls"
End Sub

Gruß
Nepumuk
Anzeige
AW: Öffnen von anderen Excel Dateien
20.09.2008 10:01:16
anderen
Danke Nepomuk,
hat einwandfrei funktioniert. Klasse.
Gruß
Alex
AW: Öffnen von anderen Excel Dateien
20.09.2008 09:16:22
anderen
Hallo Alex,

Option Explicit
'* H. Ziplies                                     *
'* 05.02.08                                       *
'* erstellt von Hajo.Ziplies@WEB.de               *
'* http://Hajo-Excel.de
Dim BoOffen As Boolean
Dim StNetz as String
Sub Aufruf()
StNetz = ThisWorkbook.Path & "\"
Offen AuftragsNr & ".XLS"
If BoOffen = False Then Workbooks.Open Filename:=StNetz & AuftragsNr & ".XLS", Password:= _
StDatei
End Sub
Sub Offen(StName As String)
' Prüfen ob Datei auf
' Boffen = True Datei offen
BoOffen = False
For Each WbAm In Workbooks
If UCase(WbAm.Name) = UCase(StName) Then
BoOffen = True
Exit For
End If
Next
End Sub



Anzeige
AW: Öffnen von anderen Excel Dateien
20.09.2008 10:01:35
anderen
Danke Hajo,
hat einwandfrei funktioniert. Klasse.
Gruß
Alex

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige