Um eine Excel-Vorschau in einer Userform anzuzeigen, kannst du das folgende VBA-Skript verwenden. Diese Methode ermöglicht es dir, den Inhalt eines Arbeitsblatts in der Userform darzustellen, während der Benutzer die Textbausteine auswählt.
ALT + F11).WebBrowser-Steuerelement zur Userform hinzu. Du findest es unter den Steuerelementen (rechte Maustaste auf die Tool-Leiste -> "Zusätzliche Steuerelemente...").CommandButton hinzu, um die Vorschau zu aktualisieren.Private Sub CommandButton1_Click()
Dim brief As Worksheet, msg As String
Dim iZeile As Long, iSpalte As Long, zelleninhalt As String
Dim abSpalte As Long, Spalten As Long, abZeile As Long, Zeilen As Long
Set brief = Worksheets("Brief")
With brief.UsedRange
abSpalte = .Columns.Column
Spalten = .Columns.Count
abZeile = .Rows.Row
Zeilen = .Rows.Count
End With
msg = "<table border=1 width=100%>"
For iZeile = abZeile To Zeilen + abZeile - 1
msg = msg & "<tr>"
For iSpalte = abSpalte To Spalten + abSpalte - 1
zelleninhalt = brief.Cells(iZeile, iSpalte).Text
If zelleninhalt = "" Then zelleninhalt = " "
msg = msg & "<td align=right>" & zelleninhalt & "</td>"
Next
msg = msg & "</tr>"
Next
msg = msg & "</table>"
With Me.WebBrowser1
.Navigate "about:blank"
Application.Wait (Now + TimeValue("0:00:01"))
.Document.body.innerHTML = msg
End With
End SubFehler: Userform wird nicht angezeigt.
Stelle sicher, dass du die Userform korrekt initialisiert hast. Verwende UserForm1.Show im richtigen Modul.
Fehler: WebBrowser zeigt keinen Inhalt an.
Überprüfe, ob das WebBrowser-Steuerelement korrekt hinzugefügt wurde. Möglicherweise benötigst du die richtige Bibliothek (Microsoft Internet Controls).
Fehler: Tabelle wird nicht korrekt formatiert.
Achte darauf, dass das HTML korrekt generiert wird. Überprüfe die Variablen für Zeilen- und Spaltenanzahl.
Eine andere Möglichkeit, eine Excel-Seitenvorschau anzuzeigen, ist die Verwendung der PrintPreview-Methode. Dies ist jedoch nicht so interaktiv wie die WebBrowser-Methode. Du kannst den Code wie folgt anpassen:
Private Sub CommandButton1_Click()
Me.Hide
Worksheets("Brief").PrintPreview
Me.Show
End SubDiese Methode zeigt eine Druckvorschau des Arbeitsblatts an, jedoch ohne die Möglichkeit, den Inhalt in der Userform anzuzeigen.
Wenn du die Userform mit Textbausteinen füllst, kannst du den Code so anpassen, dass er zusätzliche Informationen anzeigt oder verschiedene Textbausteine dynamisch lädt.
Beispiel:
1. Wie kann ich die Userform automatisch öffnen?
Du kannst die Userform im Workbook_Open-Ereignis anzeigen lassen:
Private Sub Workbook_Open()
UserForm1.Show
End Sub2. Ist es möglich, die Excel-Vorschau in ein anderes Steuerelement zu laden?
Ja, du kannst auch andere Steuerelemente verwenden, um den Inhalt darzustellen, aber das WebBrowser-Steuerelement bietet die größte Flexibilität für die Anzeige von HTML-Inhalten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen