tijd optellen

[bar88]

Ik heb zelf even iets in elkaar geknutseld, maar ik loop nu echt vast.

wat wil ik:

Ik wil dat hij twee tijden gaat optellen.
Eerst moet hij zoeken naar overeenkomst in sheets "invoeren cel "E11"
Dit moet hij zoeken in "tijd" Kolom A (1)
Gevonden dan de tijd van sheets "invoeren" cel "E11" optellen in tijd kolom B (2)

'tijd optellen
     With Sheets("tijd")
    gev = Application.Match(Sheets("invoeren").Range("E11"), .Columns(1), 0)
    If Not IsError(gev) Then
    nummer = .Cells(gev, 2)
    If nummer = "" Then nummer = 0
       nummer = Val(nummer) + .Sheets("invoeren").Range("E11")
    .Cells(gev, 2).Value = Format(nummer, "0")
    End If
    End With

 

[edmoor]

En je voorbeeld document?

 

[bar88]

Excuus vergeten
bij deze

Bekijk bijlage voorbeeld.xlsm

 

[VenA]

E11 is leeg! Tenzij je een versie hebt die een werkblad in een werkblad kent moet de . voor .Sheets("invoeren") weg.

Zelf zou ik het zo doen:

Sub VenA()
  j = Application.Match(Range("E8"), Sheets("Tijd").Columns(1), 0)
  Sheets("tijd").Cells(j, 2) = Sheets("tijd").Cells(j, 2) + Range("E12").Value
End Sub

De knop staat op het blad waar je gegevens vandaan haalt en dan hoef je het blad niet te benoemen. Aangezien je gegevensvalidatie gebruikt hoef je ook niet te controleren of een waarde bestaat.