|
Hallo zusammen,
ich möchte folgendes erreichen, bei einem Doppelklick in eine Zelle, soll eine andere Zelle in einem anderen Arbeitsblatt aktiviert werden.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Reg_No As String
Dim Zeile As Long
Reg_No = Worksheets("Registernummer").Cells(2, 2)
If Target.Address = "$D$14" Then
Worksheets("Data").Activate
Zeile = columns("C:C").Find(What:=Reg_No).Row
Cells(Zeile, 44).Select
End If
End Sub
Erklärung:
in Zelle B2 steht eine Identifikationsnummer, basierend darauf werden aus einem Datenblatt per x-Verweis in Arbeitsblatt Registernummer Informationen übersichtlich dargestellt. Wenn jetzt in Zelle D 14 doppelt geklickt wird, soll sich das Worksheet "DATA" offnen. Die Zeile in der die Information aus B2 in Arbeitsblatt Registernummer steht wird gesucht und die entsprechende Zeile, 44. Spalte aktiviert.
Soweit bin ich. Allerdings bekomme ich die Fehlermeldung Runtime Error 91 "Object Variable or With Block Variable not set". Der Fehler liegt in der Zeile:
Zeile = columns("C:C").Find(What:=Reg_No).Row
Seltsam daran ist, das dieser code in einem Modul ohne Fehlermeldung läuft, aber nich in einem private sub. Was fehlt hier in der Zeile ?
Vielen Dank.
Markus
|