Intersect Schleifen
17.01.2020 16:55:44
Alexander
brauch für die intersect-abfrage zwei befehle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, Range("B2:D40")) Is Nothing Then Exit Sub
Range("K5").Value = ActiveCell.Value
Range("K5").NumberFormat = ActiveCell.NumberFormat
If Intersect(ActiveCell, Range("F2:I40")) Is Nothing Then Exit Sub
Range("L5").Value = ActiveCell.Value
Range("L5").NumberFormat = ActiveCell.NumberFormat
funktioniert so natürlich nicht
Danke