ich habe mir eine feine kleine Routine erstellt, die Zellen einer Zeile in eine ComboBox einliest. Diese ComboBox ist auf einer UserForm, die mittels Buttom ausgelesen wird. Bis dahin ist alles ein Selbstgänger gewesen...
Einige Zellen auf dem Tabellenblatt haben Text mit Zeilenumbruch (Alt + Return)...und die machen Probleme...
Die ComboBox wird als Filter eingesetzt und erkennt leider nicht den ComboBox Inhalt mit dem vergleichenden Inhalt auf dem Tabellenblatt an.
Hier der Code:
Private Sub CommandButton2_Click()
Dim z As Range
For Each z In Range("D3:AZ3")
If z.Value <> ComboBox2.Value Then
Columns(z.Column).Hidden = True
Else
Columns(z.Column).Hidden = False
End If
Next z
Range("D1").Select
End Sub
__________________________________________________________
Private Sub UserForm_Initialize()
Dim col2 As New Collection
Dim ycolumn As Integer
ycolumn = 4
Do Until IsEmpty(Cells(3, ycolumn))
col2.Add Cells(3, ycolumn), Cells(3, ycolumn)
If Err = 0 Then
ComboBox2.AddItem Cells(3, ycolumn)
Else
Err.Clear
End If
ycolumn = ycolumn + 1
Loop
On Error GoTo 0
ComboBox2.ListIndex = 0
End Sub
________________________________________________-
Bin für jeden Tipp dankbar!