Zwei Scripts miteinander verbinden

[amicelli]

Hallo Ihr Wissenden, ich habe zwei Scripte, die beide einzeln wunderbar funktionieren. Aber wenn ich sie untereinander stelle, klappt es nicht mehr.

Wie kann ich die beiden Scripte miteinander verbinden so dass beide funzen? - Danke für Antwort! Gruß - Axel

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A6")) Is Nothing Then Exit Sub
ActiveCell.Copy ActiveSheet.Range("I8")
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:P6")) Is Nothing Then Exit Sub
ActiveCell.Copy ActiveSheet.Range("I9")
End Sub

[Elex]

Hi

Versuch es so.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A6")) Is Nothing Then ActiveCell.Copy ActiveSheet.Range("I8")
If Not Intersect(Target, Range("B1:P6")) Is Nothing Then ActiveCell.Copy ActiveSheet.Range("I9")
End Sub

Gruß Elex

[snb]

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("A2:B6")) Is Nothing Then cells(8-(target.column<>1),9).value=target
End Sub

[amicelli]

Das hat beides gut geklappt.
Vielen Dank!