Re: Object verschieben o.Schatten
18.02.2003 23:05:25
Wolfgang
Hallo Rainer,
jetzt bin ich ganz konfus! Dafür fehlt mir einfach noch der richtige Durchblick. Ich setze im Moment den Befehl ganz am Schluß des Makros erst wieder auf =True.
Schau Dir doch bitte mal den Code an. Ist eigentlich eine Standart-Routine.Option Explicit
Dim varFileToOpen As Variant
Dim strMyFile As String
Dim strFileDOS As String
Private Function FileSpec(ByVal strFilter, ByVal strTitle) As Boolean
'Auswahl der Dateien
FileSpec = False
varFileToOpen = Application.GetOpenFilename(strFilter, , strTitle)
If varFileToOpen <> False Then
strMyFile = Dir(varFileToOpen)
If IsFileOpen(strMyFile) Then
Exit Function
End If
FileSpec = True
Else
MsgBox "Es wurde keine Datei ausgewählt.", vbInformation
End If
End Function
Private Function IsFileOpen(ByVal strMyFile) As Boolean
Dim WinOpen As Variant
IsFileOpen = False
For Each WinOpen In Windows
If WinOpen.Caption = strMyFile Then
MsgBox strMyFile & " Ist bereits geöffnet!", vbExclamation
IsFileOpen = True
Exit Function
End If
Next
End Function
Private Sub CommandButton1_Click()
Dim strFileFilter As String
Dim strFileTitle As String
Application.ScreenUpdating = False
strFileFilter = "Excel Dateien (*.xls;*.xlk),*.xls;*.xlk"
strFileTitle = "Wählen Sie die Datei aus"
If FileSpec(strFileFilter, strFileTitle) Then
Application.StatusBar = "Die ausgewählte Datei wird importiert " & varFileToOpen & "..."
Workbooks.Open Filename:=varFileToOpen
strFileDOS = Application.ActiveWorkbook.Name
'Prüfen und Verarbeitung der Monatsdaten
Ganz am Schluß setze ich wieder auf True
Was mache ich falsch dabei?
Danke
Gruß
Wolfgang