Suchen/Ersetzen-Problem über VBA
And
nachfolgender Code läuft nur teilweise,
-Tabelle "Wartung" wird ausgelassen
-Blattschutz wird de- und aktiviert
-Bereiche werden markiert
aber das Ersetzen von "~*0,75" durch "" in einer Formel wird nicht ausgeführt.
die ~ habe ich wegen dem * der Multiplizieren bedeutet
die Ersetzenprozedur hab ich mit dem Macrorecorder aufgezeichnet
und da gehts.
bitte um Hilfe
Sub Schichtbuchaendern()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Wartung" Then GoTo a:
ws.Activate
ws.Unprotect "1234"
ws.Range("L29:L36,L96:L103,L163:L170").Select
ws.Range("L163").Activate
Selection.Replace What:="~*0,75", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ws.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
a:
Next
Application.ScreenUpdating = True
End Sub
Andreas
Anzeige