Range_ object worksheet failed
27.03.2018 10:34:53
Jazz
ich habe ein kleines Makro geschrieben, welches mit einem Wert in einer Tabelle (aufsteigend sortiert und auf einem anderen Blatt) die beiden Werte heraussuchen soll, die direkt darueber und darunter liegen. Bspw. ist mein Wert 6500 und aus der Tabelle sollen dann die Werte 6300 und 6600 in mein aktives Blatt uebernommen werden. Das Makro befindet sich auf dem Blatt und nicht in einem Modul.
Das funktioniert soweit auch gut, solange ich das im Einzelschritt mit F8 durchgehe. Wenn ich das Makro ueber F5 laufen lassen moechte, bekomme ich in der fett markierten Zeile die Fehlermeldung "Run-time-error'-2147417848 (80010108)' Method 'Range' of object_worksheet failed".
Ich habe gefuehlt schon google umgegraben und hoffe hier nun auf Hilfe.
Vielen Dank fuer jegliche Muehen!
Sub Draft()
Application.ScreenUpdating = False
Dim lz%, i%, x%, z%, row%, higher%, lower%
Dim weight#, actweight#
'counting rows till last row in draft table
'lz=last row
lz = Worksheets("Data").Cells(1048576, 13).End(xlUp).row - 60
actweight = Range("Q47") 'actual displacement
row = 61
lower = Worksheets("Data").Range("M" & (row)).Value 'lower displacement
higher = Worksheets("Data").Range("M" & row + 1).Value 'higher displacement
For z = 1 To lz 'check in displacement table between which values the actual displacement _
_
is
If actweight >= lower Then
If actweight