Formel nicht schrittweise ändern- Makro ändern
10.01.2007 11:18:18
Daniel
Mit Hilfe des Forume habe ich vor einiger Zeit unten stehendes Makro geschrieben. Es ändert zwei Teile einer Formel ab. Leider passiert dies
nacheinander und sorgt im weiteren Schritt für kleinere Probleme.
Das jetzige Makro ändert in der Formel zum einen den Teil ?.entryTime.xxxxxx ab
und im nächsten Schritt den Teil ?.phase.OA auf ?.phase.ALL.
Kann man das, und wenn ja wie, so verändern, dass das alles in einem Schritt erfolgt. Also die Formel nur 1x verändert wird.
Vielen, vielen Dank für Hilfe!
Daniel
Sub Change_Phase()
Dim c As Range
Dim Was$, Punkt$, TT$
Was = "?entryTime."
With Sheets("OrderSheet")
For Each c In .Range("N4:N" & .Range("N65536").End(xlUp).row)
TT = c.Formula
If c.Offset(0, 5) = 1 And c.Offset(0, 1).Value = "ACTIVE" Then
If InStr(1, TT, Was) > 0 Then
Punkt = InStr(1, TT, Was) + Len(Was) - 1
c.Formula = Left(TT, Punkt) & "1"
c.Replace What:="?phase.OA", Replacement:="?phase.ALL", LookAt:=xlPart
c.Offset(0, 6) = "Changed Phase"
End If
End If
Next c
End With
End Sub
Anzeige