Aus Listbox ausgewähltes Sheet (nur range) kopiere
22.12.2017 14:59:42
Chris
ich möchte einen bestimmten Range eines Worksheets, das über eine Listbox ausgewählt wird, in ein anderen Tabellenblatt kopieren. Leider reichen meine VBA Kenntnisse nicht aus, hier bekomme ich die Fehlermeldung "Objekt erforderlich".
Die Listbox mit den Namen der Sheets fülle ich so:
Dim ShN As Integer
For ShN = 2 To ActiveWorkbook.Sheets.Count
ListBox1.AddItem ActiveWorkbook.Sheets(ShN).Name
Hier der Kopiervorgang. Was muss geändert werden? Gruß Chris
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i).Range("A1:A2")).Copy
Sheets("Auträge").Range("A1").PasteSpecial xlPasteValues
end if
next
end with