Laufzeitfehler 91 Objektvariable oder With bl.
15.08.2017 20:01:14
Paul
Laufzeitfehler 91 Objektvariable oder With blockade nicht gesetzt.
Ich habe 2 Tabellenblätter, die in spalte B bzw C nach einem wert durchsucht werden sollen. Wenn nun das ergebnis der einen suche nicht nothing ist soll dies in die Variable endergebnis übernommen werden.
Leider funktioniert diese übergabe nicht und es kommt immer obige Fehlermeldung
Es geht also nur um den code:
If Not Ergebnis2 Is Nothing Then
Endergebnis = Ergebnis2
Else
End If
Ergebnis2 ist ein range und soll in endergebnis übernommen werden, was nicht funktioniert.
Vielen Dank für eure Hilfe
Gruß Paul
Hier der ganze Code:
Private Sub Tx_Box_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim findKST As String
Dim Ergebnis1 As Range
Dim Ergebnis2 As Range
Dim Endergebnis As Range
Dim Lastrow1 As Long
Dim Lastrow2 As Long
findKST = Tx_Kostenstelle
With Worksheets("Tabelle1")
Lastrow1 = .Range("B" & Rows.Count).End(xlUp).Row
Set Ergebnis1 = .Range("B7:B" & Lastrow1).Find(what:=findKST, LookIn:=xlValues)
End With
If Ergebnis1 Is Nothing Then
With Worksheets("Tabelle2")
Lastrow2 = .Range("C" & Rows.Count).End(xlUp).Row
Set Ergebnis2 = .Range("C7:C" & Lastrow2).Find(what:=findKST, LookIn:=xlValues)
End With
Else
End If
If Not Ergebnis1 Is Nothing Then
Endergebnis = Ergebnis1
Else
End If
If Not Ergebnis2 Is Nothing Then
Endergebnis = Ergebnis2
Else
End If
MsgBox Endergebnis.Address