Thema Datum  Von Nutzer Rating
Antwort
12.06.2023 12:24:58 Gast35814
NotSolved
Blau In private sub (Doppelklick) runtime error 91
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:
Gast55070
Datum:
12.06.2023 13:31:47
Views:
236
Rating: Antwort:
  Ja
Thema:
In private sub (Doppelklick) runtime error 91

probier mal damit:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
  Dim strRegNo As String
  Dim rngZelle As Excel.Range
  
  If Target.Address = "$D$14" Then
    
    strRegNo = Worksheets("Registernummer").Range("B2").Value
    
    With Worksheets("Data")
      
      On Error Resume Next
      Set rngZelle = .Columns("C").Find( _
                        What:=strRegNo, _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByColumns)
      On Error GoTo 0
      
      If rngZelle Is Nothing Then
        Cancel = True
        Call MsgBox("Kein Treffer für '" & strRegNo & "'.", vbExclamation)
        Exit Sub
      End If
      
      .Activate
      .Cells(rngZelle.Row, "AR").Activate
      
    End With
    
  End If

End Sub

 


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
12.06.2023 12:24:58 Gast35814
NotSolved
Blau In private sub (Doppelklick) runtime error 91
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