Probleme beim kopieren über InputBox
08.08.2003 13:51:57
Schroeder Thomas
vielleicht kann mir ja einer helfen...?
Ich möchte ein Zellbereich per InputBox in eine andere Tabelle kopieren...
In welche Tabelle er das Ganze kopieren soll, gebe ich in der InputBox an.
Hier der Code:
Sub Kopieren()
Range("A2:F178").Copy
neues_sheet = InputBox("In welches Blatt soll kopiert werden")
Sheets(neues_sheet).Select
Range("A4").Select
ActiveSheet.Paste
End Sub
Jetzt mein Problem: Wie kann ich diesen Code so umschreiben, sodaß er meinen Zellberich in die angegebene Tabelle so kopiert, sodaß bei jedem kopieren zwischen den kopierten Zellbereichen immer eine Zeile freigelassen wird und untereinander steht...?!?
Bitte helft mir...!!!
Ach so, im Code steht: Range("A4") , das heist nur das er ab der Zelle A4 mit dem einfügen beginnen soll, Da die Zellen A1-A3 beschriftet sind...
Vielen Dank schon mal vorraus...