Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Makro in Button einbinden
31.08.2005 07:58:07
A.W.
Ich habe folgenden Makrocode:
Sub Druckbereich_festlegen()
Range("A3:E50").Select
ActiveSheet.PageSetup.PrintArea = "$A$3:$E$50"
End Sub

Diesen möchte ich nun in meinen Button einbinden, welcher schon folgenden Code hat:

Private Sub CommandButton1_Click()
BereichLoeschenInhalt "C17:D17"
BereichLoeschenZeilen 26, 500
BereichLoeschenInhalt "B25:D25"
AbfrageStarten "D7:D8"
AbfrageStarten "B25:D25"
AbfrageStarten "B16:B19"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
AutoFilterSetzen "B24:D24"
End Sub

Kann mir jemand helfen?
Vielen Dank schon mal im Vorraus!

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

Betreff
Datum
Anwender
Anzeige
AW: Makro in Button einbinden
31.08.2005 08:55:51
Reinhard
Hi ?,

With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintArea = "$A$3:$E$50"
End With 

Gruß
Reinhard
AW: Makro in Button einbinden
31.08.2005 09:12:39
A.W.
Das ist mein kleiner AutoFilter.
Habe das Problem aber gelöst.
Man muss einfach nur:
Range("A3:E50").Select
ActiveSheet.PageSetup.PrintArea = "$A$3:$E$50"
einfügen.
Anzeige

257 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige