Zellbreich in neu zu erstellendes Tabellenblatt
11.02.2016 11:19:40
Rico
ich hätte hier mal wieder eine Frage mit der ich alleine nicht weiterkomme.
Ich habe in einer Datei eine Datenauswertung im Tabellenblatt 1 (Auswertung).
In diesem Tabellenblatt kann ich im Bereich A11:L1000 die eingetragenen Datensätze nach belieben filtern.
Wenn ich jetzt alles so gefiltert habe wie ich es gerade benötige speichere ich die Daten mit einem Button und nachfolgenden Anweisungen in ein neues Tabellenblatt.
Sub BlattKopieren()
Dim NeuerName As String
Dim i As Integer
NeuerName = InputBox("Bitte gebe den neuen Namen des Blattes ein!")
i = Sheets.Count
Sheets("Auswertung").Copy After:=Sheets(i)
ActiveSheet.Name = NeuerName
End Sub
Versucht habe ich es mit
Sheets("Auswertung").Range("A11:L1000").Copy After:=Sheets(i)
das funktioniert aber nicht.
Was muss ich denn ändern um nur den gewünschten Bereich zu kopieren?
Vielen Dank schon jetzt für eure Hilfe.
Gruß Rico
Anzeige