Excel VBA найти дату в объединенных ячейках и вставить пользовательский текст

Question

привет, я получил вид той же очереди, что и в этом сообщении: Excel VBA Range.Find Date Это формула

Во всяком случае, я получил аналогичную настройку, но не могу понять, как заставить работать VBA, я действительно надеюсь, что кто-то может помочь здесь.

мой код здесь:

Private Sub CommandButton1_Click()
Dim arr, Dat As Date, Mon$, rng As Range, mch As Range, mch1$, clm&
arr = Array("Januar", "Februar", "Mars", "April", "Mai", "Juni", "Juli", 
"August", "September", "Oktober", "November", "Desember")
Dat = Sheets("Dayplan").Cells(R, 3)
mch1 = Sheets("Dayplan").Cells(R, 4)
Mon = arr(Month(Dat) - 1)


  With Sheets(Mon)
  Set rng = .Rows(3).Find(Dat, LookAt:=xlWhole)
  If Not rng Is Nothing Then
    Set mch = .Columns(1).Find(mch1, LookAt:=xlWhole)
    If Not mch Is Nothing Then
      TextBox1 = .Cells(mch.Row, rng.Column + 1)
      TextBox2 = Format(.Cells(mch.Row, rng.Column + 2), "d/m/yy")
      TextBox3 = .Cells(mch.Row, rng.Column + 3)
    End If
    MsgBox "can not find machine"
  End If
  MsgBox "can not find date"
End With
Me.Hide
End Sub

Может кто-нибудь выяснить, как заставить vba найти дату и ввести текст в правильную ячейку? VBA только выключается, и я не знаю, почему ...

Edit:

большое спасибо Кристоферу Веберу, который сделал эту работу в https://superuser.com/questions/1414850/vba-find-date-and-enter-userform-text-box/1414900#1414900

и большое спасибо 大灰狼 1976, который сделал всю работу в http://www.vbaexpress.com/forum/showthread.php?64790-vba-find-text-paste-text-in-message-box-next-cell

если кому-то нужно скачать полный файл, рабочий файл находится на форуме vbaexpress

спасибо всем