Selektierte Liste kopieren
Space
ich habe folgendes Problem. Ich selektiere Mittel VBA über den Autofilter aus einer Excel Tabelle bestimmte Werte und kopieren sie in ein anderes Arbeitsblatt. Das kopieren erfolgt mit folgendem Code:
Sub
'Auswählen und kopieren der selektierten Werte
With Sheets("X")
.Range(.Cells(18, 1), .Cells(18, 1).End(xlDown)).Resize(, 23).Copy _
Sheets("Y").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
'Message Box aufrufen
MsgBox ("Die selektierten Daten aus X wurden in Y übernommen")
Sheets("X").Select 'Tabellenblatt "X" auswählen
End Sub
Insgesamt gibt es 6000 Werte, von denen man beispielsweise 40 selektiert. Diese 40 können aber in den Zellen z.B.: 100-110, 2400-2420 und 5300-5310 stehen. Mit dem Kopiervorgang werden diese 40 Werte richtig (ganz oben in die neue Tabelle) kopiert aber noch 5960 leere Zellen in der neuen Tabelle angezeigt, sodass die Scroll-Leiste super klein ist obwohl es nur 40 Werte sind. Ausserdem stört es in der weiteren Bearbeitung der Tabelle, da sie als Grundlage für andere Applikationen verwendet wird.
Hat jemand eine Idee, wie wirklich nur die 40 Werte genommen werden und die Scroll-Leiste somit groß bleibt?
Vielen, vielen Dank!
Gruß
Space