Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich

Druckbereich
08.11.2016 13:40:13
Berndt
Hallo zusammen,
ich habe einen Codefehler, welchen ich nicht sehe.
Kann jmd. einen behilflich sein:
Private Sub CommandButton3_Click()
Dim rngDruck As Range
Set rngDruck = ThisWorkbook.ActiveSheet.UsedRange
Set rngDruck = Range(rngDruck.Cells(1, 1), rngDruck.Cells(rngDruck.Rows.Count, 8))
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PrintArea = rngDruck
End With
End Sub
im Fettgedruckten Bereich kommt der Fehler.
VG Berndt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
= rngDruck.Address owT
08.11.2016 14:09:26
Rudi
AW: = rngDruck.Address owT
08.11.2016 14:41:14
Berndt
Dankeschön. funktioniert
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige