AW: @Ewald: Datensatz
03.09.2014 11:32:18
Ewald
Hallo Larry,
führe mal die drei folgenden Makros der Reihe nach aus
Sub auslesen()
Dim x
Dim arrErg
Dim Dic As Object
Dim myarr
myarr = Range(Cells(1, 2), Cells(72, 8))
Set Dic = CreateObject("Scripting.dictionary")
For Each x In myarr
Dic(x) = 0
Next
arrErg = WorksheetFunction.Transpose(Dic.Keys)
Cells(1, 10).Resize(UBound(arrErg, 1) - LBound(arrErg, 1) + 1, 1).Value = arrErg
End Sub
Sub suchen()
Dim c
Dim i
For i = 1 To 176
For Each c In [B1:H72]
If c.Value = Cells(i, 10).Value Then
c.Interior.ColorIndex = 4
Exit For
End If
Next
Next i
End Sub
Sub zählen()
Dim c
Dim i
For Each c In [B1:H72]
If c.Interior.ColorIndex = 4 Then
i = i + 1
End If
Next
Cells(3, 11).Value = i
End Sub
Nach dem ersten Makro nur die Spalte J aufsteigend sortieren und die zwei anderen Makros starten.
In K3 siehst du die Anzahl eindeutiger Werte (176)
Im Zahlenbereich siehst das nur 2 Bögen die nur eindeutige Werte haben (Bogen 1 + 9)
Aus den Werten läßt sich erkennen das wahrscheinlich ab 219 die Stadiensticker sind (viermal vorhanden)
Gruß Ewald