Public Sub Werte_holen()
 
Dim dat() As Date
Dim zeit()
Dim wert() As Variant
Dim start As Integer
Dim File As String
Dim start_File As String
 
 
start = 12
 
start_File = ActiveWorkbook.Name
Application.Dialogs(xlDialogOpen).Show
File = ActiveWorkbook.Name
 
Cells(1, 1).Select
Selection.End(xlDown).Select
end1 = ActiveCell.Row
 
ReDim dat(12 To end1) As Date
ReDim zeit(12 To end1)
ReDim wert(12 To end1) As Variant
 
For i = start To end1
    dat(i) = Cells(i, 1)
    zeit(i) = Format(Cells(i, 2), "hh:mm")
    wert(i) = Cells(i, 3)
Next i
 
Workbooks(start_File).Activate
Workbooks(File).Close
 
Dim objCell As Range
 
For i = start To end1
 
        r = 0
        c = 0
 
        Columns("A:A").Select
        test1 = dat(i)
        Set objCell = Cells.Find(What:=dat(i), After:=ActiveCell, _
          LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        If Not objCell Is Nothing Then r = objCell.Row
 
        Rows("1:1").Select
        Set objCell = Cells.Find(What:=zeit(i), After:=ActiveCell, _
          LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        If Not objCell Is Nothing Then c = objCell.Column
 
        If r <> 0 And c <> 0 Then Cells(r, c) = wert(i)
Next i
 
End Sub