Sub Eintrag()
Dim rngName As Range
Dim rngDatum As Range
Set rngName = Rows(5).Find(Range("A1").Value, lookat:=xlWhole)
Set rngDatum = Range("A6:A5000").Find(CDate(Range("A2").Value), lookat:=xlWhole)
If Not rngName Is Nothing And Not rngDatum Is Nothing Then
Cells(rngDatum.Row, rngName.Column) = Range("A3").Value
End If
End Sub
Private Sub Übertragung()
Dim spalte As String
Dim reihe As Integer
If Range("A1").Value = Hans Then
spalte = B
If Range("A1").Value = Peter Then
spalte = C
If Range("A1").Value = Stefan Then
spalte = D
If Range("A2").Value = 01.12.2017 Then
reihe = 7
If Range("A2").Value = 02.12.2017 Then
reihe = 8
If Range("A2").Value = 03.12.2017 Then
reihe = 9
If Range("A2").Value = 04.12.2017 Then
reihe = 10
If Range("A2").Value = 05.12.2017 Then
reihe = 11
Range(Spalte & reihe).Value = Range("A3").Value
End Sub
PS: Ist nicht die optimale Lösung, da du wahrscheinlich mehr als die 5 Tage hast. Dafür müsste man die Zeilen wo der Wert für die Reihe ermittelt wird optimieren, aber das ist das Grundgerüst. Set rngDatum = Range("A6:A5000").Find(CDate(Range("A2").Value), lookat:=xlWhole, LookIn:= _
xlValues)