Gruppe
Allgemein
Problem
Wie kann ich einen Kopierbereich über InputBox auswählen und kopieren?
StandardModule: basMain
Sub Kopieren()
Dim rngSource As Range, rngTarget As Range
Set rngSource = Application.InputBox _
("Kopierbereich auswählen:", Type:=8)
Worksheets("Ziel").Select
Set rngTarget = Application.InputBox _
("Zielbereich eintragen:", Type:=8)
If rngTarget.Cells.Count > 1 Then
If rngTarget.Rows.Count <> rngSource.Rows.Count Or _
rngTarget.Columns.Count <> _
rngSource.Columns.Count Then
Beep
MsgBox "Quell- und Zielbereich " & _
"müssen die gleiche Grösse haben!"
Exit Sub
End If
End If
rngSource.Copy rngTarget
Application.CutCopyMode = False
Range("A1").Select
End Sub