spalten mit werten aus Listbox ausblenden
marco
ich versuche mich momentan Werte direkt aus einer Listbox zu übernehmen und bei einer nicht Übereinstimmung die Spalte auszublenden.
Nun übernimmt zwar der Code "ListBox3.List(i) " den Wert aus der Listbox , aber die Spalten mit dem gleichen Wert wird auch ausgeblendet.
Meine Frage: geht sowas überhaupt? Oder welchen fehler mache ich?
Anbei mein Code:
Private Sub CMD14_Click()
Dim ilastcolumn As Integer, spalten As Integer, FW(1) As String, scd As Variant, i As Integer
ilastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column
Set scd = CreateObject("Scripting.Dictionary")
For spalten = 3 To ilastcolumn
For i = 0 To ListBox3.ListCount - 1
scd(ListBox3.List(i)) = 1
'Wenn der markierte Eintrag nicht gefunden wurde, dann spalte ausblenden
If Mid$(Cells(1, spalten), 4, 1) = "9" Then
If Mid$(Cells(1, spalten), 10, 6) ListBox3.List(i) Then
Columns(spalten).EntireColumn.Hidden = True
End If
ElseIf Mid$(Cells(1, spalten), 10, 6) ListBox3.List(i) Then
Columns(spalten).EntireColumn.Hidden = True
End If
Next
Next spalten
End If
End Sub
Anzeige