Hallo,
Ik heb een bestand met een VBA script (per tabblad) het bestand heeft echter 45 tabbladen en daarmee dus een heel groot aantal VBA scripts
Het script is er om automatisch regels te verbergen aan de hand van bepaalde cellen.
Het probleem wat hiermee ontstaat is dat het bestand ontzettend traag wordt.
Ik vroeg mij af wat de mogelijkheden hiertegen zijn:
- scripts samenvoegen tot 1 (groot) script op een blad die de hele werkmap beslaat?
- scripts aanpassen?
- andere manieren om regels automatisch zichtbaar en onzichtbaar te maken aan de hand van bepaalde cellen op een standaard tabblad (invoerblad)?
Het script ziet er als volgt uit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("c11:c693")
If c.Value = 0 Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False
End If
Next
End Sub
Dit script wordt toegepast op individuele tabs, waarbij het nodig is dat er regels verborgen worden.
Deze regels worden allemaal zichtbaar op het moment dat er op een Standaard tab iets ingevuld wordt.
Het standaardblad is een "template" voor de andere tabs..
Ik snap dat het handig is om er een voorbeeld bij te doen maar zou eerst wat reacties krijgen als dit mogelijk is.
Indien nodig upload ik het bestand wel (heb geen voorbeeld), al wacht ik hier liever mee.
Mvg,
Frank
Ik heb een bestand met een VBA script (per tabblad) het bestand heeft echter 45 tabbladen en daarmee dus een heel groot aantal VBA scripts
Het script is er om automatisch regels te verbergen aan de hand van bepaalde cellen.
Het probleem wat hiermee ontstaat is dat het bestand ontzettend traag wordt.
Ik vroeg mij af wat de mogelijkheden hiertegen zijn:
- scripts samenvoegen tot 1 (groot) script op een blad die de hele werkmap beslaat?
- scripts aanpassen?
- andere manieren om regels automatisch zichtbaar en onzichtbaar te maken aan de hand van bepaalde cellen op een standaard tabblad (invoerblad)?
Het script ziet er als volgt uit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Range("c11:c693")
If c.Value = 0 Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False
End If
Next
End Sub
Dit script wordt toegepast op individuele tabs, waarbij het nodig is dat er regels verborgen worden.
Deze regels worden allemaal zichtbaar op het moment dat er op een Standaard tab iets ingevuld wordt.
Het standaardblad is een "template" voor de andere tabs..
Ik snap dat het handig is om er een voorbeeld bij te doen maar zou eerst wat reacties krijgen als dit mogelijk is.
Indien nodig upload ik het bestand wel (heb geen voorbeeld), al wacht ik hier liever mee.
Mvg,
Frank