aus Datei andere Datei öffnen

Sub Postwertzeichen_Basis_öffnen_ohne_Workbook_Open() Dim wb As Workbook Dim wksH As Worksheet Dim PfadBasis As String Dim NameBasis As String Dim wbBasis As Workbook Set wb = ThisWorkbook Set wksH = wb.Worksheets("Hilfstabelle") PfadBasis = wksH.Range("X20") 'Debug.Print PfadBasis NameBasis = wksH.Range("X26") 'Debug.Print NameBasis If WBOpen(NameBasis) Then MsgBox NameBasis & " bereits geöffnet!", , "Hinweis" Exit Sub Else Application.EnableEvents = False Set wbBasis = Workbooks.Open(PfadBasis & NameBasis) Application.EnableEvents = True End If Set wbBasis = Nothing Set wksH = Nothing Set wb = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yal,
das Gegenteil ist der Fall. Ich weiss nicht warum aber manchesmal öffnet die Datei mit dem Hinweis in der Kopfzeile "Name der Datei - Excel" mit dem Hinweis in Klammer (Schreibgeschützt). Wenn dies nun der Fall ist, soll dieser Schreibschutz ausgeschaltet werden. Denn diese Datei kann nicht bearteitet werden, was jedoch in diesem Fall gewünscht ist.
Ich möchte daher einbauen, wenn Schreibgeschützt dann aufheben sonst nicht.
Ich habe für das Öffnen folgenden Code:


Function IsWorkbookOpen(fn As String) As String
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) Like UCase(fn) Then
IsWorkbookOpen = wb.Name
Exit Function
End If
Next wb
IsWorkbookOpen = ""
End Function
'eingebaut in UF_Buchung_auswählen
'funktioniert mit Variable und Öffnen ohne Schreibschutz
Sub Prüfen_PostwertzeichenBasis_geöffnet_und_öffnen()
Dim wb As Workbook
Dim wksH As Worksheet
Dim PfadBasis As String
Dim NameBasis As String
Dim wbBasis As Workbook
Dim fn As String                'benötigt für Prüfung IsWorkbookOpen
Set wb = ThisWorkbook
Set wksH = wb.Worksheets("Hilfstabelle")
PfadBasis = wksH.Range("X20")
'Debug.Print PfadBasis
NameBasis = wksH.Range("X26")
'Debug.Print NameBasis
fn = IsWorkbookOpen(NameBasis)
If fn = "" Then
MsgBox "Die Datei ist nicht geöffnet!"
Application.EnableEvents = False
On Error Resume Next
Set wbBasis = Workbooks.Open(PfadBasis & NameBasis)
If Err.Number > 0 Then MsgBox Err.Description
On Error GoTo 0
Application.EnableEvents = True
Exit Sub
Else
MsgBox "Die Datei " & fn & " ist geöffnet."
End If
Set wbBasis = Nothing
Set wksH = Nothing
Set wb = Nothing
End Sub

Hast Du hierfür einen Rat?
Gruss
Peter

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

aus Datei andere Datei öffnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread