Thema Datum  Von Nutzer Rating
Antwort
Rot In private sub (Doppelklick) runtime error 91
12.06.2023 12:24:58 Gast35814
NotSolved
12.06.2023 13:31:47 Gast55070
NotSolved
12.06.2023 14:02:12 Gast71093
Solved
12.06.2023 14:05:44 Mase
NotSolved
12.06.2023 14:28:31 Gast96470
NotSolved

Ansicht des Beitrags:
Von:
Gast35814
Datum:
12.06.2023 12:24:58
Views:
680
Rating: Antwort:
  Ja
Thema:
In private sub (Doppelklick) runtime error 91

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot In private sub (Doppelklick) runtime error 91
12.06.2023 12:24:58 Gast35814
NotSolved
12.06.2023 13:31:47 Gast55070
NotSolved
12.06.2023 14:02:12 Gast71093
Solved
12.06.2023 14:05:44 Mase
NotSolved
12.06.2023 14:28:31 Gast96470
NotSolved