Fehler 424 Objekt erforderlich - Excel, VBA, Excel-VBA

Rechner ist eine Registerkarte in der Excel-Datei.nnoise ist ein Makro, das von einer Zelle mit einer Dropdown-Liste zugewiesen wird. Die Optionen der Dropdown-Liste sind 1,2,3,4 und 5. Aufgrund der Auswahl der Dropdown-Liste möchte ich einer anderen Zelle einen bestimmten Wert zuweisen.

Es erscheint immer Objekt benötigt.

Sub nnoise()

noiseval = Calculator.Range("E15")

With Calculator

If noiseval = 1 Then
.Range("F15") = 0

ElseIf noiseval = 2 Then
.Range("F15") = 30

ElseIf noiseval = 3 Then
.Range("F15") = 50

ElseIf noiseval = 4 Then
.Range("F15") = 70

ElseIf noiseval = 5 Then
.Range("F15") = 90

End If

End With

End Sub

Antworten:

5 für die Antwort № 1

Ich vermute, dass noiseval kommt als Text rein. Ihr Verfahren könnte auch von profitieren Wählen Sie die Case-Anweisung aus das ersetzen If ... ElseIf ... End If.

Sub nnoise()
Dim noiseVal As Variant

With Worksheets("Calculator")
noiseVal = .Range("E15").Value2

Select Case noiseVal
Case 1, "1"
.Range("F15") = 0
Case 2, "2"
.Range("F15") = 30
Case 3, "3"
.Range("F15") = 50
Case 4, "4"
.Range("F15") = 70
Case 5, "5"
.Range("F15") = 90
Case Else
.Range("F15") = vbNullString
End Select
End With

End Sub

Durch Stapeln der Vergleichswerte, noiseVal wird sowohl mit den String- als auch den Integer-Werten getestet; z.B. 1 ist ungleich zu "1".

Ich bin mir Ihrer Arbeitsblatt-Referenz nicht sicher, ich habe aus Ihrer Erzählung davon ausgegangen, dass Taschenrechner ist das Arbeitsblatt .Name-Eigenschaft.


Speisekarte