Script range (voor afdrukken) basis celadressen met -=adres

[henk1957]

Graag hulp voor een script waarin een afdruk (printje) wordt gemaakt op basis van 2 celadressen wat in 2 cellen wordt aangegeven dmv =adres.
Bijv. in A1 staat =adres(4;4), dus D4 en in A2 staat =adres(5:5), dus E5. Nu wil ik dat de range wordt bepaald op basis van celadressen zoals aangegeven in cel A1 en A2 zodat
de range D4:E5 wordt geprint. Graag hulp hierbij.

Sub test10()'
' test10 Macro
'
Sheets("Pres1").Select
Range("D4:D5").Select 'Maar dan op basis celadres genoemd in A1 en A2)
End Sub

[F_J_K]

Vooropgesteld: je wilt -naar mijn mening- nooit de .select() functie gebruiken. Behalve als het expliciete doel is dat de cursor verspringt. Niet gebruiken als je bedoeling is de inhoud van de sheet aan te passen.

Dat gezegd hebbende: met Cells(1, 1).Value krijg je de waarde van A1. Die kan je dan gebruiken als bereik.

Staat er '=adres(4;4) of =adres(4;4) en visueel dus $D$4? Dat maakt nogal uit. Bij dat tweede ben je dan klaar, bij dat eerste zal je de rij- en kolomnummers uit de string moeten halen. Bijv. levert Mid(Cells(1, 1).Value, 8, 1) 4 op.

Tip: gebruik variabelen, dan blijft het leesbaar:
a = Cells(1, 1).Value
msgbox Mid(a, 8, 1)

(Maar dan natuurlijk geen msgbox gebruiken, dat is alleen ter illustratie).

[dix-neuf]

Probeer dit:

code:

Sub PrintRange()
Dim myrange As Range
Set myrange = Range(Range("A1") & ":" & Range("A2"))
myrange.PrintOut
End Sub

[henk1957]

Mijn dank. Script van dix-neuf werkt perfect

[dix-neuf]

Jammer dat je niet heb vermeld dat je je vraag ook op een ander forum hebt gesteld.
Dat had ons nodeloze tijd kunnen besparen.