Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema WebBrowser
BildScreenshot zu WebBrowser WebBrowser-Seite mit Beispielarbeitsmappe aufrufen

Vorschau in Userform | Herbers Excel-Forum


Betrifft: Vorschau in Userform von: Hansi
Geschrieben am: 08.12.2009 13:37:00

Hallo Experten,

ich habe eine Userform, mit deren Hilfe man Textbausteien zusammenbasteln kann.
Ist es möglich, den momentanen "Stand" als Seitenansicht in einem Textfeld (o.ä.) anzeigen zu lassen?

Immer wenn der User einen Textbaustein auswählt, wird das Tabellenblatt "Brief" angepasst.

Danke!
LG Hansi

  

Betrifft: AW: Vorschau in Userform von: Anton
Geschrieben am: 08.12.2009 15:27:04

Hallo Hansi,

so vllt:

Code:

Private Sub CommandButton1_Click()  
  Me.Hide
  Worksheets("Brief").PrintPreview
  Me.Show
End Sub  



mfg Anton


  

Betrifft: AW: Vorschau in Userform von: Hansi
Geschrieben am: 08.12.2009 15:59:52

Hallo Anton,

ich wollte dass sowohl die Userform als auch der Inhalt des Blattes zu sehen sind.
Ich habe auch schon herumexperimentiert, beides "nebeneinander" anzuzeigen. Aber leider ohne zählbaren Erfolg :-(

Hansi


  

Betrifft: mit WebBrowser Steuerelement von: Anton
Geschrieben am: 08.12.2009 19:12:51

Hallo Hansi,

kannst Du sowas ausprobieren:

Code:

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  
    For iSpalte = abSpalte To Spalten + abSpalte - 1  
      zelleninhalt = brief.Cells(iZeile, iSpalte).Text
      If zelleninhalt = "" Then zelleninhalt = " "  
      msg = msg & "<td align=right>" & zelleninhalt & "</td>" '& vbCr
    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 Sub  



mfg Anton


  

Betrifft: Danke! von: Specke
Geschrieben am: 08.12.2009 20:26:14

Hallo Anton,

sieht gut aus!
Danke!

Hansi


Beiträge aus den Excel-Beispielen zum Thema "Vorschau in Userform"