Thema Datum  Von Nutzer Rating
Antwort
Rot zunächst Fehlermeldung "mehrdeutiger Name"
 18.12.2022 08:57:56 vltier
Solved
18.12.2022 10:13:58 Gast98211
NotSolved
18.12.2022 19:46:11 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
vltier		 Datum:
18.12.2022 08:57:56		 Views:
949		 Rating:
     
Antwort:
 Nein
Thema:
zunächst Fehlermeldung "mehrdeutiger Name"

An die hilfreiche Gemeinde,

ich möchte auf einem Tabellenblatt - unabhängig voneinander - mehrere Ereignisse mit einem Doppelklick auf unterschiedlichen Zellen starten. Hier zunächst zwei "Suchen", die Suche über D8 funktioniert, die über C8 leider nicht, die Aktivierung bleibt in C8 hängen, kann jemand helfen? Die erste Fehlermeldung "...mehrdeutiger Name ..." habe ich durch die Namensergänzun mit "_1" vermieden, mehr fällt mir als VBA-Neuling noch nicht ein.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
Dim id, strSuchtext As String                               ' strSuchtext hinzugefügt
Dim Bereich As Range
  
id = ActiveCell
strSuche = InputBox("Bitte geben Sie den Suchtext ein:")    ' es erscheint ein Eingabefenster und merkt sich den Suchtext
                 
If ActiveCell.Row = 8 And ActiveCell.Column = 4 Then        ' Wenn der Doppelklick auf die Zelle D8 erfolgt
    Set Bereich = Tabelle1.Range("D:D").Find(strSuche)      ' Suche nach dem eingegebenen Suchtext in Spalte D
        If Not Bereich Is Nothing Then
            Tabelle1.Activate
            Bereich.Select
        End If
End If
  
End Sub
 
Private Sub Worksheet_BeforeDoubleClick_1(ByVal Target As Range, Cancel As Boolean)
  
Dim id, strSuchtext As String                               ' strSuchtext hinzugefügt
Dim Bereich As Range
  
id = ActiveCell
strSuche = InputBox("Bitte geben Sie den Suchtext ein:")    ' es erscheint ein Eingabefenster und merkt sich den Suchtext
                 
If ActiveCell.Row = 8 And ActiveCell.Column = 2 Then        ' Wenn der Doppelklick auf die Zelle B8 erfolgt
    Set Bereich = Tabelle1.Range("B:B").Find(strSuche)      ' Suche nach dem eingegebenen Suchtext in Spalte B
        If Not Bereich Is Nothing Then
            Tabelle1.Activate
            Bereich.Select
        End If
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 zunächst Fehlermeldung "mehrdeutiger Name"
 18.12.2022 08:57:56 vltier
Solved
18.12.2022 10:13:58 Gast98211
NotSolved
18.12.2022 19:46:11 ralf_b
NotSolved