Code bringt Typen unverträglich
30.10.2008 19:33:13
Reinhard
in einem anderen Forum wollte jmd. eine Lösung haben um in der folgenden Tabelle diejenigen Zeilen farblich zu markieren, wo pro Codezahl als Gruppe gesehen das kleinste Datum steht.
Tabellenblatt: H:\[kwendklapptnicht.xls]!Tabelle1 | A | B | 1 | Code | Datum | 2 | 379475 | 8. Okt | 3 | 379475 | 11. Okt | 4 | 379475 | 2. Okt | 5 | 379475 | 15. Okt | 6 | 379475 | 22. Okt | 7 | 379590 | 12. Okt | 8 | 379590 | 13. Okt | 9 | 379124 | 30. Sep | 10 | 379124 | 5. Okt | 11 | 379124 | 29. Sep | 12 | 379124 | 30. Okt | Zahlenformate der Zellen im gewählten Bereich: A1:A12 haben das Zahlenformat: Standard B1:B12 haben das Zahlenformat: T. MMM
Ich habe daraufhin diesen Code entwickelt:
Sub KleinstesDatum()
Dim Zei As Long, Von As Long, Bis As Long, K As Long, Z As Long
Von = 2
Bis = 2
Range("A:B").Interior.ColorIndex = xlNone
For Zei = 2 To Range("A" & Rows.Count).End(xlUp).Row
While Cells(Zei, 1) = Cells(Zei + 1, 1)
Zei = Zei + 1
Bis = Bis + 1
Wend
K = Application.Small(Range("B" & Von & ":B" & Bis), 1)
Z = Application.Match(K, Range("B" & Von & ":B" & Bis), 0)
Range(Cells(Von + Z - 1, 1), Cells(Von + Z - 1, 2)).Interior.ColorIndex = 34
Bis = Bis + 1
Von = Bis
Next Zei
End Sub
In meiner Testdatei klappt das auch problemlos, hier ist sie:
https://www.herber.de/bbs/user/56409.xls
aber in seiner Datei klappt das nicht, es kommt diese Fehlemeldung mit unverträglichen Typen, hier ist sie:
https://www.herber.de/bbs/user/56410.xls
Danke ^ Gruß
Reinhard