if + 2 Bedingungen u. activecell anders ansprechen
10.01.2006 14:16:38
Peter
Ich bin wieder einmal am Berg!
Meine zwei Zeilen Code aus dem Makro von unten kann ich nicht verständlich codieren:
if (and(activecell = origdate);instr(range(activecell).Offset(0,3);"new") then
With Range(ActiveCell)
A)
das "if" ist an zwei Bedingungen geknüpft, nämlich, dass die aktive Zelle (wäre eigentlilch ".Cells(ZNr, 5)"?) mit dem Wert origDate übereinstimmt und dass in der 3. Spalte weiter rechts (".Cells(ZNr, 8)" ?) der String "new" enthalten ist.
B) bei "with range" möchte ich die aktive Zelle (.Cells(ZNr, 5) bearbeiten.
Bin trotz mehrmaligen Versuchen nicht zum Ziel gekommen. Kann mir jemand weiterhelfen?
Danke, Peter
Sub NewDate()
Dim nTag As Variant, _
nDate As Date, vDate As Date, origDate As Date, ZNr As Long
origDate = Range("navdate")
nDate = Range("navDate")
nTag = Weekday(nDate, vbMonday)
If nTag = 1 Then
nDate = nDate - 3
Else
nDate = nDate - 1
End If
ZNr = 5
Do While .Cells(ZNr, 5) <> ""
if (and(activecell = origdate);instr(range(activecell).Offset(0,1);"new") then
With Range(ActiveCell)
.ClearContents
.NumberFormat = "@"
.Value = CStr(nDate)
ZNr = ZNr + 1
End With
Else
End If
Loop
End Sub