For lngRowCounter = 2 To .Rows
   If Left$(.Text(lngRowCounter, 2), 10) = vdteDate Then    'Datum prüfen
      'Zeit
      strValArray(0) = lngTime
 
      'Wert
      'wird für ein Array-Element kein Wert gefunden, wird der alte Wert 
      ' verwendet
      For intCounter = 1 To UBound(strIpArray)
         If strIpArray(intCounter) = .Text(lngRowCounter, 1) Then
            strValArray(intCounter) = .Text(lngRowCounter, 3)
            Exit For
         End If
      Next intCounter
   End If
Next lngRowCounter