Hjælp til VBA søges

= TÆL.HVIS(Ark1!A:A;Ark2!A2)

Tæller alle ID i Ark1!A:A der er = ID i Ark2!A2

hej og tak for svaret.. jeg søger dog vba-koden til ovenstående, da jeg skal bruge værdierne senere...

/peter

A = WorksheetFunction.CountIf(Sheets("Ark1").Range("A:A"), Sheets("Ark2").Range("A2"))

tak for hjælpen.. prøver om jeg ikke kan få det til at virke..

mvh og fortsat god aften (nat :-))

/peter

Hej.. tak for hjælpen..! Opgaven volder mig dog stadigvæk problemer,
desværre..

Ved ikke om koden er helt rigtigt eller om det er bare er mig der ikke
rigtigt forstår den..!


Så vil lige skrive mine områder...


Ark1: BogId befinder sig i Range (A2:A39) (Hvor Id numrene listet 1 for
1 dernedaf)
        Bøger hjemme: her søges det at når bøger bliver modtaget,
vil kolonnen hjemme,stige med 1 ud fra den respektive BogId (samme
bøger kan komme flere gange!) Modtag har range (D2:D39), er pt. tom
men ønsket er at de nu skal opdateres med stk. antal der er kommet
hjem ud fra Ark 2.


Ark 2: BogId i ark 2 har Range(B2:B322), hver enkelt bog listes op og
hver linie afspejler en modtagelse, hvilket vil sige at samme BogId kan
komme flere gange..


Er måske lidt gentaget.. men syntes nu heller ikke det er den
simpleste opgave. Skal laves i VBA, da det på længere sigt skal kunne
udvides med Ventelister, og skal kunne modtage reservationer etc.


Mvh.


(-Peter-)

ER det et biblioteks udlån du prøver at lave, så må du jo også registrere dem der er ude.
Så hvordan er det registreret

Dette er ikke regisreret endnu, bliver det første senere.. lige nu er mit eneste mål at lave en funktion der kan få kolonnen "modtaget" til at stige med en for hver modtaget bog.. og dermed skal det kun registreres det ene sted...!

= TÆL.HVIS(Ark2!$B$2:$B$322;A2)
Jeg forstår ikke hvorfor du vil have det i VBA, når Excels indbyggede funktion kan gøre det.

Sæt denne formel ind i en celle i række 2 Ark1 og træk den nedad til række 39, så regner den det ud.

Det er fordi det er en skoleopgave hvor kravet er at det skal laves i VBA...!

Public Sub TælBøger()
    Dim I As Long, X As Long, Antal As Long
    Antal = 0    ' antal nulstilles
    For I = 2 To Sheets("Ark1").Range("A65536").End(xlUp).Row    ' Finder sidste række i Ark1 A kolonnen
        For X = 2 To Sheets("Ark2").Range("B65536").End(xlUp).Row    ' Finder sidste række i Ark2 B kolonnen
            If Sheets("Ark2").Cells(X, "B") = Sheets("Ark1").Cells(I, "A") Then    ' Sammenligner
                Antal = Antal + 1    ' tæller
            End If
        Next
        Sheets("Ark1").Cells(I, "D") = Antal    ' skriver antal i Ark1 D kolonnen
        Antal = 0    ' antal nulstilles
        ' næste bog
    Next
End Sub

tusinde tak for hjælpen.. det virkede med det samme uden problemer..

Ok, held og lykke med opgaven ;-))

husk at afslutte spørgsmålet, ved at markere mit navn i boksen til venstre og tryk accepter

TAK... og undskyld, troede jeg havde gjort det..!