AW: Listboxeintrag per Makro markieren
24.01.2007 11:03:24
otto
H,
war ein kleines Missverständnis, ich möchte keine Auswahl in der Combobox, sondern beim ändern des wertes in der ComboBox aktualisiert sich die Listbox.
Hier der komplette Code, der 1. Teil dient nur dazu den Fehler beim löschen der Listbox abzufangen.
Private Sub ComboBox1_Change()
Dim arr() As Variant, Tmp As Variant, wks As Worksheet
Dim index As Integer
Dim X, iCount
Set wks = Sheets("Auftrag")
X = wks.Range("A65536").End(xlUp).Row
Tmp = wks.Range("A11:AB" & 11 + X)
X = X - 10
If ComboBox1 = "" Then
On Error GoTo weiter
ReDim arr(0 To 13, 0 To X - 1)
For index = 1 To UBound(Tmp, 1)
arr(0, iCount) = Tmp(index, 1)
arr(1, iCount) = Tmp(index, 3)
arr(2, iCount) = Tmp(index, 4)
arr(3, iCount) = Tmp(index, 5)
arr(4, iCount) = Tmp(index, 6)
arr(5, iCount) = Tmp(index, 7)
arr(6, iCount) = Tmp(index, 8)
arr(7, iCount) = Tmp(index, 9)
arr(8, iCount) = Tmp(index, 10)
arr(9, iCount) = Tmp(index, 11)
arr(10, iCount) = Tmp(index, 12)
arr(11, iCount) = Tmp(index, 25)
arr(12, iCount) = Tmp(index, 26)
arr(13, iCount) = Tmp(index, 27)
Next
arr = WorksheetFunction.Transpose(arr)
weiter:
Kundenauftrag.ListBox1.List = arr
Else
For index = 1 To UBound(Tmp, 1)
If LCase(Left(Tmp(index, 1), Len(ComboBox1))) = LCase(ComboBox1) Then
ReDim Preserve arr(0 To 13, 0 To iCount)
arr(0, iCount) = Tmp(index, 1)
arr(1, iCount) = Tmp(index, 3)
arr(2, iCount) = Tmp(index, 4)
arr(3, iCount) = Tmp(index, 5)
arr(4, iCount) = Tmp(index, 6)
arr(5, iCount) = Tmp(index, 7)
arr(6, iCount) = Tmp(index, 8)
arr(7, iCount) = Tmp(index, 9)
arr(8, iCount) = Tmp(index, 10)
arr(9, iCount) = Tmp(index, 11)
arr(10, iCount) = Tmp(index, 12)
arr(11, iCount) = Tmp(index, 25)
arr(12, iCount) = Tmp(index, 26)
arr(13, iCount) = Tmp(index, 27)
iCount = iCount + 1
End If
Next
End If
If iCount <> 0 Then
On Error GoTo ende
ListBox1.Column = arr
End If
ListBox1.ColumnWidths = "80;65;55;20;60;20;100;70;40;40;35;80;40;70"
LabelMeldung.Caption = iCount & " Einträge"
ende:
End Sub
Wie kann ich danach den Eintrag in der ListBox per Makro markieren, der den Wert meiner Wahl enthält?
Gruß
otto