Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucke selectierte Sheets

Forumthread: Drucke selectierte Sheets

Drucke selectierte Sheets
Matthias
Hallo zusammen,
benötige eine Code Änderung, (flexible Auswahl)
wenn zb Sheet 1,3,7 selectiert sind, soll er mit den gleichen Einstellung wie im alten Code
diese Sheets drucken.
Array nutzen mit flexibler Auswahl ? ich weis echt nicht wie ich das lösen kann.
Sub drucke_Mappe_3U()
Select Case ActiveSheet.Name
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
Cells.EntireRow.Hidden = False
Rows("5:30").Select
Selection.EntireRow.Hidden = True
Rows("32:52").Select
Selection.RowHeight = 35
ActiveSheet.PageSetup.PrintArea = "A32:Aj52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Case Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Select
Rows("32:52").Select
Selection.RowHeight = 15
Cells.EntireRow.Hidden = False
Range("A3").Select
End Sub
Wenn ich mit dem geposteten code alle Sheets markiere 1-12, dann ist Sheet1 Ok der Rest der Sheets,
übernimmt er die Zeilenhöhe nicht und der Druckbereich ist auch anders.
Vorab schon jetzt einen Dank an Euch Helfer,
Mfg Matthias
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Drucke selectierte Sheets
25.01.2012 19:36:11
Rudi
Hallo,
versuchs mal so: 
Sub drucke_Mappe_3U()
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Rows.Hidden = False
.Rows("5:30").Hidden = True
.Rows("32:52").RowHeight = 35
.PageSetup.PrintArea = "A32:AJ52"
.PrintOut
End With
Next
End Sub

Gruß
Rudi
Anzeige
AW: @Rudi - Danke , jawoll, so ist gut- owT
25.01.2012 20:25:31
Matthias
.
;

Forumthreads zu verwandten Themen

Selectierten Bereich Linie
walter p
Hallo allerseits,
habe eine Makro aufgezeichnet, soll unten eine gepunktete
Linie erstellt werden.
Wenn ich dies aktiviere:
' With ActiveSheet
' zeilen = ActiveSheet.Range("B10").End(xlDown).Row
' ActiveSheet.Range(.Cells(11, 2), .Cells(zeilen, 5)).Select
'End With...
29.06.2014 18:13:58
Thread-ID: 1368020
12 Beiträge
Selectierte Zelle nicht mehr selectieren
David

Halo und guten morgen.
Diesmal habe ich eine ziemlich einfache Frage.
Ich verwende einen Button und kopiere damit das Tagesdatum heute() aus einer Zelle in eine andere martkierte Zelle. Sub KopierenAnAktiverZelleEinfügen() Range("I3").Copy ActiveCell.PasteSpecial xlPasteValues End Sub...
18.11.2016 10:14:18
Thread-ID: 1525598
9 Beiträge
Selectierte Zelle kopieren
kurt

Guten Abend,
ich habe dies:
merk = ActiveCell.Address
'MsgBox merk
Sheets("Halle1").Cells(Rows.Count, 5).End(xlUp).Copy
' merk = PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Der Courser steht auf der letzten stelle der Spalte A.
Da ich die...
23.10.2018 18:12:33
Thread-ID: 1653045
21 Beiträge
Anzeige
Mit Autofilter selectierte Zellen verarbeiten
Jörg

Hallo,ich habe immer noch das Problem das ich in mehreren Macros
nur die mit dem Autofilter selectierten und damit sichbaren Zellen verarbeiten möchte,
d.h. ich möchte in der Spalte B einen Counter setzen der bei jeder sichtbaren Zelle hochzählt und den Wert in z.b. B11 einträgt.Gruss Jör...
10.12.2002 15:26:47
Thread-ID: 191335
2 Beiträge
Selectierte Daten in Chart anzeigen
Rudi

Hallo,
ich habe folgendes Problem:
Ich habe ein Datenblatt mit 8 Spalten und unterschiedlicher Zeilenanzahl.
Nun soll von Spalte A und D ein Diagramm gezeichnet werden.
Dim IRng As Integer
'gibt die Zeilenanzahl an
IRng = (ActiveSheet.Range("F1").Value) + 7
'damit waehle...
29.04.2004 23:40:30
Thread-ID: 421734
2 Beiträge
selectierte Zellen durchsuchen
alexander

Hallo Excel-Profis ;-)
Wie kann ich eine Selection (auch mit Zellen aus unterschiedlichen Spalten) in einer For-Schleife iterieren und nach einem Wert durchsuchen?
Vielen Dank und Lg
Alex
bin schon gespannt..
24.07.2006 10:49:53
Thread-ID: 784665
2 Beiträge
Anzeige
Selectierte Zelle mit Wert aus Optionsfeld
sap00t

Hallo Zusammen...
Ich bin seit heute Nachmittag am rechechieren und suche eine Möglichkeit, wenn ich ein Optionsfeld oder Checkbox oder irgendetwas, womit man Werte vorgeben kann, dann in eine Zelle klicke und dort dieser Wert oder sogar das Format, also Rahmen und Farbe etc., übernommen wi...
16.02.2008 21:17:46
Thread-ID: 952178
4 Beiträge
Zelle wird nicht selectiert
wolfgang

Guten Abend,
ich habe ein kleines Makro, jetzt soll der Wert in Zelle F4
kopiert werden, klappt auch aber es wird nicht der Text angezeigt den ich
für diese Zelle unter Zelle bearbeiten festgelegt habe.
Erst wenn ich in die Bearbeitungsleiste gehe und Enter drücke, klappt es.
06.12.2019 20:07:12
Thread-ID: 1727664
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige