Listebox behält format nicht! & Werte bezug
12.11.2008 09:47:00
adrian
habe zwei kleine Probleme auf dessen Lösung ich noch nicht so ganz gekommen bin.
a) meine Listbox ändert immer ihr Aussehen, wenn ich nach dem öffnen des Excel Sheets auf Sie klicke bzw. aktiviere
Sie ist vom Typ ListBox1_GotFocus()
vll. liegt es ja am Typ, womit ich gleich bei meiner nächsten frage bin.
b) gibt es eine funktionierende alternative zu "GotFocus"?
mit "Initialize" und "Open" bzw. "Activate" mag es nicht so ganz klappen =(
bei diesen Alternativen lädt die Liste nicht gleich beim Öffnen der Mappe die Daten, was ich viel schöner finde wie erst beim anklicken.
Wäre super wenn ich auch eine kleine Erklärung dazu bekommen könnte =)
lg
adrian
hier mal die Liste:
Option Explicit
Private Sub ListBox1_GotFocus()
Dim Cell As Range
Dim tempVar()
Dim zaehler As Integer, i As Integer
zaehler = Worksheets("Philips (A)").Range("SupplierAs").Cells.Count
zaehler = zaehler + Worksheets("Philips (EU)").Range("SupplierEU").Cells.Count
zaehler = zaehler + Worksheets("Philips (US)").Range("SupplierUS").Cells.Count
ReDim tempVar(0 To zaehler, 0)
i = 0
With Me.ListBox1
.Clear
For Each Cell In Worksheets("Philips (A)").Range("SupplierAs")
If Cell "" Then
If IsNumeric(Application.Match(Cell, tempVar, 0)) = False Then
tempVar(i, 0) = Cell.Value
.AddItem Cell.Value
i = i + 1
End If
End If
Next
For Each Cell In Worksheets("Philips (EU)").Range("SupplierEU")
If Cell "" Then
If IsNumeric(Application.Match(Cell, tempVar, 0)) = False Then
tempVar(i, 0) = Cell.Value
.AddItem Cell.Value
i = i + 1
End If
End If
Next
For Each Cell In Worksheets("Philips (US)").Range("SupplierUS")
If Cell "" Then
If IsNumeric(Application.Match(Cell, tempVar, 0)) = False Then
tempVar(i, 0) = Cell.Value
.AddItem Cell.Value
i = i + 1
End If
End If
Next
End With
End Sub