Re: Schleife - Ablaufgeschwindigkeit
28.12.2002 11:25:09
Friedrich
Hallo,
hab den Code mal eingefügt.Sub Schleife()
Dim Spalte As Object
Dim Zelle As Range
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
Dim f As Integer, g As Integer, h As Integer, i As Integer
Dim j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
Dim o As Integer, p As Integer, q As Integer, r As Integer, s As Integer
Dim t As Integer, u As Integer, v As Integer, w As Integer, x As Integer
Dim y As Integer
Set Spalte = Range("A4:A195")
For y = 1 To Worksheets.Count - 1
For Each Zelle In Spalte
If Zelle.Value = "Rudolf" Then a = a + 1
If Zelle.Value = "Wolpert" Then b = b + 1
If Zelle.Value = "Neumann" Then c = c + 1
If Zelle.Value = "Krüger" Then d = d + 1
If Zelle.Value = "Bohn" Then e = e + 1
If Zelle.Value = "Klink" Then f = f + 1
If Zelle.Value = "Heukeroth" Then g = g + 1
If Zelle.Value = "Schober" Then h = h + 1
If Zelle.Value = "Heiny" Then i = i + 1
If Zelle.Value = "Behrens" Then j = j + 1
If Zelle.Value = "Klossek" Then k = k + 1
If Zelle.Value = "Horstmann" Then l = l + 1
If Zelle.Value = "Uhlmann" Then m = m + 1
If Zelle.Value = "Heinz" Then n = n + 1
If Zelle.Value = "Basmaison" Then o = o + 1
If Zelle.Value = "Gmeiner" Then p = p + 1
If Zelle.Value = "Burda" Then q = q + 1
If Zelle.Value = "Berger" Then r = r + 1
If Zelle.Value = "Rehm" Then s = s + 1
If Zelle.Value = "Doser" Then t = t + 1
If Zelle.Value = "Leer1" Then u = u + 1
If Zelle.Value = "Leer2" Then v = v + 1
If Zelle.Value = "Leer3" Then w = w + 1
If Zelle.Value = "Leer4" Then x = x + 1
Next
Next
MsgBox (a & " " & b & " " & c & " " & d & " " & e & " " & f & " " & g & " " & h & " " & i & " " & j & " " & k & " " & l & " " & m & " " & n & " " & o & " " & p & " " & q & " " & r & " " & s & " " & t & " " & u & " " & v & " " & w & " " & x)
End Sub