Makro stürzt nach 18 Durchläufen ab
12.06.2019 15:35:54
Erik
ich habe ein Makro geschrieben, dass über verschiedene userforms Werte abfragt, diese auf Plausi überprüft und dann in ein Tabellenblatt schreibt.
Das Makro läuft 18 mal problemlos durch bis es mit der Fehlermeldung
Laufzeitfehler - Die Methode 'Range' für das Objekt'_Worksheet' ist fehlgeschlagen. (siehe Code unten / Zeile fett)
Vielleicht kann mir jemand von euch weiterhelfen. Vielen Dank schon mal!!!
Code:
Private Sub userform_activate()
Dim Last As Long
Dim FuellGewichtIST As Integer
Dim DeltaGewicht As Integer
Last = Worksheets("VBA").Range("B1").Value 'Laufzeitfehler - Die Methode 'Range' f?r _
das Objekt '_Worksheet' ist fehlgeschlagen
FuellGewichtIST = Worksheets("VBA").Range("B8").Value
DeltaGewicht = Worksheets("VBA").Range("B10").Value
UserForm4.TextBox2 = FuellGewichtIST
Worksheets("VBA").Range("B8").Value = FuellGewichtIST
If FuellGewichtIST > 433 Then
UserForm4.TextBox3 = FuellGewichtIST - 430
DeltaGewicht = FuellGewichtIST - 435
Worksheets("VBA").Range("B10").Value = DeltaGewicht
UserForm4.TextBox4 = ""
FG = False
End If
If FuellGewichtIST = 427 And FuellGewichtIST