Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zwei Scripts miteinander verbinden
#1
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
Antworten Top
#2
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
Antworten Top
#3
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#4
Das hat beides gut geklappt.
Vielen Dank!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste