Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1036to1040
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

Makro Zuweisungen per routine

Makro Zuweisungen per routine
13.01.2009 08:24:29
bullix
Hallo Excel Freunde,
ich habe einen Fehler gemacht und suche nun nach einer Lösung, die mir diesen Fehler behebt.
Ich habe auf einem Tabellenblatt 7 Schaltflächen eingerichtet, die die Seiten 1 – 7 auf Knopfdruck ausdrucken einzeln sollen.
Diese Seite habe ich dann mehr als 40 mal kopiert und dann teilweise bearbeitet, so dass sie inhaltlich nicht mehr gleich sind, mit Ausnahme der 7 Schaltflächen „Drucken“.
Leider habe vergessen, vor dem Kopieren des Tabellenblattes, die 7 Makros zum Drucken der einzelnen Seiten den Schaltflächen zuzuweisen (mehr als 280 Zuweisungen).

Public Sub Liste_1_ausdrucken()
ActiveWindow.SelectedSheets.Printout From:=1, To:=1
End Sub


Public Sub Liste_2_ausdrucken()
usw. bis Seite 7
Bevor ich nun anfange 7 Printbefehle für 40 Seiten einzeln zuzuweisen, frage ich, ob jemand _
eine andere Lösung für mich hat, die mir hilft.
Es wäre wirklich sehr hilfreich
Danke Joachim

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Zuweisungen per routine
13.01.2009 09:04:49
Tino
Hallo,
vieleicht geht es so, indem Du den Tabellennamen an die Sub übergibst.
Option Explicit

Sub Schaltfläche1_KlickenSieAuf()
 Liste_1_ausdrucken "Tabelle1"
End Sub

Sub Schaltfläche2_KlickenSieAuf()
 Liste_1_ausdrucken "Tabelle2"
End Sub

Sub Schaltfläche3_KlickenSieAuf()
 Liste_1_ausdrucken "Tabelle3"
End Sub
'usw... 

Public Sub Liste_1_ausdrucken(mySheetName As String)
  ThisWorkbook.Sheets(mySheetName).PrintOut From:=1, To:=1
End Sub


Gruß Tino

Anzeige
AW: Makro Zuweisungen per routine
13.01.2009 09:17:00
bullix
Supi, Danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige