Hallo,

ich habe folgendes Problem: Ich möchte per Vba Befehl einen Druckbereich festlegen. Allerdings geht das irgendwie nicht so recht. Mein Code sieht bisher so aus:

Sub AnwesenheitslisteDrucken()
Dim zeilen As Integer
Dim DruckBereich As Variant


'Rückmeldungen von Excel werden ausgeschaltet'
Application.DisplayAlerts = False

With ActiveSheet
'Druckbereich festlegen'

zeilen = ActiveSheet.Cells(Rows.count, 19).End(xlUp).Row + 6

DruckBereich = Range(Cells(19, 1), Cells(zeilen, 31)).Value

'Druckbefehl'
.PageSetup.PrintArea = DruckBereich
.PageSetup.Orientation = xlPortrait
'.PageSetup.FitToPagesWide = 1
'.PageSetup.FitToPagesTall = 1
.PrintPreview
'.PrintOut Copies:=1
End With

'Rückmeldungen von Excel werden wieder angeschaltet'
Application.DisplayAlerts = True

End Sub

Das Problem ist, dass der Druckbereich nicht erst ab Spalte 19 beginnt sondern schon ab Spalte 1.

Ich weiß aber leider nicht wo der Fehler liegt.

Ich hoffe ihr könnt mir helfen. Ich bin am verzweifeln