Tabelle an vorgewähte Stelle kopieren
24.07.2003 11:46:11
Michael Stützel
ich möchte gerne eine Excel-Tabelle kopieren und in eine vom Benutzer über eine Inputbox vorgewählte Zelle einfügen. Habe es mit folgendem Code versucht, klappt aber nicht. Kann mir jemand helfen?
Mike
Sub CopyBox()
' Kopieren der Widerstandsberechnung an vom User gewählte Stelle
Dim Bereich As Range
On Error Resume Next
'Berechnungsbereich kopieren
Range("C22:L30").Select
Selection.Copy
'Bereich auswählen, wo hinkopiert werden soll
Set Bereich = Application.InputBox(Prompt:="Markieren Sie den Zellbereich:", Type:=8)
'Kopierten Bereich einfügen
Range(Bereich).Select
ActiveCell.Paste
End Sub