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