If Or Else
18.01.2018 17:30:51
Kai
ich möchte aus einer Userform heraus eine neue Userform aufrufen, wenn eine von zwei Bedingungen erfüllt ist, sonst eine andere. Dazu habe ich zum ersten mal If...Or...Else verwendet. Das funktioniert leider nicht, es kommt die Meldung:
"Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt."
Der gekürzte Code:
Option Explicit
Dim wksPNP As Worksheet
Dim wksKK As Worksheet
Private Sub CmdOK_Click()
Dim cnt As Control
Dim i As Integer
Dim strKK As String
Dim oZelle As Object
Set wksPNP = Worksheets("Probennahmeprotokoll")
Set wksKK = Worksheets("Kornklassen")
Unload Me
If wksKK.Cells(32, 3).Value = "X" Or wksKK.Cells(36, 3).Value = "X" Then
UserForm10.Show
Else
UserForm11.Show
End If
End Sub
Kann mir jemand sagen woran es hakt? Die Variable wksKK wird bis zur Fehlermeldung mehrfach verwendet, erst nach einfügen der If...Or...Else-Prüfung am Ende kam der Fehler.
Gruß
Kai
Anzeige