Herbers Excel-Forum - das Archiv

Ausgeblendetes Tabellenblatt anwählen

Bild

Betrifft: Ausgeblendetes Tabellenblatt anwählen
von: Marc
Geschrieben am: 19.09.2003 09:04:15
Hallo Zusammen

Habe folgendes Problem:
ich habe ein Tabellenblatt 'Zeiten' von da aus möchte ich mit Hilfe eines Buttons das Tabellenblatt 'Drucken' in der Seitenansicht anzeigen. Dieses Blatt ist jedoch ausgeblendet.

so sieht mein Makro aus:
Sheets("Drucken").Select
Range("A3:D55000").Select
Selection.ClearContents
Range("A3").Select
Sheets("Berechnung_Zeiten").Select
Range("A2:D55000").Select
Selection.Copy
Sheets("Drucken").Select
Range("A3:D55001").Select
ActiveSheet.Paste
Range("D3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[5]C:R[55000]C)"
Range("A3").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Berechnung_Zeiten").Select
Range("E2").Select

Besten Dank schon im Voraus

Marc


p.s. ausserdem kopiere ich einige Daten vom Blatt 'Zeiten' in das Blatt 'Drucken'.

Bild

Betrifft: AW: Ausgeblendetes Tabellenblatt anwählen
von: Hajo_Zi
Geschrieben am: 19.09.2003 09:18:03
Hallo Marc

auf select usw. kann zu 99% in VBA verzichtet werden.

Von einem ausgeblendeten Tabelle kannst Du kein Seitenansicht machen und auch nicht drucken.

Gruß Hajo
Bild

Betrifft: AW: Ausgeblendetes Tabellenblatt anwählen
von: MarcN
Geschrieben am: 19.09.2003 09:24:19
schon mal besten dank.

hättest du sonst eine Idee wie ich das anstellen könnte?
ist es möglich die Tabelle am Anfang des einzublenden und am Ende wieder auszublenden?
wenn ja könntest du die Aenderungen die du vorgenommen hast posten?

gruss

marc
Bild

Betrifft: AW: Ausgeblendetes Tabellenblatt anwählen
von: Hajo_Zi
Geschrieben am: 19.09.2003 09:37:38
Hallo MArc

ich bin jetzt auf Lehrgang und da kann ich nicht testen, darum eine Lösung mit select

Sub Test()
With Worksheets("Drucken")
.Range("A3:D55000").ClearContents
Sheets("Berechnung_Zeiten").Range("A2:D55000").Copy _
Destination:=.Range("A3")
.Range("D3").FormulaR1C1 = "=SUM(R[5]C:R[55000]C)"
.Visible = True
.Select
ActiveWindow.SelectedSheets.PrintPreview Sheets("Berechnung_Zeiten")
.Visible = False
End With
End Sub


Gruß Hajo
Bild

Betrifft: Danke Euch beiden!
von: MarcN
Geschrieben am: 19.09.2003 09:48:26
-
Bild

Betrifft: Danke für die Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 19.09.2003 09:49:09
Bild

Betrifft: Danke für Rückmeldung o.T.
von: Lothar
Geschrieben am: 19.09.2003 09:52:51
.
Bild

Betrifft: AW: Ausgeblendetes Tabellenblatt anwählen
von: Lothar
Geschrieben am: 19.09.2003 09:39:40
Hi Marc, bau diese beiden macros ein :)

Gruss
Lothar

'---
Sub SheetsHidden()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> ActiveSheet.Name Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub

'---
Sub SheetsVisible()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Visible = True
Next wks
End Sub

'---
 Bild
Excel-Beispiele zum Thema " Ausgeblendetes Tabellenblatt anwählen"
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum