Forklaring af makro

Din første antagelse er korrekt.  For i = 1 to betyder at der tælles "oppefra" indtil sidste række nås. Derfor TælM = TælM + 1.

Range("A" & TælM + 1).Value" placerer værdien i en række, der er 1 højere end den TælM har, altså den næste "ledige".

Ja, første del betyder, at der tælles oppe fra og ned til sidste udfyldte række.
Dette er knyttet til dit "ark 1". Den starter i cellen B1 og går en celle ned (next), indtil der ikke er udfyldt flere celler indfor det valgte interval.

TælM, TælT og TælO er knyttet til dit "Ark2".
Hver gang der er fundet en "mandag" på ark 1 lægges der 1 til din TælM.

TælM bruges til at angive den række vi indsætter den fundne værdi i på ark 2. Hver gang du har fundet en "mandag" forøges variablen med 1, så den næste "mandag" indsættes i cellen under (ellers ville den bare overskrive værdien  og du ville ende med kun at have sidste "mandag"'s værdi skrevet på ark 2).

TælM er en variable vi har fundet på, og derfor har den ingen værdi. (Værdi = 0)

Første mandag:
TælM = TælM +1 (værdi = 1)
Vi indsætter værdien i Kolonne A, Række TælM + 1  (Altså cellen A2)

Anden mandag:
TælM = TælM +1 (værdi = 2)
Vi indsætter værdien i Kolonne A, Række TælM + 1  (Altså cellen A3)

TælM er altså bare en værdi og sammensat med et kolonne bogstav har du et range.

Tak for svar begge to!
Jeg har bare et spørgsmål mere. Hvis jeg skal starte i at skrive  i cellen A3 istedet for A2 så hjælper det ikke at skrive TælM = TælM +2. Hvordan løses det?
Send  et svar!

Indsæt disse efter Dim TælO as Integer:

TælM = 1
TælT = 1
TælO = 1

Jeg tror ikke, det er nødvendigt at oprette et nyt spørgsmål, hvis du blot ønsker at få forklaret en løsning.