ich benutze unten angeführtes "Event", um beim Doppelklick auf Zelle A1 ein Ersetzvorgang zu starten. Wie schaffe ich es, dass durch Doppelklick in einem anderen Sheet (Zelle A1 im Sheet "Makros" z. B. dieser Ersetzvorgang dann in einem ganz anderen Sheet (nennen wir es z. B. "Quelle" durchgeführt). Statt Doppelklick in der Zelle A2 im Sheet "Makros" wäre mir auch eine Befehlsschaltfläche "sympathischer", mit dem das "Event" ausgelöst wird.
Viele Grüße
Bernd
PS:
Hier der Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim W
Dim rC As Range
If Target.Address "$A$1" Then Exit Sub
Cancel = True
For Each rC In Me.Range("A2:A" & Me.Range("A" & Me.Rows.Count).End(xlUp).Row)
Select Case rC.Value
Case "Bereich"
W = 15
Case "B"
W = 12
Case "C"
W = 22
'Case usw.
Case Else
W = "?"
End Select
If W "" Then rC.Offset(0, 5) = W
Next
End Sub