Welkom, Gasten
Gebruikersnaam: Wachtwoord: Onthoud mij

Onderwerp: Variabel afdrukbereik o.b.v. waarde in cel

Variabel afdrukbereik o.b.v. waarde in cel 10 jaren 10 maanden geleden #19

  • rhauwe
  • rhauwe's Profielfoto
  • Afwezig
  • Fresh Boarder
  • Berichten: 2
  • Karma: 0
Ik wil dat men in bijvoorbeeld cel C1 en C2 kan aangeven wat het adruk bereik is.
Dus vul ik in cel C1 A4 in en in cel C2 G32 dan is het afdrukbereik A4:G32
En vul ik in cel C1 G3 in en in cel C2 AR111 dan is het afdrukbereik G3:AR111

Nu ben ik al een heel eind via het volgende:

Sub afdrukbereik()
ActiveSheet.PageSetup.PrintArea = "$A$1:" & [C2].Value
End Sub

Maar nu is het bereik altijd vanaf A1 t/m de waarde die ik in cel C2 invul.
Hoe maak ik mijn VBA code, zodat ik ook kan verwijzen naar cel C1.
Ik dacht aan iets als:

Sub afdrukbereik()
ActiveSheet.PageSetup.PrintArea = ":" & [C1].Value & [C2].Value
End Sub

Maar dat werkt niet...
Wie helpt mij!!??
Alleen ingelogde leden kunnen reageren.

Variabel afdrukbereik o.b.v. waarde in cel 10 jaren 10 maanden geleden #21

  • mikemod
  • mikemod's Profielfoto
  • Afwezig
  • Administrator
  • Berichten: 49
  • Ontvangen bedankjes 8
  • Karma: 2
Excuus voor de late reactie, probeer het volgende eens:
Sub afdrukbereik()
Dim f As Range
Dim t As Range
Dim FromCell As String
Dim ToCell As String
FromCell = Range("C1").Value
ToCell = Range("C2").Value

Set f = Range(FromCell)
Set t = Range(ToCell)

ActiveSheet.PageSetup.PrintArea = Range(f, t).Address

End Sub

G'luck

Mike
Alleen ingelogde leden kunnen reageren.

Excel Software Shop

Web Analytics