Kurze Frage zu Array
27.11.2014 16:19:18
Gregor
Mit folgendem Array will ich für Vorlage1, 2 usw. die Summe eruieren, das heisst Vorlage1 = Zähler aus Array 1, usw.
Wie muss ich den folgenden Code ergänzen?
Sub Zählen()
Zähler = 0
With Worksheets("Blatt 1")
IntLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Start = 0 To 5
EVU = Array("Muster1", "Muster1", "Muster1", "Muster1", "Muster1", "Muster1")
For Start1 = 2 To IntLastRow
If Application.CountIf(Worksheets("Blatt 1").Range(Worksheets("Blatt 1").Cells( _
Start1, 5), Worksheets("Blatt 1").Cells(Start1, 10)), EVU(Start)) > 0 Then
Zähler = Zähler + 1
End If
Next Start1
Vorlage1 = Zähler
Vorlage2 = Zähler
Vorlage3 = Zähler
Vorlage4 = Zähler
Vorlage5 = Zähler
Vorlage6 = Zähler
Next Start
End With
End Sub
Danke und Gruss$Gregor