Wenn Datei bereits geöffnet ist
22.12.2003 01:37:01
Stefan Glander
ich habe eine Checkbox mit folgendem Code belegt:
Private Sub CheckBox2_Click()
Dim sFile As String
sFile = "c:\TestData.xls"
If CheckBox2.Value = True Then
Application.ScreenUpdating = False
Workbooks.Open "c:\TestData.xls"
Workbooks("Mappe2").Activate
Worksheets("Tabelle1").Select
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
Else
Workbooks("TestData.xls").Close SaveChanges:=True
End If
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Würde jetzt aber gerne noch die Bedingung einbauen das bei "else vorher abgefragt ist ob die Datei überhaupt auf ist, da ich sonst eine Debug Meldung bekomme.
Wer kann helfen ?
Gruss
Stefan Glander