Goededag,
Heb een voorbeeldbestand van gast0660 aangepast om mijn probleem te duiden.
Het voorbeeldbestand is uitgebreid met een MultiPage met 2 Pages waarop de
bestaande Data en verder met Page Dieren. Heb tevens een werkblad Dieren aangemaakt
met daarin een Tabel Dieren. Het bestaande werkblad is Data met Tabel Data.
Alleen de gegevens van werkblad Data zijn terug te lezen in ListBox1, dat is voldoende.
De reden van 2 Pages in mijn eigen bestand, is de overzichtelijkheid, in Page 1 zijn n.l.
20 kolommen en Page 2 zijn 47 kolommen in gebruik.
1) Wat ik wil bereiken, maar niet voor elkaar krijg, is dat als er in ListBox1
een naam geselecteerd wordt, alle gegevens van werkbladen Data en Dieren,
behorende bij de geselecteerde naam, worden verwijderd. Er zou eigenlijk een
soort koppeling gemaakt moeten worden om een Rij in blad Data te linken aan
een Rij in blad Dieren. Als er nu alleen in blad Data gegevens worden ingevuld
en in blad Dieren niet, dan komt bij een volgende invoer in blad Data gegevens
voor blad Dieren in de verkeerde Rij. (is wel logisch er wordt immers gezocht
naar de onderste lege Rij).
2) Voor het verwijderen zelf dacht ik de code van HSV hiervoor te gebruiken n.l.:
Deze code werkt prima, maar zoals gezegd verwijderd die alleen de gegevens uit
werkblad Data. (klopt wel omdat er alleen wordt verwezen naar werkblad Data).
3) Ik dacht het aantal Namen te tellen met de formule =AANTALARG($A$3:$A$10)
Deze formule is echter minder geschikt, immers als er 3 rijen worden verwijderd
veranderd ook de formule, van ($A$3:$A$10) in ($A$3:$A$7).
4) Een ander punt waar ik niet uitkom is dat in mijn eigen programma van de
beide werkbladen de Tabellen met filterknoppen soms spontaan veranderen in
Tabellen zonder filterknoppen. Is dit een bekend verschijnsel?
Sorry voor al deze vragen en hoop ze duidelijk te hebben verwoord.
Bij voorbaat hartelijk dank voor het meedenken en eventuele oplossingen.
Met vriendelijke groet,
Wim
Heb een voorbeeldbestand van gast0660 aangepast om mijn probleem te duiden.
Het voorbeeldbestand is uitgebreid met een MultiPage met 2 Pages waarop de
bestaande Data en verder met Page Dieren. Heb tevens een werkblad Dieren aangemaakt
met daarin een Tabel Dieren. Het bestaande werkblad is Data met Tabel Data.
Alleen de gegevens van werkblad Data zijn terug te lezen in ListBox1, dat is voldoende.
De reden van 2 Pages in mijn eigen bestand, is de overzichtelijkheid, in Page 1 zijn n.l.
20 kolommen en Page 2 zijn 47 kolommen in gebruik.
1) Wat ik wil bereiken, maar niet voor elkaar krijg, is dat als er in ListBox1
een naam geselecteerd wordt, alle gegevens van werkbladen Data en Dieren,
behorende bij de geselecteerde naam, worden verwijderd. Er zou eigenlijk een
soort koppeling gemaakt moeten worden om een Rij in blad Data te linken aan
een Rij in blad Dieren. Als er nu alleen in blad Data gegevens worden ingevuld
en in blad Dieren niet, dan komt bij een volgende invoer in blad Data gegevens
voor blad Dieren in de verkeerde Rij. (is wel logisch er wordt immers gezocht
naar de onderste lege Rij).
2) Voor het verwijderen zelf dacht ik de code van HSV hiervoor te gebruiken n.l.:
Code:
Sheets("Data").ListObjects("Data").ListRows(LB_01.ListIndex + 1).Delete
werkblad Data. (klopt wel omdat er alleen wordt verwezen naar werkblad Data).
3) Ik dacht het aantal Namen te tellen met de formule =AANTALARG($A$3:$A$10)
Deze formule is echter minder geschikt, immers als er 3 rijen worden verwijderd
veranderd ook de formule, van ($A$3:$A$10) in ($A$3:$A$7).
4) Een ander punt waar ik niet uitkom is dat in mijn eigen programma van de
beide werkbladen de Tabellen met filterknoppen soms spontaan veranderen in
Tabellen zonder filterknoppen. Is dit een bekend verschijnsel?
Sorry voor al deze vragen en hoop ze duidelijk te hebben verwoord.
Bij voorbaat hartelijk dank voor het meedenken en eventuele oplossingen.
Met vriendelijke groet,
Wim