Hi zusammen hoffe euch gehts gut. Habe wieder mal ein Problem mit einem Makro. Wäre schön, wenn mir jemand weiterhelfen könnte, da ich mich mit VBA nicht so sonderlich gut auskenne. Also ich habe mir folgendes Makro zusammengebastelt, was auch im Prinzip das macht was ich will.
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
'