Suchen und Ersetzen in der ges. Mappe
09.01.2022 17:22:25
Andreas
benötige Hilfe bei einem Schulprojekt:
Es gibt eine Basisdatei, die mit Daten aus neuen Dateien gefüttert wird.
Ziel ist es hierbei per VBA die Funktion "Suchen und Ersetzen" für alle Tabellenblätter bis auf das Letzte anzuwenden.
Sub Datenaktualsieren()
Dim AP As String
Dim NP As String
Dim wks As Variant
For Each wks In ActiveWorkbook.Worksheets
If wks.Index ActiveWorkbook.Sheets.Count Then
AP = Sheets("Produktionsplanung").Range("M4").Value
NP = Sheets("Produktionsplanung").Range("M5").Value
Cells.Replace What:=(AP), Replacement:= _
(NP), LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
Exit For
Next
End Sub
Kann mir hierbei bitte jemand helfen?
Wie müsste eine Messagebox aussehen, die mir schlussendlich wiedergibt, wie viele Werte geändert wurden?
Viele Grüße & Danke