Über Makro Formeln in Dateien einfügen
20.08.2004 09:27:40
Torsten
mit dem nachfolgenden Code möchte ich in die im WS("FILES") aufgelisteten Dateien eine Formel einfügen in WS("RE18VJ").Range("H10"). Leider erscheint die unter errHandler eingetragene MsgBox, und ich habe keine Ahnung warum. Ist die Formel vielleicht falsch (soll sein: =Runden(Summe(B10:G10);0))
Könnt Ihr Euch das mal anschauen und mir behilflich sein?
Private Sub CommandButton1_Click()
If MsgBox("Sollen die Kostendateien jetzt aktualisiert werden?", vbYesNo) = vbYes Then
Dim i As Integer
Dim irow As Integer
Dim wbName As String
On Error GoTo errHandler
Application.ScreenUpdating = False
Application.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
Application.DisplayAlerts = False
Application.EnableEvents = False
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
With Sheets("RE18VJ")
.Visible = xlVisible
.Range("H10").FormularR1C1 = "=ROUND(Sum(RC[-6]:RC[-1]),0)"
.Visible = xlVeryHidden
End With
ActiveWorkbook.Save
ActiveWorkbook.Close , True
Next i
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
MsgBox "Dateien wurden aktualisiert", vbOKOnly
Application.ScreenUpdating = True
Else
End If
Exit Sub
errHandler:
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
MsgBox "Beim Update der Datei" & vbCr & wbName & vbCr & _
"ist ein Fehler aufgetreten!", vbCritical + vbOKOnly, "ABBRUCH!"
'ActiveWorkbook.Close , True
End Sub
Vielen Dank im voraus.
Gruß
Torsten