Textinhalt durch Doppelklick einfügen + Bedingung

[MüllerJohann]

Guten Tag zusammen,

leider komme ich bei einem kleinen Problem nicht weiter.

Sollzustand: (Siehe hierzu das Bild im Anhang)

Ich habe eine Tabelle, in welcher per Doppelklick auf eine Zelle ein bestimmter Buchstabe eingefügt werden soll.
Dieser Buchstabe ist abhängig davon, was in einer Zelle namens "Bearbeiter" ausgewählt wurde.

Beispiel:
Bearbeiter = Peter --> Per Doppelklick auf eine Zelle wird der Buchstabe "P" eingefügt.
Bearbeiter = Markus --> Per Doppelklick auf eine Zelle wird der Buchstabe "M" eingefügt.
usw.

Ich habe das Makro jetzt mal soweit, das ich zumindest per Doppelklick einen von mir definierten Inhalt einfügen kann.
Ich bekomme aber die Verbindung zu meinem Bearbeiter nicht hin.

__________________________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Zellbereich")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "einzufügender Inhalt" Else Target = ""
End If
End Sub
__________________________________________________________________________________________


Vielen Dank schon mal für eure Hilfe.

Viele Grüße

Johann

[Klaus-Dieter]

Hallo,

eine Beispieldatei wäre besser als ein Bild gewesen. Grundsätzlich würde ich das so lösen, dass einfach der Anfangsbuchstabe vom Namen des ausgewählten Bearbeiters genommen wird. Das vereinfacht den Quelltext.

---

Hallo,

so könnte der Quelltext aussehen:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim isect As Range
    Set isect = Application.Intersect(Target, Range("D10:K20"))
    If Not isect Is Nothing Then Target = Left(Range("A2"), 1)
End Sub

In Zelle A2 würde sich eine Datenüberprüfung mit den Namen befinden.

[MüllerJohann]

Super, vielen lieben Dank.