Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenansicht VBA

Seitenansicht VBA
amintire
Hallo alle zusammen,
würde gerne bei der Listauswahl in der UserForm die entsprechende Tabelle anzeigen lassen,
also Seitenansicht, nur dann bleibt es hängen.
Also die Seitenansicht soll bei Auswahl angezeigt werden,
die UserForm geschlossen,
aber beim drucken oder beenden von der Seitenansicht soll sich die UserForm wieder öffnen.
Also das die Tabelle im Hintergrund gar nicht angezeigt wird.
https://www.herber.de/bbs/user/74627.xls
Gruß Amina

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Seitenansicht VBA
02.05.2011 10:42:35
Tino
Hallo,
kannst mal so versuchen. (getestet unter xl2007)
kommt als Code in UserForm1 
Option Explicit 
 
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
kommt als Code in Modul1 
Option Explicit 
 
Sub DruckVorschau(strTabName$) 
    Sheets(strTabName).PrintPreview 
    Application.OnTime Now + TimeSerial(0, 0, 1), "TabellenAnsicht" 
End Sub 
 
Sub TabellenAnsicht() 
    UserForm1.Show 
End Sub
Gruß Tino
Anzeige
Danke...
02.05.2011 10:47:56
amintire
Hallo Tino,
funktioniert super, vielen lieben Dank dafür.
Gruß
Amina
AW: Seitenansicht VBA
02.05.2011 10:58:27
fcs
Hallo Amintire,
hier der entsprechende Code für den Commandbutton des Userforms.
Wichtig ist, dass das Userform vor der Anzeige der Seitenvorschau ausgeblendet wird.
Gruß
Franz 
Private Sub CommandButton1_Click()
With Me.ComboBox1
If .ListIndex = -1 Then
MsgBox "Bitte erst ein Tabellenblatt auswählen", vbInformation + vbOKOnly, _
"Seitenvorschau anzeigen"
Else
Me.Hide
Worksheets(Me.ComboBox1.Value).PrintPreview
Me.Show
End If
End With
End Sub

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige