For Next Schleife umschreiben
Alex
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage nun mit NEIN beantwortet, wird am Ende der For NEXT-Schleife der Parameter trotzdem auf True gesetzt.
Wie kann ich das umgehen bzw. wie verpacke ich die ForNextSchleife in eine If Then anweisung..?
(hoffentlich versteht mich hier einer...)
For Each oFILE In oFLDR.Files
'/* Wenn Datei bereits existiert
If oFILE = strPathT & strFileT Then
'/* Wenn Datei geöffnet, schließen
If IsWorkbookOpen(strFileT) Then
Workbooks(strFileT).Close
End If
'/* Fragen, ob Datei überschrieben werden soll
strMsg = "Achtung, Datei existiert bereits" & vbCrLf & _
vbCrLf _
& "Soll die Datei überschrieben werden?"
If MsgBox(strMsg, vbYesNo, "Dateiproblem!") = 6 Then
bolCopy = True
End If
Else
bolCopy = True
End If
Next oFILE
bolCopy = True