Unterschiedliche Ereignisse bei Zellauswahl

Hallo liebes Herber-Forum.
Ich bin gerade am verzweifeln und hoffe hier mal wieder auf Hilfe. Leider habe ich bisher noch kein vergleichbares Problem gefunden, wo ich etwas Code erspicken konnte.
Folgendes habe ich vor: In Abhängigkeit der Art der Selektion einer Zelle sollen verschiedene Aktionen ausgeführt werden. Klingt erst mal recht simpel, ich habs aber leider bisher nicht hinbekommen.
Folgenden Code habe ich bereits:


Public Sub Worksheet_SelectionChange(ByVal Target As Range)
'Klickbereich festlegen
If Application.Intersect(Target, Range("E:E")) Is Nothing Then
Exit Sub
End If
'Userform anzeigen
UserForm1.Show
End Sub

Bis jetzt aktiviert der Code bei jeder Art der Selektion einer Zelle im definierten Zellbereich E:E ein Userform, dort wird dann weiter verarbetit.
Allerdings gibt es jetzt mehrere Bedingungen für das aktivieren des Userforms durch einen Anwender der den Code nicht kennt:
Es sollen verschiedene Tasten (Z.B. Pfeiltasten, Tab, ...) ausgeschlossen werden, um eine versehentliche Aktivierung des Userforms zu unterbinden.
Mein bisheriger Gedanke war, das ganze irgendwie über das Keypress-Event abzufangen, also zusätzlich zur Begrenzung des Bereichs den letzten Tastendruck auszuwerten und entsprechend zu verzweigen.
Das Userform soll sich darüber hinaus nicht öffnen, wenn bereits eine Zeichenkette in der Zelle steht, die in einer definierten Liste auf einem anderen Tabellenblatt enthalten ist (also eine korrekte Eingabe vorher erfolgte)
Leider habe ich das nach etlicher rumprobiererei nicht hin bekommen :(
Kann mir jemand von euch vielleicht weiter helfen?
Mfg Matze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matze,
du musst noch den Tabellennamen und die Spalte die durchsucht werden soll anpassen.

Option Explicit

Private Declare PtrSafe Function GetKeyState Lib "user32.dll" ( _
    ByVal nVirtKey As Long) As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim objCell As Range

    'Klickbereich festlegen
    If Not Intersect(Target, Columns(5)) Is Nothing Then

        'Tab und Pfeil links/rechts/auf/ab ausschließen
        If Not (GetKeyState(vbKeyTab) And &HF0000000) = &HF0000000 And _
            Not (GetKeyState(vbKeyLeft) And &HF0000000) = &HF0000000 And _
            Not (GetKeyState(vbKeyRight) And &HF0000000) = &HF0000000 And _
            Not (GetKeyState(vbKeyUp) And &HF0000000) = &HF0000000 And _
            Not (GetKeyState(vbKeyDown) And &HF0000000) = &HF0000000 Then
            With Target

                If .Count = 1 Then

                    If Not IsEmpty(.Value) Then

                        Set objCell = Worksheets("Tabelle2").Columns(1).Find(What:=.Value, _
                            LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)

                    End If

                    If objCell Is Nothing Then

                        'Userform anzeigen
                        UserForm1.Show

                    Else
                        Set objCell = Nothing
                    End If
                End If
            End With
        End If
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Unterschiedliche Ereignisse bei Zellauswahl

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Unterschiedliche Ereignisse bei Zellauswahl

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread