Gruppe
Dialog
Problem
Wie kann ich über eine UserForm einen Kopierbereich festlegen? Abgefragt werden sollen Startzelle, Zeilen- und Spaltenanzahl.
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