Sum af celler hvis.....

Hvilken version af Excel bruger du? Skal der stå initialer i alle tekstcellerne før der laves en sumformel?

Denne laver tjekket og kan gentages efter behov for øvrige celleområder:

=HVIS(OG(ER.TEKST(C1);LÆNGDE(C1)=2);D1;"")

Det kan givetvis laves mere elegant (=en kortere formel).

Hej Natkatten

Jeg bruger ver. 2007. Formlen skal sammentælle alle de celler, hvor de i cellen til venstre står 2 initialer. Den formel du har lavet, virker fint, kan du give et eksempel på, hvordan jeg lægger E1 og F1 ind i formlen?

Du kan bruge denne formel

=D3*(LÆNGDE(C3)=2)*ER.TEKST(C3)+F3*(LÆNGDE(E3)=2)*ER.TEKST(E3)+H3*(LÆNGDE(G3)=2)*ER.TEKST(G3)+J3*(LÆNGDE(I3)=2)*ER.TEKST(I3)+L3*(LÆNGDE(K3)=2)*ER.TEKST(K3)

eller bruge nedenstående makro

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sum1 As Long
sum1 = 0
For i = 3 To 11 Step 2
If (Len(Cells(1, i)) = 2) * (Application.WorksheetFunction.IsText(Cells(1, i))) = 1 Then
sum1 = sum1 + Cells(1, i + 1)
Else
End If
Next
Cells(1, 13) = sum1
End Sub

Du får lige formelen en gang til og denne gang fra den rigtige linie.

=D1*(LÆNGDE(C1)=2)*ER.TEKST(C1)+F1*(LÆNGDE(E1)=2)*ER.TEKST(E1)+H1*(LÆNGDE(G1)=2)*ER.TEKST(G1)+J1*(LÆNGDE(I1)=2)*ER.TEKST(I1)+L1*(LÆNGDE(K1)=2)*ER.TEKST(K1)

I forlængelse af #2:

=HVIS(OG(ER.TEKST(C1);LÆNGDE(C1)=2;ER.TEKST(E1);LÆNGDE(E1)=2;ER.TEKST(G1);LÆNGDE(G1)=2;ER.TEKST(I1);LÆNGDE(I1)=2;ER.TEKST(K1);LÆNGDE(K1)=2);D1+F1+H1+J1+L1;"")

Summerer kun hvis alle betingelser er opfyldt.

Til Jens48
Din formel i #4 virker perfekt :-)
Jeg kunne dog godt tænke mig at vide fordele og ulemper imellem makroen og formlen?

Til natkatten
Din sidste formel i #6 giver kun summen af cellerne såfremt der er 2 bogstaver i alle cellerne, det jeg har brug for er at den udregner summen af de celler hvor der er 2 bogstaver i cellen til venstre

Det er vel mest et temperamentspørgsmål om man vil bruge makro eller formel her. Som makroen står under #4 virker den dog kun på række 1, mens formelen umiddelbart kan kopieres til flere linier. Makroen kan med en mindre ændring også virke i andre linier.

Smider du et svar Jens48, så jeg kan komme af med lidt point og lukke tråden?

et svar