Welkom, Gasten
Gebruikersnaam: Wachtwoord: Onthoud mij
Wachtwoord vergeten? Gebruikersnaam vergeten? Maak een account aan
Forum
Expert Mode
VBA
Afdrukbereik via waarde in cel

Onderwerp: Afdrukbereik via waarde in cel

Afdrukbereik via waarde in cel 10 jaren 11 maanden geleden #20

  • rhauwe
  • rhauwe's Profielfoto
  • Afwezig
  • Fresh Boarder
  • Berichten: 2
  • Karma: 0
Ik wil een variabel afdrukbereik, op basis van de waarde in in mijn cellen C1 en C2.
Bijvoorbeeld als ik in C1 invul A3 en in cel C2 invul G32, is mijn afdrukbereik A3:G32.

Nu ben ik al een eind door:

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

Maar dan is mijn afdrukbereik altijd vanaf A1 t/m de waarde in cel C2.

Ik dacht dit simpel aan te passen in:

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

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

Afdrukbereik via waarde in cel 10 jaren 11 maanden geleden #22

  • mikemod
  • mikemod's Profielfoto
  • Afwezig
  • Administrator
  • Berichten: 49
  • Ontvangen bedankjes 8
  • Karma: 2
Probeer dit 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

Vg,

Mike
Alleen ingelogde leden kunnen reageren.
Forum
Expert Mode
VBA
Afdrukbereik via waarde in cel

Excel Software Shop

Web Analytics