Über UF sollen Spalten aus-/eingeblendet werdenn
edie
nach langem Herumsuchen habe ich folgenden Code gefunden, nun mehr als Ansatz.
Bitte helft mir bei der Aufgabe, ich krieg das nicht hin, das Beispiel so anpassen, dass die selektierte Spalte aus der ListBox je nach Zustand aus oder ungekehrt eingeblendet wird.
Hier der Code, es werden die Spalten nur ausgeblendet zudem die Nachbarspalte
wiederum eingeblendet.
Es funktioniert nun mal nicht korrekt, so das eine bestimmte Spalte aus bzw. eingeblendet wird.
Private Sub lstColumns_Change()
Dim iCounter As Integer
For iCounter = 0 To lstColumns.ListCount - 1
If lstColumns.Selected(iCounter) Then
Columns(iCounter + 1).Hidden = True
Else
Columns(iCounter + 1).Hidden = False
End If
Next iCounter
End Sub
Private Sub UserForm_Initialize()
lstColumns.Column = Range("A1").CurrentRegion.Rows(1).Value
End Sub
Hier das Wunschdenken:
In einer ListBox werden die Namen der Spalten aus der Zeile (1) eingelesen und beim klick
auf eine bestimmte Spalte soll die ausgeblendet werden. Wenn aber die Spalte bereits ausgeblendet ist soll die Spalte eingeblendet werden.
Besten Dank für die Hilfe. Grüße
Anzeige