Hallo zusammen,
Ich verwende Excel-Dateien mit bis zu 70 Tabellenblättern. Für alle Tabellenblätter soll ein Teil der Formel (z.B. Budget11 auf Budget12) ersetzt werden. Im Moment ersetze ich die Formel mittels der Funktion suche/ersetze für jede Datei, alle Tabellenblätter (Dauer 2-3 Stunden).
Ich benötige ein Makro, dass mir den Teil der Formel ersetzt für alle Tabellenblätter unabhängig davon wie die Tabellenblätter benannt sind.
Kann mir jemand helfen?
Danke und Grüße
Sabine
Mein Versuch (funktioniert nicht):
Sub ersetzen_alle()
’
’ ersetzen_alle Makro
’ Makro am 28.03.2012 von Sabine aufgezeichnet
’
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Cells.Replace What:=„Budget11“, Replacement:=„Budget12“, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub