formule resultaat in een lege cel

[Blauwtje]

Hoi,

Ik heb een vraagje waar ik nergens mee terecht kan.

Graag had ik in D1 het resultaat van A1 * B1 waarbij ik de vermenigvuldigingsformule in C1 steek. (en in C2 de volgende...) Let wel in D1 mag enkel het resultaat komen te staan als A1 niet leeg is en in D1 mag geen formule staan.

Volgens mij is het een leuk probleempje.
Dank voor uw assistentie.

 

[Hans123]

Kopieer onderstaande regels naar het moduleblad achter het werkblad. Op dit blad wordt dan onderstaand code uitgevoerd, die doet wat er gevraagd werd.

Private Sub Worksheet_Change(ByVal Target As Range)
kolom = Target.Column
rij = Target.Row
If Target.Row = 1 Or Target.Row = 2 Then
A = Cells(1, kolom).Value
B = Cells(2, kolom).Value
If IsEmpty(A) Then Exit Sub
D = A * B
Cells(4, kolom).Value = D
End If
End Sub

 

[Blauwtje]

Merci Hans,

Maar kan je dit in een klein excelbestandje voor doen, want visual basic is voor mij nog latijn.

ik dank je reeds

Mvrgr
John

 

[Hans123]

Hierbij een voorbeeldje:

(txt ---> xls).