Hallo,
Ik wil de rijen en kolommen op diverse bladen op dezelfde plaats vastzetten als op een "verzamelblad" het geval is.
Dit kan uiteraard als die plaats altijd bekend ("B4") zou zijn met bijv.:
Nu wil ik eerst kijken of FreezePanes op het verzamelblad aan staat en dan vaststellen wat het snijpunt is, zodat ik dat door kan voeren op de overige bladen"
Enig idee?
Bij voorbaat dank,
Jans
Ik wil de rijen en kolommen op diverse bladen op dezelfde plaats vastzetten als op een "verzamelblad" het geval is.
Dit kan uiteraard als die plaats altijd bekend ("B4") zou zijn met bijv.:
Code:
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
ws.Range("B4").Select
ActiveWindow.FreezePanes = True
NextNu wil ik eerst kijken of FreezePanes op het verzamelblad aan staat en dan vaststellen wat het snijpunt is, zodat ik dat door kan voeren op de overige bladen"
Code:
Sheets("Verzamelblad").select
If ActiveWindow.FreezePanes = True Then
snijpunt = ?????????????
verdere code als boven
End IfEnig idee?
Bij voorbaat dank,
Jans
