Seitenansicht VBA

Private Sub ComboBox1_Change() Dim intIndex As Integer With ComboBox1 If .ListIndex > -1 Then On Error Resume Next intIndex = Sheets(.Value).Index On Error GoTo 0 If intIndex > 0 Then If Not Sheets(intIndex).Visible = xlSheetVisible Then intIndex = 0 End If End If If intIndex > 0 Then Me.Hide Application.OnTime Now + TimeSerial(0, 0, 1), "'DruckVorschau """ & .Value & """'" Else MsgBox "Tabelle nicht vorhanden oder ausgeblendet" End If End If End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim varNotInList, i% 'Tabellen auflisten die nicht gelistet werden sollen varNotInList = Array("Tabelle1", "Tabelle3") With ThisWorkbook For i = 1 To .Sheets.Count If Not IsNumeric(Application.Match(.Sheets(i).Name, varNotInList, 0)) Then ComboBox1.AddItem .Sheets(i).Name End If Next i End With End Sub

Private Sub ListBox1_Click() Dim intIndex As Integer With ListBox1 If .ListIndex > -1 Then On Error Resume Next intIndex = Sheets(.Value).Index On Error GoTo 0 If intIndex > 0 Then If Not Sheets(intIndex).Visible = xlSheetVisible Then intIndex = 0 End If End If If intIndex > 0 Then UserForm1Druckvorschau.Hide Application.OnTime Now + TimeSerial(0, 0, 1), "'DruckVorschau """ & .Value & """'" Else MsgBox "Tabelle nicht vorhanden oder ausgeblendet" End If End If End With End Sub

Private Sub ListBox1_Click() Dim intIndex As Integer With ListBox1 If .ListIndex > -1 Then On Error Resume Next intIndex = Sheets(.Value).Index On Error GoTo 0 If intIndex > 0 Then If Not Sheets(intIndex).Visible = xlSheetVisible Then intIndex = 0 End If End If If intIndex > 0 Then If (.Value Like "Test*") Or (.Value Like "Klasse*") Then UserForm1Druckvorschau.Hide If .Value Like "Test*" Then Application.OnTime Now + TimeSerial(0, 0, 1), "'Makro1 """ & .Value & """'" ElseIf .Value Like "Klasse*" Then Application.OnTime Now + TimeSerial(0, 0, 1), "'Makro2 """ & .Value & """'" End If Else MsgBox "Tabelle weder Test* noch Klasse*" End If Else MsgBox "Tabelle nicht vorhanden oder ausgeblendet" End If End If End With End Sub

Hallo Tino,
Danke für Deine Hilfe. Musste ich nicht testen. Es läuft plötzlich einwandfrei.
Aber ich habe mit der Druckvorschau noch ein Problem.
Die Druckvorschau funktioniert nur mit dem in der Tabelle eingestellten Wert.
Ich hätte aber gerne, dass der Druckbereich eingestellt wird mit dem Wert, dass der
letzte Wert in der Zelle in Spalte A gesucht wird und dieser die max. Länge ist.
Ich hätte gerne etwas ähnliches wie folgende Anweisung eingebaut, habe aber zwei verschiedene
Tabellenarten:
'


Sub PrintArea05()   'Diese Version ist i.O.  Druckbereich wird eingestellt, gedruckt und  _
Druckbereich zurückgesetzt
'Dim ws As Worksheet
'Set ws = ThisWorkbook.ActiveSheet
'wsLR = ws.Cells(Rows.Count, 1).End(xlUp).Row
'wsLC = ws.Cells(1, Columns.Count).End(xlToLeft)
''ws.PageSetup.PrintArea = strDruckbereich
'Set PrintA = ws.Range("A1:G" & wsLR)        'Druckbereich wird hier bestimmt
'ws.PageSetup.PrintArea = PrintA.Address(0, 0)
''With ws
''    .Activate
''    lView = Application.ActiveWindow.View
''    .ResetAllPageBreaks 'Alle vorhandenen festen Seitenwechsel löschen
''    With .PageSetup
''    .LeftFooter = "&""Arial,Standard""&12Kontensaldo"
''    .CenterFooter = "&""Arial,Standard""&12Stand   " & Format(ActiveSheet.Range("N11"), "dd. _
mm.yyyy")
''    .RightFooter = "&""Arial,Standard""&12        " & Format(ActiveSheet.Range("O11"), "###0. _
00")
''    End With
''    End With
'ws.PrintPreview 'Ansicht
''ws.PrintOut Copies:=1      'Ausdruck
'      'Druckbereich zurücksetzen
''ws.PageSetup.PrintArea = strDruckbereich
'End Sub

Die Druckansicht die bisher läuft ist:
'DruckVorschau und TabellenAnsicht wird für die Ausführung von Tabelle "Vorschau und Drucken" benötigt.

Sub DruckVorschau(strTabName$)
UserForm1Druckvorschau.Hide
Sheets(strTabName).PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 1), "TabellenAnsicht"
End Sub

Ich hoffe Du oder auch andere hier im Forum können mir helfen.
Grüsse
Peter

Sub DruckVorschau(strTabname$) Dim MaxRow& Dim sPrintAr$ UserForm1Druckvorschau.Hide With Sheets(strTabname) MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row sPrintAr = .PageSetup.PrintArea Application.DisplayAlerts = False .PageSetup.PrintArea = Intersect(.Rows(1).Resize(MaxRow), .UsedRange).Address(0, 0) Application.DisplayAlerts = True Application.OnTime Now + TimeSerial(0, 0, 1), "'TabellenAnsicht """ & strTabname & """,""" & sPrintAr & """'" .PrintPreview End With End Sub Sub TabellenAnsicht(strTabname$, sPrintAr$) Application.DisplayAlerts = False Sheets(strTabname).PageSetup.PrintArea = sPrintAr Application.DisplayAlerts = True '... '... '... End Sub

Sub bestimmte_Zeilen_ausblenden() If Range("$A$37") = 0 Then Rows(37).EntireRow.Hidden = True Rows(38).EntireRow.Hidden = True Rows(39).EntireRow.Hidden = True Rows(40).EntireRow.Hidden = True Rows(41).EntireRow.Hidden = True End If If Range("$A$37") 0 Then Rows(37).EntireRow.Hidden = False Rows(38).EntireRow.Hidden = False Rows(39).EntireRow.Hidden = False Rows(40).EntireRow.Hidden = False Rows(41).EntireRow.Hidden = False End If ActiveSheet.PrintPreview Rows.Hidden = False End Sub

Sub DruckVorschau(strTabname$) Dim MaxRow& Dim sPrintAr$ UserForm1Druckvorschau.Hide With Sheets(strTabname) bestimmte_Zeilen_ausblenden .Name, True MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row sPrintAr = .PageSetup.PrintArea Application.DisplayAlerts = False .PageSetup.PrintArea = Intersect(.Rows(1).Resize(MaxRow), .UsedRange).Address(0, 0) Application.DisplayAlerts = True Application.OnTime Now + TimeSerial(0, 0, 1), _ "'TabellenAnsicht """ & strTabname & """,""" & sPrintAr & """'" .PrintPreview End With End Sub Sub TabellenAnsicht(strTabname$, sPrintAr$) Application.DisplayAlerts = False With Sheets(strTabname) bestimmte_Zeilen_ausblenden .Name, False .PageSetup.PrintArea = sPrintAr End With Application.DisplayAlerts = True 'anderer Code End Sub Sub bestimmte_Zeilen_ausblenden(strTabname$, booHidden As Boolean) With Sheets(strTabname$) If booHidden Then If .Range("$A$37") = 0 Then .Rows(37).Resize(5).EntireRow.Hidden = True ElseIf Range("$A$37") 0 Then .Rows(37).Resize(5).EntireRow.Hidden = False End If Else .Rows(37).Resize(5).EntireRow.Hidden = False End If End With End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Seitenansicht VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread