Gleichnamige Ereignisse
14.01.2013 19:47:52
Burghard
ich möchte in einem Tabellenblatt zwei Ereignisse unterbringen, allerdings gibt Excel (richtigerweise) eine Fehlermeldung aus, dass gleichnamige Prozeduren vorhanden sind. Diese beiden Ereignisse möchte ich in dem Tabellenblatt hinterlegen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("AJ2:AJ19")) Is Nothing Then
Exit Sub
End If
Cancel = True
Call W_copy
End Sub
Sub W_copy()On Error GoTo ende
ActiveCell.Copy
ende:
End Sub ________________________________________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("AH2:AH19")) Is Nothing Then
Exit Sub
End If
Cancel = True
Call W_einfuegen
End Sub
Sub W_einfuegen()On Error GoTo ende
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ende:
End Sub
Frage:
Jeweils nur eine Prozedur läuft, gibt es aber irgendeine Lösung, wie beide Ereignisse funktionieren? Ich kann doch den Ereignisnamen nicht ändern.
Hilfe wäre nett.
Grüße
Burghard