Office: (Office 2013) DoubleClick verhindern in gesperrten Zellen

Hallo, Ihr Excel Spezialisten

Ich habe hier eine Mitarbeiter-Liste (als Tabelle 'tblAktiv' formatiert) , die nicht 'per Hand' bearbeitet werden soll.
Ich habe bis auf die Spalte 'Match' (zusammengesetzt aus Name + Vorname) diese Tabelle gesperrt.
Jetzt möchte ich folgendes: Bei Doppelklick auf 'Match' (1. Spalte) des entsprechenden Mitarbeiters wird eine UserForm geöffnet, über die diese Tabelle verändert u. erweitert werden kann.
Und jetzt das Problem: wenn ich in der 'Match' doppelklicke funktioniert es einwandfrei. Wenn ich aber in gesperrten Spalten doppelklicke, wird die UserForm auch geladen, aber nur der Datensatz aus der 1. Zeile der Tabelle übernommen und das ist nicht Zweck der Sache *frown.gif*

Frage: Kann man einen Doppelklick in gesperrten Zellen/Spalten verhindern, so das er nur in Spalte 'Match' funktioniert?

Hier ist mein Code, der ansich ja prima funktioniert (in 'Match'):
Code:

:)

 

Hallo Frank,

ich hätte es ja so geschrieben.
Code:

 

Hallo Hajo,

danke für Deine schnelle Antwort. Aber das löst leider das Problem nicht, da in jeder gesperrten Spalte auch '1' ausgegeben wird...
Ausserdem kann ich so nicht sicherstellen, das der DoubleClick innerhalb der Tabelle ausgeführt wird.

Vllt. weißt Du ja noch 'ne andere Lösung?

 

Hallo ?,

so?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngTarget As Range

With Me.ListObjects("tblAktiv")
Set rngTarget = Application.Intersect(Target, _
.ListColumns(1).DataBodyRange) ' prüfen, ob Doppelklick in der 1.Spalte 'Match'
End With

If Not rngTarget Is Nothing Then ' wenn ja
Cancel = True ' Zellbearbeitung unterbinden
Load dlgMA 'unnötig! ' UF Mitarbeiter laden
With dlgMA
.cboMatch = Me.Cells(rngTarget.Row, 1) ' Ausgewählten MA in das UF laden
.Show vbModeless ' und UF anzeigen
End With
Else
Cancel = True
End If

End Sub


Gruß Sepp

 

Hi Josef,

auch Dir danke ich für den Lösungsansatz, aber das war's leider auch nicht.

Aber das Problem ist dennoch gelöst:
Ich habe nach Aufruf des UserForm, die komplette aktuelle/gewählte Zeile zur besseren Visualisierung selektiert und nach Beenden des UserForm nicht wieder entfernt.
Dadurch habe ich dann beim nächsten Doppelklick in gesperrten Spalten immer die selektierte Zeile als Datensatz bekommen.
Jetzt paßt alles ... *Smilie

 

Hallo,

lad doch bitte die Datei hoch.

 

Hallo Frank,

bei mir wird das Ereignis nur ausgelöst bei Doppelklick in der entsprechenden Tabelle.
Mache ich ein Doppelklick in Spalte größer 1 wird keine Msgbox ausgegeben.
In meiner Datei geht es. Deine sehe ich nicht.

 

Hallo Hajo,

dann selektiere mal einen Eintrag in Spalte 1 und mache DANN einen Doppelklick in einer gesperrten Spalte in einer anderen Zeile.
Dann bekommst Du immer den Datensatz der selektierten Zeile.

Aber wie gesagt: das Problem ist jetzt gelöst.

 

es wird keine MsgBox angezeigt.
Ich habe ebne und auch mehrere Zellen in Spalte A markiert.

 

Hallo Hajo,

Du hast das Blatt mit den gesperrten Zellen (ausser Spalte A) auch geschützt??
Ohne Schutz funktionierts wie von Dir beschrieben...

 

ja.

 

Tja, dann weiß ich auch nicht...
Vllt. reagiert Office 2016 in der Beziehung anders als 2013?

Naja, ist ja auch egal, da es ja jetzt funktioniert ...
... Thema beendet.

 

auch in 2013 ist es nicht anders.

 

Hallo Hajo, ich nochmal *wink.gif*

Da mir das Ganze nun doch keine Ruhe läßt, habe ich jetzt mal eine abgespeckte Version der Tabelle hochgeladen.
Sieh es Dir bitte mal an: Ich bilde mir das doch nicht ein *confused.gif*

Bsp. : Gelbe Zelle in Spalte A markieren und gelbe Zelle in Spalte F doppelt klicken und MsgBox beachten.

 

Hallo Frank,

Du hast eine Tabelle erstellt, davon hatte ich bisher nichts von gelesen.

Ergänzung
Cncel hätte ich vor end If geschrieben