HERBERS Excel-Forum - die Beispiele

Thema: Tabellenblatt in UserForm

Home

Gruppe

Dialog

Problem

Wie kann ich ein Tabellenblatt mit Zeilen und Spalten in eine Userform übernehmen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: Tabelle3

Private Sub CommandButton1_Click()
    ActiveCell.Select
    frmUserTable.Show
End Sub

StandardModule: basMain

Sub CallForm()
   frmSpreadsheet.Show
End Sub

ClassModule: frmSpreadsheet

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iRow As Integer, iCol As Integer
   For iRow = 1 To 5
      For iCol = 1 To 4
         Cells(iRow, iCol).Value = _
            Spreadsheet1.Cells(iRow, iCol).Value
      Next iCol
   Next iRow
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer, iCol As Integer
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      For iCol = 1 To WorksheetFunction.CountA(Rows(1))
         Spreadsheet1.Cells(iRow, iCol).Value = _
            Cells(iRow, iCol).Value
      Next iCol
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und SpreadSheet

xlDialogInsertHyperlink.show Spreadsheet in UserForm...
Arbeitmappen über Dialogfeld zusammen fassen 5.0 Dialog
Speichern unter Dialog in Word aufrufen inkl. Pfad Spreadsheet verschwindet immer wieder
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Google Docs Spreadsheet automatisch in Excel? Klick in definierten Rangebereich startet Dialog
Spreadsheet in UF xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D. Grösse Dialogfenster der InputBox
spreadsheet erstellen / löschen Probleme mit Spreadsheet Objekt
Dialogfeld unterdrücken Spreadsheet Objekt in Userform
Dialog "permanently delete sheets" unterbinden Spreadsheet
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
SpreadSheet mit UserForm Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Dialogfenster zum kopieren Spreadsheet
FileDialog-Objekt unter O2k Abrage von Dialogfeldargumenten
Datei Auswählen Dialog (Application.FileDialog) xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen spreadsheet 9.0 läuft nicht in office 2003
Formeln in SpreadSheet kopieren Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs SpreadSheet
Das Dialogfeld "sortieren" aufrufen? Keine Dialogbox bei SaveAs
Dialogbox Web components bereitstellen für spreadsheets