Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Spreadsheet in UserForm...

Betrifft: Spreadsheet in UserForm... von: Uwe Hladik
Geschrieben am: 31.07.2008 18:54:14

Hallo zusammen,

ich würde gern in einer Userform ein Tabellenblatt anzeigen lassen.
Die Recherche hat ergeben, dass es mit einem Spreadsheet gehen soll.

Nun hab ich mir folgendes zusammengebastelt....

Private Sub UserForm_Initialize()
With Me.Spreadsheet1
    .Range(.Cells(1, 1), .Cells(60, 10)).Value = _
    Sheets("Tabelle1").Range("a1:j60").Value
End With
End Sub


.... in der Hoffnung das mir der Bereich von Tabelle1 in dem Speadsheet angezeigt wird.
Kommt aber nur Laufzeitfehler 451!
Liegt es an fehlenden Verweisen?
Welche sind die richtigen?

Wie geht sowas richtig?
Für Eure Hilfe dank ich schon mal vorab!
Gruß Uwe

  

Betrifft: AW: Spreadsheet in UserForm... von: Klaus-Dieter
Geschrieben am: 31.07.2008 20:30:04

Hallo Uwe,

offenbar verträgt das Spreadsheet den Range-Befehl nicht. So geht es jedenfalls:

Option Explicit

Private Sub UserForm_Activate()
Dim intSpalte As Integer
Dim intZeile As Integer
For intSpalte = 1 To 10
    For intZeile = 1 To 60
        Spreadsheet1.Cells(intZeile, intSpalte) = _
        Sheets("Tabelle1").Cells(intZeile, intSpalte).Value
    Next intZeile
Next intSpalte
End Sub




Viele Grüße Klaus-Dieter

Klaus-Dieter's Excel und VBA Seite
Online-Excel



  

Betrifft: AW: Spreadsheet in UserForm... von: Uwe Hladik
Geschrieben am: 31.07.2008 21:09:19

Hallo Klaus Dieter,

und vielen Dank schon mal!!!

Jetzt komm ich schon was weiter....

der macht einen Fehler bei
Spreadsheet1.Cells(intZeile, intSpalte) = _
Sheets("Tabelle1").Cells(intZeile, intSpalte).Value

Fehlermeldung "ungültiges Argument"

Gruß Uwe


  

Betrifft: sorry Läuft doch.... von: Uwe Hladik
Geschrieben am: 31.07.2008 21:30:17

Hallo Klaus Dieter,

läuft nu doch!

Hab mal ein anderes Tabellenblatt genommen, und schon funktionierts.

Nochmals besten Dank für die tolle Hilfe!!!!
Gruß Uwe


 

Beiträge aus den Excel-Beispielen zum Thema "Spreadsheet in UserForm..."