Excel-Makro

[Spike]

Kann mir bitte jemand bei einem kleinen Makro-Problem weiterhelfen?

Sub Druck()
'
' Druck Makro
'

'
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=X, Copies:=1
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub

Und zwar geht's um den Wert X. Den soll sich das Macro aus einer bestimmsten Zelle in Tabelle1 holen. Kenn mich aber zuwenig aus, wie man die Zelle eintragen muss.

 

[DJ Doena]

X= Cells(5, 4)

5 beschreibt die Zeile, 4 die Spalte im aktiven Sheet, in dem Fall also D5

 

[Spike]

Private Sub Drucken_Click()
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Cells(2, 14), Copies:=1
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub

Da kommt ein Laufzeitfehler:

 

[DJ Doena]

Sorry, so rum:

Dim bis As Integer

Sheets("Tabelle2").Select
bis = Sheets("Tabelle2").Cells(2, 14).Value
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=bis, Copies:=1
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2

 

[Spike]

Nope, selbe Fehlermeldung.

 

[DJ Doena]

Funzt bei mir wunderbar

wenn du das mal im Einzelschritt debuggst (mit F8) und dann in "bis" reinguckst, was steht denn dann in bis drin?

 

[DJ Doena]

 

[Spike]

*hüstel* Ok, in der Zelle war 0 eingetragen. Dann kann's natürlich nicht funktionieren. Besten Dank für die Hilfe!