HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.274
- Office versie
- Office 365
Oké, had ik niet voorzien, maar columns.count is onbetrouwbaar.
Pak een leeg blad en vul eens alleen in cel E1 iets in.
Ps.
Onderstaande lijkt me betrouwbaarder.
Pak een leeg blad en vul eens alleen in cel E1 iets in.
Code:
msgbox Chr(ActiveSheet.UsedRange.Columns.Count + 65)
Ps.
Onderstaande lijkt me betrouwbaarder.
Code:
If ToggleButton1 Then Range("A3", Cells(3, Columns.Count).End(xlToLeft)).Name = "bereik"
For Each cl In Range("bereik")
Laatst bewerkt: