Laufzeitfehler 13 Typen unverträglich
09.02.2005 10:50:48
Manuel
1 Worksheets("Main").Activate
2 Worksheets("Main").Range("A2:A2000").Activate
3 For Each zelle In Selection
4 If zelle.Value = "Ja" Then
5 n = n + 1
6 End If
7 Next zelle