Doppelklick-Aktion in unterschiedlichen Bereichen
26.06.2017 16:32:53
Matze
Ich habe mal wieder ein Problem, bei dem ich nicht so recht weiter komme:
Es gibt eine Übersichtsliste, in die Daten vom User untereinander eingetragen werden. Dabei handelt es sich bei 2 Spalten um spezielle Daten, die 1:1 von einem nachgelagerten System verarbeitet werden müssen, es darf also keine Fehleingabe geben.
Durch Doppelklick in den jeweiligen Zellbereich für Suche1 und Suche2 öffnet sich ein Formular zur Dateneingabe.
Ich benötige also für die Spalte AO und für die Spalte AS unterschiedliche Aktionen durch den Klick.
Der Code ist nur ein Auszug, alle Variablen sind ordentlich deklariert. Leider schein mein Ansatz für die Trennung der Klickbereich nicht zu funktionieren.
Hat vielleicht jemand einen Tipp für mich?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Doppelklick- _
_
Aktion
'Klickbereich festlegen für Userform1
If Application.Intersect(Target, Range("AO6:AO" & letzteZeile)) Then
'Variablen befüllen und Daten für Suche1 schreiben
ActiveWorkbook.Worksheets("Suche1").Range("M2").Value = ""
ActiveWorkbook.Worksheets("Suche1").Range("L2").Value = Zeile
'Userform anzeigen
UserForm1.Show
Else
If Application.Intersect(Target, Range("AS6:AS" & letzteZeile)) Then
'Variablen befüllen und Daten für Suche2 schreiben
ActiveWorkbook.Worksheets("Suche2").Range("S2").Value = ""
ActiveWorkbook.Worksheets("Suche2").Range("R2").Value = Zeile
'Userform anzeigen
UserForm2.Show
End If
Cancel = True
End If
Exit Sub
End Sub
Anzeige