AW: Erscheinung der Userform dauert
15.02.2006 13:13:46
Guido
Hallo Rene,
du hast recht, sobald die Userform aktiviert wurde, beginnt die Filterung nach Daten (Datum in Spalte S) und Aussortierung von doppelten Daten mit folgendem Code:
Private Sub UserForm_Activate()
Dim intRow As Integer
ThisWorkbook.Sheets("Registrierte Vorgänge").Range("S:S").AdvancedFilter xlFilterCopy, CopyToRange:=Range("AA2"), unique:=True
intRow = Cells(Rows.Count, 27).End(xlUp).Row
Range("AA2:AA" & intRow).Sort Key1:=Range("AA2"), Order1:=xlAscending
intRow = Cells(Rows.Count, 27).End(xlUp).Row
ComboBox1.List = Range("AA2:AA" & intRow).Value
End Sub
und das dauert. Dieser Code stammt ursprünglich von Herrn Herber persönlich, ist aber nicht ganz zuverlässig, da er immmer mal wieder Daten unterschlägt. Kennst du etwas besseres (schnelleres)?
Vielen Dank für deine Geduld.
Gruß
Guido