Spalten einblenden
RainerK
stehe mal wieder vor einem Problem und benötige Hilfe.
In einer UF wird mir für eine ListBox eine Vorauswahl mit diesem Code getroffen:
For iCol = 8 To iColL
If Cells(7, iCol).Value = "ja" Then lstBox1.Selected(iCol - 8) = True
Next iCol
Die endgültige Auswahl wird dann mit diesem Code angezeigt:
For iLst = 0 To lstBox1.ListCount - 1
If lstBox1.Selected(iLst) Then
Columns(iLst + 8).Hidden = False
End If
Next iLst
Wie schaffe ich es, dass mir die Spalten ohne die UserForm eingeblendet werden?
Zusammenstellen geht ja nicht, da die ListBox fehlt.
Gruß RainerK
Anzeige