...
For intHost = 1 To intHosts
With .SeriesCollection(intHost)
.XValues = rngCategoryData
.Name = colHosts(intHost).Text
.Border.Weight = xlThin
For i = 1 To intValues
If rngSourceData.Cells(i, intHost) < 100 Then
With .Points(i)
.ApplyDataLabels Type:=xlDataLabelsShowValue
'.DataLabel.Position = xlLabelPositionAbove
(die Eigenschaft .Position wird beim Kompilieren nicht angenommen)
End With