Show/hide rutine løkke

Det kan gøres på mange måde. En kunne være:
------------------------------------------------------
dim ws as worksheet
set ws = thisworkbook.worksheets("Indtast navnet på arket her")

dim i as integer
i = 10

do while ws.range("A" & i) <> "Grand Total" and i < 10000
if ws.range("B" & i) <> "" then
ws.range("B" & i).showdetails = false
end if
i = i + 1
loop
------------------------------------------------------
Det er skrevet rent ud af hovedet, så tjek lige at den ikke brokker sig når du paster det ind i et modul.

Jeg har lagt et sikkerhedstjek ind, så Excel ikke går amok hvis den aldrig skulle finde "Grand Total" så systematikken virker fra og med linie 10 til linie 9.999. Skal dette ændres finder du nok ud af hvordan ;-)

Hej Iver

Det virker ( næsten for godt ), men det har nok ikke noget med din kode at gøre .... den skjuler mere end tilsigtet :-(

Jeg prøver lige et finde en årsag til det

Data består af følgende :

Axx  =  KundeNr
Bxx  =  KundeNavn
Cxx  =  Detail
Dxx  =  Detail
Exx  =  Detail
Fxx  =  Detail

For nogen af rækkerne gemmes detail også i kolonne B, altså kundenavn ... det er ikke hensigten ... jeg kan ikke umiddelbart se hvorfor den ikke gør det konsekvent men kun på nogen :-(

Kundenummer er unik, men kundenavn i kolonne B kan kodt optræde flere gange med identiske navne ...

Er det årsagen ???

Kan du sende mig et ark med nok data til at vise mig hensigt og fejl?

Selvfølgelig :-)

Giver du et svar ???

Svar ;-)

Tusin tak for hjælpen