Hi Chris,

ich hab dich nicht vergessen. War nur jetzt ein paar Tage nicht online und auch gestern nur kurz angebunden.

Hab mir inzwischen deine Datei angeschaut. An meiner Antwort ändert das aber nichts. Du hättest den Code nur an deine Bedürfnisse anpassen müssen um das gewünschte Ergebnis zu erzielen. Hier eine kleine Zusammenfassung.

• Die Tabellenblätter heißen anders als du in deinem Eingangspost geschrieben hast. Diesen anderen Namen musst du nur im Code verwenden.
• Deine Matrix sieht anders aus, als du in deinem Eingangspost geschrieben hast. Du verwendest noch eine zusäzliche Zeilen-/Spalten-Überschrift mit verbundenen Zellen. In dem Fall musst du dich natürlich nicht auf Zeile 1 sondern auf Zeile 2 beziehen. Code anpassen!
• Dass die Matrix automatisch aufgeht hättest du dem Code auch selbst hinzufügen können. Die Zeile Worksheets("XY").Select kennt selbst jeder Anfänger. Und wenn nicht, kann man ja auch mal den Makrorekorder bedienen.
• Die Erweiterung um auch die Spalten U,V,W einzubinden hättest du anhand meines Beispiels ebenfalls umsetzen können. Nur die Klammersetzung bei der OR-Verknüpfung ist ein bisschen tricky. Das hättest du aber mit ein wenig probieren sicher ebenfalls schnell rausgefunden, dass And vor OR kommt, so wie auch die Punkt- vor der Strich-Rechnung kommt.

Fazit: Dieses Forum ist nicht dazu da um einfach nur kostenlosen Code abzufassen, sondern um etwas dazuzulernen, damit man eines Tages selbst seine Wünsche umsetzen kann. Du wirst hier jederzeit auf mehr oder weniger hilfsbereite Helfer stoßen, die in ihrer Freizeit anderen Menschen unter die Arme greifen. Da kann man etwas eigene Mitarbeit hier schon erwarten.

Aber nun gut: Weil du es bist, will ich ausnahmsweise mal nicht so sein und dir hier den geänderten Code anbieten. Wie gesagt muss dieser in das Modul "Diese Arbeitsmappe"

Dim Zielzelle As Range
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Call Workbook_SheetSelectionChange(Sh, Target)
  Cancel = True
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Dim frage As VbMsgBoxResult
  If Sh.Name = "Gefährdung" And (Not Intersect(Target, Range("J:J")) Is Nothing Or Not Intersect(Target, Range("W:W")) Is Nothing) Then
    Set Zielzelle = Target.Cells(1)
    Worksheets("Risikoeinschätzung").Select
  ElseIf Sh.Name = "Risikoeinschätzung" And Not Zielzelle Is Nothing And Not Intersect(Target, Range("B2:G7")) Is Nothing Then
    If Zielzelle.Value <> "" Then frage = MsgBox("Möchten Sie die Werte in H" & Zielzelle.Row & ":J" & Zielzelle.Row & " überschreiben?", vbYesNo) Else frage = vbYes
    If frage = vbYes Then
      Zielzelle.Value = Target.Value
      Zielzelle.Offset(0, -2) = Sh.Cells(Target.CurrentRegion.Rows(2).Row, Target.Column)
      Zielzelle.Offset(0, -1) = Sh.Cells(Target.Row, Target.CurrentRegion.Columns(2).Column)
      Worksheets("Gefährdung").Select
    End If
  End If
End Sub

Gruß Mr. K.