Microsoft Excel

Herbers Excel/VBA-Archiv

Code anpassen (Seitenansicht) | Herbers Excel-Forum


Betrifft: Code anpassen (Seitenansicht) von: Thomas
Geschrieben am: 22.01.2012 13:03:45

Hallo Excelfreunde,

hier im Forum hab ich diesen Code gefunden der auch funktoniert wenn ich die Tabs ausblende die ich nicht in der Seitenansicht haben möchte.
Wie muss der Code lauten wenn ich ("Tab1" , "Tab3" , "Tab4") in der Seitenansicht/Druckvorschau sehen will?
Ich hab es nicht geschafft :((

Sub ttt()
  Dim strSheets As String, wks As Worksheet
  For Each wks In Worksheets
    If wks.Visible Then
      If strSheets = "" Then
        strSheets = wks.Name
      Else
        strSheets = strSheets & "," & wks.Name
      End If
    End If
  Next
  Sheets(Split(strSheets, ",")).PrintPreview
End Sub
Gruß Thomas

  

Betrifft: AW: Code anpassen (Seitenansicht) von: Dirk aus Dubai
Geschrieben am: 22.01.2012 13:09:53

Hallo!

Sind diese Tabs ausgeblendet?

Falls ja musst du sie vorher einbelnden oder programmtechnisch auswaehlen.

Gruss

Dirk aus Dubai


  

Betrifft: AW: Code anpassen (Seitenansicht) von: Thomas
Geschrieben am: 22.01.2012 13:16:19

Hallo Dirk,

der Code funktoniert aber ich muss alle Tabs ausblenden die ich nicht brauche oder es werden alle Tabs in der Seitenansicht gezeigt.
Ich will nur Tab1, Tab3, Tab4 aber ohne die anderen Tabs ausblenden zu müssen.

Gruß Thomas


  

Betrifft: AW: Code anpassen (Seitenansicht) von: CitizenX
Geschrieben am: 22.01.2012 13:35:29

Hi,

ungetestet:

Sheets(Array("Tab1", "Tab2", "Tab4")).PrintPreview
Grüße
Steffen


  

Betrifft: AW: Code anpassen (Seitenansicht) von: Thomas
Geschrieben am: 22.01.2012 13:50:23

Hallo Steffen,

super nun hab ich das wie ich es möchte :)
Danke und einen schönen Sonntag.

Gruß Thomas


Beiträge aus den Excel-Beispielen zum Thema "Code anpassen (Seitenansicht)"