Hallo,
Keine Ahnung was du damit bezwecken willst, aber ja das ist möglich. Dazu einfach den folgenden Code in das Modul "Diese Arbeitsmappe" kopieren und die Datei als .xlsm speichern. Die Blattnamen "Tabelle1" und "Risikobewertung" musst du natürlich anpassen.
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 = "Tabelle1" And Not Intersect(Target, Range("J:J")) Is Nothing Then
Set Zielzelle = Target.Cells(1)
ElseIf Sh.Name = "Risikobewertung" And Not Zielzelle 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, -1) = Sh.Cells(Target.CurrentRegion.Rows(1).Row, Target.Column)
Zielzelle.Offset(0, -2) = Sh.Cells(Target.Row, Target.CurrentRegion.Columns(1).Column)
End If
End If
End Sub
Wenn die Zelle, die du auswählen möchtest bereits markiert ist, dann einfach einen Doppelklick darauf machen. In allen anderen Fällen reicht ein einfacher Klick zum Auswählen der Zelle.
Gruß Mr. K.
|