Hallo zusammen,

ich stehe gerade auf dem Schlauch.
Ich habe den Code. 

Set rng = Range("H11:H150")

Diesen möchte ich ändern.
Die Range soll aus der gerade aktiven Zelle eingelesen werden.

--> bsp: In der ausgewählten Zelle steht: D1:D100 --> Dies soll eingelesen werden und als rng=Range(D1:D100) definiert werden.

aktuell siehts so aus

Dim strActiveCell As String
strActiveCell = ActiveCell.Address
Set rng = Range(strActiveCell)

Gruß,
Manuel