Ausgeblendetes Tabellenblatt anwählen
19.09.2003 09:04:15
Marc
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'.