Vba hjælp

Rem række 1 til  angivelse af konto & resultat
Rem række 2 overskrifter
Dim antalRækker As Integer, kontoNr As Integer, totalStk As Integer
Public Sub optælKonto()
    kontoNr = Range("A1")
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    totalStk = 0
   
    For Each cc In Range("B3:D" & antalRækker)
        If cc.Value = kontoNr Then
            totalStk = totalStk + Cells(cc.Row, 1)
        End If
    Next
   
    Range("B1") = totalStk
End Sub

og så velkommen til Eksperten..

Hej supertekst

Virker perfekt - tusind tak :)

mvh
Jannik

Er det sådan jeg giver point ?

Fint  det virker.

Vedr. point - Nej - du kan kun give point til en forslagsstiller, når denne har lagt et SVAR. Når du kommunikerer som opgavestiller, skal du anvende KOMMENTAR. Du skulle blot have ventet til der foreligger et eller flere SVAR. Så kan du AFVISE svar du ikke kan bruge og ACCEPTERE det svar, som løser dit problem.
Nu har du selv taget point og derved lukker du spørgsmålet.
Hvis du vil give point - så skal du oprette et nyt spørgsmål med titlen "Point til Supertekst" og henvise til dette spørgsmål.

OK - sorry, opretter et nyt med din forslået tekst.

Det skal du ikke - du er ikke den første... og bliver ej heller den sidste.. Det skal nok komme med øvelsen..