Hallo.
Folgendes Problem:
Ich habe mir ein kleinens PRG in Excel geschrieben.
Jetzt habe ich 10 Verschiedene Tabellen. (Tab 1 bis 10)
In Tabelle 1 in Zelle A1 steht eine Zahlk zwischen 2 und 10.
Jetzt benötige ich ein Makro, welches mir nach der Zahl, die in A1 steht die tabelle druckt. (wenn 2 steht, soll er die Tabelle 2 drucken usw…)
Wie bewerkstellige ich das?
Ich danke schon mal für eure Hilfe.
Hallo,
Ich habe mir ein kleinens PRG in Excel geschrieben.
Jetzt habe ich 10 Verschiedene Tabellen. (Tab 1 bis 10)
In Tabelle 1 in Zelle A1 steht eine Zahlk zwischen 2 und 10.
Jetzt benötige ich ein Makro, welches mir nach der Zahl, die
in A1 steht die tabelle druckt. (wenn 2 steht, soll er die
Tabelle 2 drucken usw…)Wie bewerkstellige ich das?
in meinem Beitrag weiter unten unter dem Thema „Seitenanzahl per vba - da gibt es was“ habe ich deschrieben, wie man einen ganz bestimmten Bereich in einem Tabellenblatt anspricht. Das kannst du in dein Programm entsprechend angepasst einbauen.
Gruß
Marion
Hallo,
ich gehe davon aus, dass jede Tabelle in einem extra Tabellenblatt enthalten ist.
Mit folgendem kleinen Makro, kann man die Blätter nach Eingabe der Blattnummer ausdrucken.
Sub DruckMappe()
On Error Resume Next
'Application.ActivePrinter = "Druckername" 'hier evtl. aktiven Drucker festlegen
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets(1).Range("A1")).PrintOut
If Err.Number 0 Then MsgBox "Druck fehlgeschlagen"
On Error GoTo 0
End Sub
Eine Kontrolle der Eingabewerte in A1 auf Gültigkeit(existiert das Blatt überhaupt?) kann evtl. noch in den Code eingefügt werden oder per Menü „Daten-Gültigkeit“ eingerichtet werden.
Gruß, tester!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Super.
Du hast mir weitergeholfen.
Genau das hatte ich benötigt.
Nur noch eine Frage:
Ist es auch möglich, bestimmte Tabellen zu drucken (zb. die Tabelle mit Formel)
Mit deiner Formel sucht er sich die Tabelle der reihe nach aus.
Danke nochmal
Super.
Du hast mir weitergeholfen.
Genau das hatte ich benötigt.Nur noch eine Frage:
Ist es auch möglich, bestimmte Tabellen zu drucken (zb. die
Tabelle mit Formel)
Einzelne Bereiche innerhalb eines Tabellenblattes kann man nach folgendem Schema drucken:
ThisWorkbook.Worksheets(1).Range(„B7:E12“).PrintOut
(druckt z.B. aus dem Tabellenblatt 1 den Bereich der Zellen von B7 bis E12)
tester!