AW: Tino, wo steckst Du nur?
24.11.2014 19:59:24
Tino
Hallo,
mach aus dem Teil
ArData = rngBT.Columns(1).Offset(, -2).Value2
ReDim Preserve ArBT(1 To rngBT.Rows.Count, 1 To rngBT.Columns.Count)
For n = 1 To UBound(ArData)
If ArData(n, 1) = "BT" Then
For nn = 1 To UBound(ArBT, 2)
If ArMA(1, nn) "" Then ArBT(n, nn) = "U"
Next nn
End If
Next n
Diesen
ArData = rngBT.Columns(1).Offset(, -3).Resize(, 2).Value2
ReDim Preserve ArBT(1 To rngBT.Rows.Count, 1 To rngBT.Columns.Count)
For n = 1 To UBound(ArData)
If ArData(n, 2) = "BT" Then
For nn = 1 To UBound(ArBT, 2)
If ArMA(1, nn) "" Then
If (Day(ArData(n, 1)) = 24 Or Day(ArData(n, 1)) = 31) _
And Month(ArData(n, 1)) = 12 Then
ArBT(n, nn) = "0,5"
Else
ArBT(n, nn) = "U"
End If
End If
Next nn
End If
Next n
Gruß Tino