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:
1431		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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