On Error Handling
07.03.2021 14:17:55
JoS
Dim Index As String
Dim xIndex As Integer
Dim yIndex As Integer
Dim c
Dim IndexRange
Dim DatenAnz As Long
Dim Ergebnis
Dim rng As Range
Dim Grenzwert As Integer
wb.Sheets(2).Activate
For yIndex = 8 To 13 'der erste Sensor ist in Zeile 8
For xIndex = 2 To 6 'Spalten in der die Gerätenamen stehen
Index = wb.Sheets(2).Cells(7, xIndex) & wb.Sheets(2).Cells(yIndex, 1)
Set IndexRange = Nothing 'Falls kein Index gefunden wird hat inexrange diesen Wert
With wb.Worksheets(strSheet)
Set rng = .Range(.Cells(1, 1), .Cells(1, col))
On Error GoTo noData:
c = WorksheetFunction.Match(Index, rng, 0)
End With
DatenAnz = wb.Sheets(2).Range("D3") * 60 / wb.Sheets(2).Range("C2") * 24 ' Ausrechnen _
der zu Berücksichtigen Datenrange
wb.Sheets(1).Activate
With ThisWorkbook.Worksheets(1)
Set IndexRange = .Range(.Cells((lEintrag - DatenAnz), c), .Cells(lEintrag, c)) ' _
Definition des Auszuwertenden Bereichs
End With
noData:
With ThisWorkbook.Worksheets(2)
.Activate
Grenzwert = .Cells((yIndex + 23), xIndex)
'Debug.Print IndexRange.Address
If IndexRange Is Nothing Then
Ergebnis = "Keine Daten"
Else
Ergebnis = WorksheetFunction.CountIf(IndexRange, "