VB i Excel

I hvilket program kører din externe database?

Mugs

C5...Jeg har oprettet en DSN forbindelse som hedder \"c5\"....

Ligger varenumrene i regnearket på forhånd ?
altså i en lidte i regnearket og på baggrund af den liste vil du have summen af det solgt antal placeret i kolonne 5..?

I så fald ville jeg gøre som følgende :

sub main()

on error goto errorhandler

dim con as connection
dim rs as recordset
set con=new connection

con.open \"DSN=c5;UID=usernavn;PWD=password\"

range(cells(1,2),cells(1,2).end(xldown)).select

for each cl in selection

set rs=con.execute(\"SELECT sum(antal) from [Tabel] WHERE Varenummer=\'\" & cl & \"\'\")

if not rs.eof then
  cl.offset(0,5)=rs(0)
else
  cl.offset(0,5)=0
end if

next cl

msgbox \"Data hentet !\",vbokoknly,\"Datahentning\"
end

errorhandler:
  resume next

end sub

Såfremt der kun ligger et varenummer i regnearket, så kunne man forvente at antallet skulle opdateres, ligesåsnart at du har ændret det varenummer, der står i celle B1, så kan du efterfølgende lave følgende stump i vba-modulet til det aktuelle ark :

Private Sub Worksheet_Change(ByVal Target As Range)

if target.addresslocal=\"$b$1\" then
  main
end if

End Sub

Dette vil gøre, at i det øjeblik du har ændret indholdet af celle B1, så vil den køre programmet i sub main....

men det er natuligvis kun et forslag....

Kender intet til C5 - bakker ud

migs