Office: Listbox Sortierung

Hallo Ingo,

du meinst sicherlich Application.Caller.
Ich weiß nicht, ob es Sinn macht alles bereits Vorhandene nochmals mit viel Aufwand umzubauen.
Es gibt auch noch die Möglichkeit die vorhandenen ActiveX Buttons in eine Klasse einzulesen, um damit die Klickevents auszuwerten um die beiden Variablen entsprechend zu befüllen.
Die beiden Public Variablen rate ich dir aus Stabilitätsgründen via Property isoliert zu halten. Dies verhindert vor allem bei Verwendung von Klassen ungewollte Fehler bis hin zum Abschmieren der Klasse. Ich nutze diesen Weg grundsätzlich (außer aus Schreibfaulheit in Foren) statt mit Public Variablen zu arbeiten.
ins allgemeine Modul:

Code:

Option Explicit
Private m_cellAddress      As String
Private m_cellAddress1     As String

Property Let cellAddress(cellAddress As String)
    m_cellAddress = cellAddress
End Property

Property Get cellAddress() As String
    cellAddress = m_cellAddress
End Property

Property Let cellAddress1(cellAddress1 As String)
    m_cellAddress1 = cellAddress1
End Property

Property Get cellAddress1() As String
    cellAddress1 = m_cellAddress1
End Property

Gruß Uwe

 

Hallo Uwe,
ich habe mir den Code angeschaut und nicht den Hauch einer Ahnung was du da machst. Dann dachte ich mir ich lass mir das von der KI erklären und was soll ich sagen das begreife ich nie aber egal ich habe deine Code eingefühgt und er funktioniert ausgezeichnet echt Top die Startzeit ist viel viel schneller.
Das Problem mit der Sortierung habe ich über die suchFunktion des Textfeldes gelöst habe den Tabellennamen gekürzt bis auf die Zahl dann mit den Listbox einträgen gefiltert wie bei einer eingabe ins Suchfeld und ein zusätzlichen Button um alle unterrichte anzuzeigen installiert.
Sprich ich bin fertig und bedanke mich bei allen die an meinem Problem mitgewirkt haben und hier im besonderen OliMax.
danke nochmals
Gruß Ingo