Verschachtelung VBA
11.12.2003 10:46:47
Frank
ich folgendes Makro:
Sub Test1()
Dim z As Integer
Range("F9").Select
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone
If Left(ActiveCell.Value, 1) = "F" and ActiveCell.Offset(1, -5).Value = "Angestellter" and(or(activecell.Offset(4, 0)<>"U",activecell.Offset(4,0)<>"K")) _
Then z = z + 1
ActiveCell.Offset(28, 0).Select
Loop
MsgBox "" & z
End Sub
Es kommt immer die Meldung Syntaxfehler.
Gruß
Frank