In vielen Dateien Zellbezug in einer Formel ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
probier mal folgenden Code.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub replaceFormula()
Dim objFS As FileSearch
Dim objWb As Workbook, objSh As Worksheet
Dim strPath As String
Dim intIndex As Integer

On Error GoTo ErrExit
GMS

strPath = "F:\Temp" 'Ordner mit den Dateien - anpassen

Set objFS = Application.FileSearch

With objFS
    .NewSearch
    .LookIn = strPath
    .FileType = msoFileTypeExcelWorkbooks
    .SearchSubFolders = False ' Unterordner durchsuchen True/False

    If .Execute > 0 Then

        For intIndex = 1 To .FoundFiles.Count

            Set objWb = Workbooks.Open(.FoundFiles(intIndex))

            For Each objSh In objWb.Worksheets
                If objSh.Name = "Calculations" Then
                    With objSh.Range("HW2006")
                        If .FormulaArray = "=SUM(($D$78:$D$329=$G$73)*($B$78:$B$329<>Eingabe!$F$11)*(1*$E$78:$E$329))" Then _
                            .FormulaArray = "=SUM(($D$78:$D$329=$G$72)*($B$78:$B$329<>Eingabe!$F$11)*(1*$E$78:$E$329))"
                    End With
                    Exit For
                End If
            Next

            objWb.Close True

            Set objWb = Nothing

        Next

    End If

End With

ErrExit:
GMS True
Set objFS = Nothing
Set objWb = Nothing

End Sub

Sub GMS(Optional ByVal Modus As Boolean = False)

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    .Calculation = IIf(Modus, -4105, -4135)
    .Cursor = IIf(Modus, -4143, 2)
End With

End Sub

Gruß Sepp

Sub Korrektur() Dim Pfad As String Dim Datei As String Pfad = "C:\.......\" Datei = Dir(Pfad) Do Until Datei = "" If Right(Datei, 4) = ".xls" Then Workbooks.Open (Pfad & Datei) ActiveWorkbook.Range("HW2006").FormulaArray = "=SUM(($D$78:$D$329=$G$72)*($B$78:$B$329Eingabe!$F$11)*(1*$E$78:$E$329))" ActiveWorkbook.Close savechanges:=True End If Datei = Dir() Loop End Sub

Beliebteste Forumthreads (12 Monate)

In vielen Dateien Zellbezug in einer Formel ändern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

88 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In vielen Dateien Zellbezug in einer Formel ändern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

88 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread