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
|