VBA - Range "zusammenbasteln"

[Wiiinnniii]

Hallo zusammen,

ich bin neu hier. Vielleicht könnt ihr mir weiterhelfen.

Mit folgendem Code drucke ich einen Markierten Bereich einer Tabelle in Excel 2010 per Makro aus:

Sub Druck()
    Range("B1:I240").Select
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Wie kann ich die Anzahl der auszudruckenden Zeilen variabel gestalten?
Ich glaube in etwa so, nur kenn ich die Syntax nicht:

Sub Druck()
    Dim zeilen As Integer
    zeilen = 50
    Range("B1:I[zeilen]").Select
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Könnt ihr bitte helfen ? Danke !!!

Gruß
vom Winni

[gmg-cc]

Moin,

du bist ganz dicht dran!
(ungetestet)

Code: [Auswählen]

Sub Druck()
    Dim zeilen As Integer
    zeilen = 50
    Range("B1:I" & zeilen).Select
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Es gibt auch andere, vielleicht "elegantere" Wege, aber so bist du der isherigen Version am nächsten 

[Wiiinnniii]

Danke gmg-cc für die schnelle Antwort:

die Zeile

Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

(Code stammt vom Makrorekorder)
macht leider Probleme! ("Anwendungs- oder objektdefinierter Fehler")

[gmg-cc]

Moin,

daran habe ich aber nichts geändert 
OK, nimm in der Zeile die Anweisung

Code: [Auswählen]

, IgnorePrintAreas:=False(also mit dem Komma) raus, dann klappt es auch mit dem Nachbarn. 

Später wirst du den Code vielleicht auch so schreiben:

Code: [Auswählen]

Sub Druck()
    Dim zeilen As Integer
    zeilen = 50
    Range("B1:G" & zeilen).PrintOut
End Sub

[Wiiinnniii]

Super - Herzlichen Dank !!!!