Thema Datum  Von Nutzer Rating
Antwort
Rot Druckbereich auswählen funktioniert nicht
10.02.2020 18:31:40 Gast46518
NotSolved
10.02.2020 19:03:03 Mase
NotSolved
10.02.2020 23:06:09 Gast46518
NotSolved
11.02.2020 00:10:47 Gast21414
NotSolved

Ansicht des Beitrags:
Von:
Gast46518
Datum:
10.02.2020 18:31:40
Views:
128
Rating: Antwort:
  Ja
Thema:
Druckbereich auswählen funktioniert nicht

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Druckbereich auswählen funktioniert nicht
10.02.2020 18:31:40 Gast46518
NotSolved
10.02.2020 19:03:03 Mase
NotSolved
10.02.2020 23:06:09 Gast46518
NotSolved
11.02.2020 00:10:47 Gast21414
NotSolved