Wat doen onderstaande VBA codes?

[ronald1986]

Mensen,

Ik ben op dit moment met een excel bestand van iemand anders bezig. Deze persoon heeft enkele stukken VBA code in zijn bestand staan. Van twee stukken weet ik niet zeker wat ze doen. Kan iemand mij misschien vertellen wat deze stukken code doen?

Deze code staat in het tabblad zelf:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Onderstaande code staat in een module:

Range("A3").Select
ffunction = Range("IT2").Value & Range("A1").Value & Range("IU1").Value
Selection.FormuleArray = _
     ffunction

Ik heb het idee dat het 2e stukje code een samengestelde formule uitvoerd in cel A3?

 

[Cobbe]

Hier een beetje uitleg:

' Deze code reageert als er een andere cel geselecteerd wordt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Cel A3 wordt geselecteerd
Range("A3").Select

' ffunction is een sleutel die een waarde haalt uit IT2 & A1 1 IU1 - dit is een samenvoegen van tekst
ffunction = Range("IT2").Value & Range("A1").Value & Range("IU1").Value

' de geselecteerde cel of het geselecteerde bereik krijgt die (ffunction)waarde
Selection.FormuleArray = ffunction

End Sub

Deze code doet hetzelfde:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.FormuleArray = Range("IT2").Value & Range("A1").Value & Range("IU1").Value
End Sub

 

[ronald1986]

Ok, duidelijk, maar wat zou het doel kunnen zijn van de code die in het werkblad staat en reageert als er een andere cel wordt geselecteerd?

 

[Cobbe]

De bedoeling van deze code is(kan zijn) dat er in een bereik telkens de wijziging te zien is die gebeurt in de 3 cellen opgenomen in de formule.

Zonder het bestand te zien is het moelijk om te weten wat de ontwerper bedoeld heeft.