Loop Until
12.10.2005 13:01:30
Sebastian
Jetzt will ich aber beim Abrechen des zu öffnenden Files wieder an den Anfang der Abfrage springen und das solange bis ein File positiv ausgewählt wurde und geöffent wird. Kann mir jemand sagen wie das funktioniert. Vielen Dank für eure Hilfe.
Sub NEU()
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Dim SpeicherName As String
Dim OeffnenName As String
Dim wbkAlt As Workbook
Dim wbkNeu As Workbook
'
Application.ScreenUpdating = False
Set wbkAlt = ActiveWorkbook
Sheets("4 in 1 Previous").Visible = True
'
'Abfrage ob neue Verknüpfungdatei definiert werden soll
Qe = MsgBox("Bitte geben Sie die Vergleichsdatei des vorherigen Jahres an!", vbQuestion + vbOKOnly, "Source Definition")
OeffnenName = Application.GetOpenFilename("XLS Dateien (*.xls),", True, False)
'Sicherheitsabfrage
Qe = MsgBox("Soll die Datei " & Chr$(13) & OeffnenName & Chr$(13) & "als Vergleichsdatei ausgewählt werden?", _
vbQuestion + vbOKCancel, "Source Definition")
If Qe = vbCancel Then
Qe = MsgBox("Das Öffnen der Datei" & Chr$(13) & _
OeffnenName & Chr$(13) & _
" als Vergleichsdatei wurde abgebrochen," & Chr$(13), vbInformation + vbOKOnly, "Source Definition")
'
Else
Workbooks.Open Filename:=OeffnenName
Close #1
End If
'