Objekt erforderlich
22.06.2016 21:14:38
Christine
bei Klick auf eine Zelle (hier B4) wird der Inhalt dieser Zelle in eine andere Zelle geschrieben (hier E17). Anschließend soll dieser Wert in einer anderen Tabelle gesucht werden (hier "Ticket"), um den zugehörigen Zeilenindex zu erhalten.
Alternative 1 funktioniert fehlerfrei.
Aber ich benötige den Zeilenindex nicht als Ausgabe, sodern als Rückgabewert für eine Variable zur Weiterverwendung.
Alternative 2 verursacht die Fehlermeldung "Objekt erforderlich".
Was mache ich bei Alternative 2 falsch?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeilenindex As Integer
If Not Intersect(Target, Range("B4")) Is Nothing And Target.Count = 1 Then
Range("E17").Value = Range("B4")
'Alternative 1
Range("B31").Value = WorksheetFunction.Match(Range("E17"), Sheets("Ticket").Range("A1:A690"))
'Alternative 2
Set Zeilenindex = WorksheetFunction.Match(Range("E17"), Sheets("Ticket").Range("A1:A690"))
Range("B32").Value = Zeilenindex
Range("E17").Select
End If
End Sub