Thema: Lesen und zurückschreiben

Home

Die Werte aus dem Bereich A1:D5 wird in das Spreadsheet eingelesen, dort editiert und wieder in die Tabelle geschrieben. Lesen und zurückschreiben

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Lesen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle genutzten Zeilen des Arbeitsblattes bilden
- Schleife über alle genutzten Spalten des Arbeitsblattes bilden
- Zellenweises Einlesen in das SpreadSheet

Code:


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

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zurückschreiben
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle genutzten Zeilen des Arbeitsblattes bilden
- Schleife über alle genutzten Spalten des Arbeitsblattes bilden
- Zellenweises Einlesen in das Arbeitsblatt

Code:


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