Code anpassen (Seitenansicht)
Thomas
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
Anzeige