Frage an Klaus Schubert - Rückfrage zu seiner Lösu
20.08.2003 09:58:25
Torsten K.
nochmals schönen Dank für Deine Hilfe.
Leider funktioniert der Code bei mir nicht recht:
Nach der Abfrage, ob mit dem Löschen begonnen werden soll, springt er sofort
weiter zur Meldung, daß der Vorgang abgeschlossen ist, ohne jedoch nur eine
Datei angefasst zu haben.
Hier ist der Code:
Sub PCA_Delete()
Dim nameDatei As String
Dim ws(1 To 3) As String
Dim i1 As Integer
Dim i2 As Integer
Const Pfad As String = "E:\GWS\Moabschl\2003\Analysen\Kostenkontrolle\08_2003"
ws(1) = "RE1-xVJ": ws(2) = "RE1-xLJ": ws(3) = "BU1-xLJ"
Application.ScreenUpdating = False
If MsgBox("Löschvorgang beginnen?" & vbCr & "Dieser Vorgang dauert einen Moment!", _
vbQuestion + vbOKCancel, "Löschen") <> vbOK Then Exit Sub
For i1 = 108 To 112 Step 2
nameDatei = Dir(Pfad & i1 & "*.xls")
Do While nameDatei <> ""
Workbooks.Open nameDatei
For i2 = 1 To 3
Sheets(ws(i2)).Range("B5:G5,A6:G250").Select
Range("A6").Activate
Selection.ClearContents
Range("A6").Select
Next i2
ActiveWorkbook.Close savechanges:=True
nameDatei = Dir()
Loop
Next i1
MsgBox "Löschvorgang abgeschlossen!", vbOKOnly
Application.ScreenUpdating = True
End Sub
Kannst Du hier bitte nocheinmal drüberschauen und mir einen Tipp geben.
Schönen Dank im voraus.
Gruß
Torsten