Variablen Druckbereich mittels VBA einrichten
Space
habe bisher nur ähnliche Probleme gefunden, die mir nicht weitergeholfen haben. Ich habe den folgenden Code in VBA eingegeben um über einen Button in Excel über den Standarddrucker das 2.te Tabellenblatt (Kontakte) zu drucken.
Mit einem festen Wert für den Druckbereich funktioniert alles einwandfrei. Da meine zu druckende Tabelle sich aber ständig ändert und immer mehr Zeilen (keine Spalten) hinzukommen, würde ich die Zeilen gerne abfragen lassen, sodass er bis zur ersten Zeile sucht in der kein Wert mehr ist:
Private Sub CommandButton4_Click()
'Druckbereich festlegen und drucken
Dim Zeile As Integer
Zeile = 10
Do Until Cells(Zeile, 3) = ""
Zeile = Zeile + 1
Loop
ActiveSheet.PageSetup.PrintArea = "$A$8:$R$Zeile"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler
kann mir jemand weiterhelfen? Vielleicht muss ich die Variable Zeile auch nicht als Integer sondern anders deklarieren?
Wäre sehr dankbar für Rückmeldungen!
MfG
Space