Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl

Gruppe

TextBox

Problem

Wie kann ich über eine UserForm einen Kopierbereich festlegen? Abgefragt werden sollen Startzelle, Zeilen- und Spaltenanzahl.

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

ClassModule: Tabelle1

Private Sub cmdDialogAufruf_Click()
   frmAuswahl.Show
End Sub

ClassModule: frmAuswahl

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

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

StandardModule: basMain

Sub CallForm()
   frmAuswahl.Show
End Sub