Hallo,
Ik ben een VBA beginner en loop tegen een probleempje aan. Ik hoop hier een oplossing te vinden.
Ik werk aan een standaard excel (gegevens en selectie) bestand dat ik wil delen met anderen, om vervolgens toe te passen voor meerdere specifieke situaties.
Het standaard bestand geeft alle mogelijke opties die voor kunnen komen (voor de geïnteresseerden: de decompositie volgens de NEN2767 - conditiemeting gebouwde omgeving). In de specifieke situaties zijn alleen niet alle opties van toepassing.
In het bestand is het vervolgens de bedoeling dat gegevens verzameld worden onder subgroepen (bouwdelen) die vallen onder hoofdgroepen (elementen).
Ik heb een keuze veld (ja/nee) gemaakt per hoofdgroep. Is de hoofdgroep in het specifieke geval niet aanwezig, dan is het de bedoeling dat de gebruiker kiest voor "nee" waarna de subgroepen horend bij die hoofdgroep verborgen worden en de hoofdgroep grijs wordt. Zie volgende stukje code:
Private Sub Worksheet_Change(ByVal Target As Range)
'101 - Aandrijving en bewegingswerk Elektrohydraulisch
If Range("H9").Value = "Nee" Then
Rows("10:51").EntireRow.Hidden = True
Range("A9:G9").Font.Color = RGB(178, 178, 178)
Else
Rows("10:51").EntireRow.Hidden = False
Rows("9:51").EntireRow.Font.Color = vbBlack
End If
Hierbij is cel H9 het keuzeveld Ja/Nee, geeft rij 9 de hoofdgroep en geven rijen 10 t/m 51 de subgroepen onder de hoofdgroep van rij 9. Dit herhaalt zich vervolgens meerdere keren.
Als er nu een rij ingevoegd wordt boven rij 9 (en dat moet in mijn geval kunnen), dan schuift het keuzeveld in H9 naar H10. Bovenstaande code werkt dan echter niet meer omdat de Range en de Rows harde input is in de code en niet mee schuift naar de volgende rij/cel.
Ik ben nu op zoek naar een mogelijkheid om bovenstaande code aan te passen zodanig dat invoegen en verwijderen van regels wel doorwerkt in bovenstaande code. Dus soort van dynamische code
Ik ben heel benieuwd of iemand mij hiermee kan helpen.
Dank alvast!
Ik ben een VBA beginner en loop tegen een probleempje aan. Ik hoop hier een oplossing te vinden.
Ik werk aan een standaard excel (gegevens en selectie) bestand dat ik wil delen met anderen, om vervolgens toe te passen voor meerdere specifieke situaties.
Het standaard bestand geeft alle mogelijke opties die voor kunnen komen (voor de geïnteresseerden: de decompositie volgens de NEN2767 - conditiemeting gebouwde omgeving). In de specifieke situaties zijn alleen niet alle opties van toepassing.
In het bestand is het vervolgens de bedoeling dat gegevens verzameld worden onder subgroepen (bouwdelen) die vallen onder hoofdgroepen (elementen).
Ik heb een keuze veld (ja/nee) gemaakt per hoofdgroep. Is de hoofdgroep in het specifieke geval niet aanwezig, dan is het de bedoeling dat de gebruiker kiest voor "nee" waarna de subgroepen horend bij die hoofdgroep verborgen worden en de hoofdgroep grijs wordt. Zie volgende stukje code:
Private Sub Worksheet_Change(ByVal Target As Range)
'101 - Aandrijving en bewegingswerk Elektrohydraulisch
If Range("H9").Value = "Nee" Then
Rows("10:51").EntireRow.Hidden = True
Range("A9:G9").Font.Color = RGB(178, 178, 178)
Else
Rows("10:51").EntireRow.Hidden = False
Rows("9:51").EntireRow.Font.Color = vbBlack
End If
Hierbij is cel H9 het keuzeveld Ja/Nee, geeft rij 9 de hoofdgroep en geven rijen 10 t/m 51 de subgroepen onder de hoofdgroep van rij 9. Dit herhaalt zich vervolgens meerdere keren.
Als er nu een rij ingevoegd wordt boven rij 9 (en dat moet in mijn geval kunnen), dan schuift het keuzeveld in H9 naar H10. Bovenstaande code werkt dan echter niet meer omdat de Range en de Rows harde input is in de code en niet mee schuift naar de volgende rij/cel.
Ik ben nu op zoek naar een mogelijkheid om bovenstaande code aan te passen zodanig dat invoegen en verwijderen van regels wel doorwerkt in bovenstaande code. Dus soort van dynamische code
Ik ben heel benieuwd of iemand mij hiermee kan helpen.
Dank alvast!