Ik wil de waarde uit een range B58:F58 kopiëren, de datum van vandaag zoeken in range A4:CR35 en er naast de gevonden datum de waardes plakken.
Ik heb een macro gevonden en deze wat aangepast.
Het werkt, maar is van een amateur.
Ik wil nog graag deze kunnen uitvoeren vanaf een ander werkblad, in hetzelfde document, die geeft nu een error 400, limiet beperking.
Wie geeft de pro-versie van deze code:
Sub VindDagVanVandaag()
    Dim VindDatum As Date
    Dim Rng As Range
           VindDatum = CLng(Date)
      With Sheets("Blad2").Range("A4:cr35")
           Sheets("Blad2").Range("A58:F58").Select
            Selection.copy
      Set Rng = .Find(What:=VindDatum, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlFormulas, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
       If Not Rng Is Nothing Then
           Application.Goto Rng, True
           ActiveSheet.Paste
       Else
            MsgBox "Niets gevonden"
       End If
    End With
End Sub

Hoi Leo, het is al wat ik heb  . Ik probeer daarmee het ziekenhuisdocument, op het excel-board, automatisch te maken.
Het bestaat uit een werkblad dat op een kalender lijkt en één waar per dag vijf berekeningen naar die kalender moeten geschreven worden. Dus, ik zoek naar de datum van vandaag en plaats er de vijf gegevens er naast met een macro. Exact zoals op het voorbeeldje en er is verder geen andere code voor nodig. Als u het wat beter kan maken, want het draait niet lekker?

Hieronder het document, dat al is aangepast, maar zeker nog niet perfect is.

 

 

Hallo Moo,

mits kleine aanpassing werkt je oude code wel:
Sub gegevens_overzetten()
    Dim VindDatum As Date
    Dim Rng As Range
           VindDatum = CLng(Date)
     Sheets("Telling").Select
      With Sheets("Telling").Range("A4:cr35")
           Sheets("Telling").Range("B58:F58").Select
            Selection.Copy
      Set Rng = .Find(What:=VindDatum, _
                        LookIn:=xlFormulas, _
                        LookAt:=xlWhole)
       If Not Rng Is Nothing Then
           Application.Goto Rng.Offset(0, 1), True
           ActiveSheet.Paste
       Else
            MsgBox "Niets gevonden"
       End If
    End With
End Sub
Wel moet je dollar-tekens zetten in de range-aanduidingen:
=AANTALARG(Wachtkamer!$A:$A)-AANTAL.ALS(Wachtkamer!$A:$A;"b")

EDIT: maar er gaat natuurlijk niks boven de veel kortere en betere code van RedHead (waar je bovendien geen $-tekens moet plaatsen in de range-aanduidingen). 

SoftAid