Gruppe
Allgemein
Problem
Wie kann ich durch das Drücken einer Schaltfläche mehrere, nicht zusammenhängende Zellen auswählen?
StandardModule: basMain
Sub MehrbereichsAuswahl()
Dim rngA As Range, rngB As Range, rngUnion As Range
Set rngA = ActiveCell
Set rngB = Cells(ActiveCell.Row, 7)
Set rngUnion = Application.Union(rngA, rngB)
rngUnion.Select
End Sub