Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spreadsheet in UserForm...

Spreadsheet in UserForm...
31.07.2008 18:54:14
Uwe
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

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

Betreff
Datum
Anwender
Anzeige
AW: Spreadsheet in UserForm...
31.07.2008 20:30:04
Klaus-Dieter
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

Online-Excel

Anzeige
AW: Spreadsheet in UserForm...
31.07.2008 21:09:19
Uwe
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

sorry Läuft doch....
31.07.2008 21:30:00
Uwe
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige