Hallo Leute, 

wie schaffe ich es bei meinem Code mehrere Spalten einer Zelle zu widmen? Ich möchte bei belieben eine Zelle anklicken und diese Zelle soll in Zelle B1 kopiert werden. Hier konnte ich nur Spalte R und T einsetzen, dabei möchte ich noch die Spalten "V2:V18" und "X2:18" hinzufügen. 

Kann mir da jemand helfen? 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Intersect(Target, Range("R2:R30", "T2:T18")) Is Nothing Then Exit Sub
  ActiveCell.Copy ActiveSheet.Range("B1")
  

End Sub

Danke schonmal! :)