Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Plausibiltätsprüfung datei

Plausibiltätsprüfung datei
22.09.2006 14:23:25
achim
Hallo Excel freunde
wer kann mal schauen und ergänzen?
Plausibilitätsprüfung
Ist die Datei 02_DFStrab.xls noch nicht geöffnet dann nach click öffnen,
wenn aber schon geöffnet dann mache nichts.
Habe das was ich schon habe als code eingestellt!!

Sub probe_click()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & "02_DFStrab.xls"
Workbooks.Open strPfad, Password:="test1"
End Sub

danke achim h.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Plausibiltätsprüfung datei
22.09.2006 14:54:44
Kurt
Hi,
Option Explicit

Private Function Mappe_offen(WbName As String) As Boolean
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = WbName Then
Mappe_offen = True
Exit Function
End If
Next
End Function

Sub probe_click()
Const MNAME As String = "02_DFStrab.xls"
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & MNAME
If Not Mappe_offen(MNAME) Then
Workbooks.Open strPfad, Password:="test1"
End If
End Sub
mfg Kurt
danke
22.09.2006 15:25:02
achim
hallo kurt
danke für die rückmeldung und der korkreten hilfe.
ein schönes wochenende
mfg
achim h.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige