Definition eines Arrays
29.01.2007 13:34:16
Düppi
folgender Code funktioniert und liefert mir das gewünschte Ergebnis, nämlich wie häufig die Orte Guetersloh, Harsewinkel und Verl im Bereich C5:C52 vorkommen.
Nun möchte ich die Orte nicht im VBA-Code eingeben müssen, sondern ausschließlich im Tabellenblatt "Statistik".
Frage: Ist es möglich, das Array im folgenden Sinne zu definieren: ArrayGT = Array(Sheets"Statistik", Range("A1:A20") oder so ähnlich?
Danke für Eure Hilfe sagt Düppi.
Sub Ortezaehlen()
Dim AdresseGT As Range
Dim SummeGT As Integer
Dim ArrayGT, n, i
ArrayGT = Array("Guetersloh", "Harsewinkel, "Verl")
For n = 0 To UBound(ArrayGT)
For i = 1 To 48
With Sheets("Ausgaben")
Set AdresseGT = Worksheets("Ausgaben").Range("C5:C52")
Anzahl = Application.WorksheetFunction.CountIf(AdresseGT, ArrayGT(n))
End With
Next
SummeGT = SummeGT + Anzahl
Next
Range("C54") = SummeGT
End Sub