ich (im selben Workbook) möchte nach Abfrage einen bestimmten Zeilenblock aus sheet 2 kopieren. Dieser block soll unter der letzten freién Zeile von sheet 1 eingefügt werden.
Wie krieg ich das denn hin?
Danke volker
Sub von2nach1mitinputbox()
Dim erste As String, letzte As String, Lrow As Long
On Error GoTo ende
erste = InputBox("Von", "Bitte erste Zelladresse angeben", "a1")
letzte = InputBox("Bis", "Bitte letzte Zelladresse angeben", "d10")
If erste = "" Or letzte = "" Then
MsgBox "Unvollständige Angaben", vbInformation
Exit Sub
End If
Sheets(2).Range(erste & ":" & letzte).Copy
Lrow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets(1).Range("a" & Lrow).PasteSpecial Paste:=xlValues
ende:
Application.CutCopyMode = False
End Sub
Sheets(2).Range("A1:B3").Copy Destination:=Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
Gruß Ingolf