Clever-Excel-Forum

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

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

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

Das hat beides gut geklappt.
Vielen Dank!

amicelli

Elex

snb

amicelli