Thema: Kopierbereich abfragen

Home

Abbildung - Kopierbereich abfragen

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Kopierbereich abfragen
Ablaufbeschreibung:
- Variablendeklaration
- Startzelle an eine Objektvariable übergeben
- Kopierbereich festlegen
- Kopieren und einfügen
- Zielblatt auswählen

Code:


Private Sub cmdOK_Click()
   Dim rngSource As Range, rngTarget As Range, rngStart As Range
   Set rngStart = Range(txtStart.Text)
   Set rngSource = Range _
      (Cells(rngStart.Row, rngStart.Column), _
      Cells(rngStart.Row + txtRows.Text - 1, _
      rngStart.Column + txtColumns.Text - 1))
   rngSource.Copy Range("A16")
   Unload Me
End Sub