Hallo,
ich stehe gerade mit folgendem Problem auf dem sprichwörtlichen Schlauch.
Ich möchte einen Wert basierend auf dem Maximum eines Wertebereiches errechnen. Die Range für die Berechnung besteht aber aus nicht zusammenhängenden Zellen.
Ich habe Folgendes versucht
...
With wsT
...
If strVisDep = "Initial Dose" And dtStart = 0 Then
dtStart = .Cells(RowT, Application.Match("Screening", rngHeaderT, 0)).Value
ElseIf strVisDep = "Falsch" Then
Set rngMax = Union(.Range(.Cells(RowT, 7)), .Range(.Cells(RowT, 10)), .Range(.Cells(RowT, 13)), .Range(.Cells(RowT, 16)))
dtStart = Application.WorksheetFunction.Max(rngMax)
Else
dtStart = .Cells(RowT, Application.Match(strVisDep, rngHeaderT, 0)).Value
End If
...
Das Programm steigt mir bei der fett formatierten Zeile immer mit Laufzeitfehler 1004 (Die Methode Range für das Objekt _Worksheet ist fehlgeschlagen' aus.
Die Zellen der Range sind teilweise leer (daran kann es aber doch nicht liegen, oder?)
Über Hilfe freu ich mich sehr.
Gruß
Peter