Avatar billede frederik_kromann Nybegynder
05. november 2004 - 11:09 Der er 10 kommentarer og
1 løsning

Sum.hvis med dynamisk sum_område

Jeg har en tabel med dagens transaktioner fra en kiosk og kolonne overskrifterne er f.eks. Slik, Is, blade hver række repræsenterer en dag.

Den formel jeg bruger ser således ud!
=SUM.HVIS(Data!$D:$D;$A8&" "&$A$2;Data!S:S)

Jeg vil meget gerne have Data!S:S udskiftet med en formel der udfra et felt hvor jeg selv kan indtaste (f.eks. Slik) søger rækkeoverskrifterne igennem og returnere den kolonne hvor Slik står.
Avatar billede frederik_kromann Nybegynder
05. november 2004 - 12:47 #1
df
Avatar billede frederik_kromann Nybegynder
05. november 2004 - 12:48 #2
Tror lige jeg vil lade spørgsmålet hænge lidt.
Avatar billede frederik_kromann Nybegynder
05. november 2004 - 12:49 #3
e
Avatar billede kabbak Professor
05. november 2004 - 23:53 #4
=SUM.HVIS(Data!$D:$D;$A8&" "&$A$2;INDIREKTE(J1))

Først navngiver du hver kolonne, brug navnene slik, is, blade. altså det samme som overskriften

Det gøres ved at makere kolonnen, så kan du se over i vinduet til celle adressen, at der står feks. H1 , klik derind, skriv navnet på overskriften og VIGTIGT tryk på enter.

Så er navnet på kolonnen lavet, det gøres så for alle de andre også.

INDIREKTE(J1))

ret J1 til den celle du vil tase ind i.

og så virker det
Avatar billede frederik_kromann Nybegynder
06. november 2004 - 11:40 #5
for fanden hvor er du sej, tusind trillioner tak.
Avatar billede kabbak Professor
06. november 2004 - 17:43 #6
hvis du er tilfeds, får du et svar

Angående J1 , ville det være smart at lave en liste i cellen.

Klik ind i din celle, som du skriver i
Vælg data > Datavalidering

Under tillad vælger du liste

i Kilde skriver du dine navne sådan

slik;is;blade  osv
tryk ok

nu får du en valgboks i cellen
Avatar billede frederik_kromann Nybegynder
06. november 2004 - 17:51 #7
Jeps så langt er jeg nået jeg har navngivet overskriftsområdet og bruger den som opslag. Det kræver dog at jeg også, som du nævner navngiver hver kolonne med overskriften.

Jeg kunne dog godt tænke mig at der fandtes en metode til at returnere kolonnen så det hele blev mere flexibelt. har f.eks. fundet den her søge fidus på eksperten, men den returnere hele celle referencen.

=ADRESSE(MIN(HVIS(A2:G8=A1;RÆKKE(A2:G8);""));MIN(HVIS(A2:G8=A1;KOLONNE(A2:G8);"")))
Avatar billede kabbak Professor
06. november 2004 - 19:56 #8
prøv denne funktion

den gælder for kolonnerne A - Z

Public Function FindKolonne(Område As Range, Kriterie As Range)
For Each c In Område
If c = Kriterie Then
FindKolonne = "$" & Chr(c.Column + 64) & ":$" & Chr(c.Column + 64)
Exit Function
End If
Next
End Function

Område A1:Z1      , det er overskrifterne
Kriterie = den celle du skriver i , J1 som i forslaget = din indtastnings celle

kaldes med =FindKolonne(A1:Z1;J1)

i formlen
=SUM.HVIS(Data!$D:$D;$A8&" "&$A$2;INDIREKTE(J1))
skal du lave J1 om til den celle du har den nye funktion i.
Avatar billede frederik_kromann Nybegynder
07. november 2004 - 11:03 #9
Mums det ser lækkert ud. Jeg havde dog lidt problemer med at få funktionen til at virke først, men efter jeg indsattet et Module så funker det. Meget fornemt, men jeg har lige en bøn eller to:

1) hvorfor kan den kun fungere med kolonnerne A-Z
2) og er det muligt og få den til at returnere arknavnet for resultatet. JEg står f.eks. i Ark1 og søger i arket data, så metoden ser sådan ud:
=findkolonne(data!a1:z1;b2) Så kan den nemlig kalde funktionen i et ark og søge i et andet.

Håber du kan hjælpe mig lidt med det. Jeg har nu arbejdet med økonomirapportering i en del år og den funktion som du lige har leveret kan hjælpe mig helt sindsygt meget.
Avatar billede kabbak Professor
08. november 2004 - 20:08 #10
ok, nu har jeg gjort hvad jeg kunne, med den sidste funktion.


Public Function FindKolonne(Område As Range, Kriterie As Range)
Dim A As String, B As String, D As Variant
For Each c In Område
If c = Kriterie Then
A = c.Address
D = Område.Worksheet.Name
For i = 1 To Len(A)
If IsNumeric(Mid(A, i, 1)) Then
B = Left(A, i - 2)
Exit For
End If
Next
FindKolonne = D & "!" & B & ":" & B
Exit Function
End If
Next
End Function
Avatar billede frederik_kromann Nybegynder
09. november 2004 - 21:53 #11
det er helt kanon tusind tak for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester