Objekt unterstützt Eigenschaft/Methode nicht
06.10.2015 13:37:24
Rohfleisch
folgender Code bereitet mir Kopfzerbrechen:
Option Explicit
Funktion zur Auswahl einer bestimmten Zeile aus einer Liste; Soll ein Range-Objekt oder " _
Adresse"(String) zurückgeben das/der im untenstehenden
Sub verwendet wird
Function FindValue(SP As Integer)
'Dimensionierung
Dim TopBorder As Integer
Dim BotBorder As Integer
Dim RowTracker As Range
Dim AverageVal As Integer
'Prozess
Set RowTracker = Worksheets(1).Range("B2:I2")
TopBorder = SP + 10
BotBorder = SP - 10
Do Until AverageVal BotBorder
AverageVal = WorksheetFunction.Average(RowTracker)
Set RowTracker = RowTracker.Offset(1)
Loop
Do Until AverageVal > TopBorder Or AverageVal
Sub MeasurementLine()
'Dimensionierung
Dim SetPoint As Integer
Dim Temperatures As Range
Dim CellVal As Range
Dim MeasLine As Range
'Prozess
Set Temperatures = Range("Temperatures")
For Each CellVal In Temperatures
SetPoint = CellVal.Value
Set MeasLine = FindValue(SetPoint)
Worksheets(1).MeasLine.Value = SetPoint
Next CellVal
End Sub
Nachdem ich die Macro von einem anderen Worksheet aus starten wollte, musste ich die Zeile MeasLine.Value = SetPoint zu Worksheets(1).MeasLine.Value = SetPoint umschreiben. Nun funktioniert sie nicht mehr.
Die größte Hilfestellung wäre für mich eine Erklärung warum das so nicht funktioniert. Eine Lösung würde ich mir mit den gegebenen Hinweisen dann selbst erarbeiten.
Vielen Dank!
Mfg,
Rohfleisch