Zelle über if funktion ersetzen

[Noob55]

Nein die werden im selben Ordner gespeichert. Ich wollte nur meinen Nachnamen verstecken... hat wohl nicht so geklappt... :16:

[Noob55]

Hallo Uwe,

ich habe die Ursache des Fehlers wohl entdeckt. Wenn ich den Code laufen lasse dann verändern sich meine Daten im Workbook Umbenennungstool. Spalte A wird nach und nach mit der Nachbarzelle in Spalte B ersetzt. Gesucht wird im ActiveWorkbook nichts. Ich denke with wks.pageSetup beziehen sich die restlichen Funktionen auf den falschen Workbook. Wie kann ich für diesen Befehl den Bezug zum jetzt geöffneten Workbook sicherstellen? 

Grus
Ilyas

[Kuwer]

Hallo Ilyas,

teste es mal so:

Sub Dateien_nacheinander_oeffnen()
    Dim i As Long
    Dim cDir As String
    Dim lngcalc As Long
    Dim sPath As String
    Dim strAP As String
    Dim varLookup As Variant
    Dim wks As Worksheet
   
    With Application
        lngcalc = .Calculation
        strAP = .ActivePrinter
        .Dialogs(xlDialogPrinterSetup).Show
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    varLookup = Workbooks("Mappe2").Worksheets("Tabelle1").Cells(1).CurrentRegion.Value
    
    sPath = "C:\Users\ilyas\Desktop\Test\"
    cDir = Dir(sPath & "*.xls*")
    Do While cDir <> ""
        With Workbooks.Open(sPath & cDir)
        'aenderungen im Worksheet vornehmen
            For Each wks In .Worksheets
              For i = 2 To UBound(varLookup)
                wks.Cells.Replace What:=varLookup(i, 1), Replacement:=varLookup(i, 2), _
                  LookAt:=xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
                With wks.PageSetup
                  .LeftHeader = Replace(.LeftHeader, varLookup(i, 1), varLookup(i, 2))
                  .CenterHeader = Replace(.CenterHeader, varLookup(i, 1), varLookup(i, 2))
                  .RightHeader = Replace(.RightHeader, varLookup(i, 1), varLookup(i, 2))
                  .LeftFooter = Replace(.LeftFooter, varLookup(i, 1), varLookup(i, 2))
                  .CenterFooter = Replace(.CenterFooter, varLookup(i, 1), varLookup(i, 2))
                  .RightFooter = Replace(.RightFooter, varLookup(i, 1), varLookup(i, 2))
                End With
              Next i
            Next wks
            .Close True
        End With
        'naechste Datei lesen
        cDir = Dir
    Loop
    
    With Application
        .ActivePrinter = strAP
        .Calculation = lngcalc
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Gruß Uwe

[Noob55]

Hallo Uwe,

ich verstehe das nicht. Ich bin immer noch dabei nur ein Dokument zu verändern.
Warum lässt sich cells.Replace - also alle Zellen eines Worksheets in sekundenbruchteilen verändern während es bei den Kopf und Fußzeilen, welche im Grunde ja nur 6Zellen sind so viel länger. Ich bin mittlerweile bei 20 Minuten und mein Makro ist noch immer nicht beendet. Ich habe daran gedacht ob es sich in der Schleife verfängt aber dann würde es schon bei der Zellenüberschreibung passieren. Ich bin hier mittlerweile echt am verzweifeln.

[Kuwer]

Hallo Ilyas,

welchen Drucker hast Du denn ausgewählt in der Dialogbox?

Gruß Uwe

[Noob55]

auch den Microsoft XPS Document Writer.
Ich habe mich nun damit abgefunden und lass die Suche so lange laufen...
Die Aufgabe hat sich gerade nochmal um einiges verkompliziert, aber dafür erstelle ich ein neues Thema. Ich danke dir für all deine Hilfe:) Ohne dich hätt ichs nicht geschafft