Range in Zwischenablage kopieren
03.02.2008 16:13:52
Silk
Ich hab folgendes Problem: Ich habe ein sehr grosses Arbeitsblatt aus dem ich per VBA einige wenige Informationen auf ein verstecktes Arbeitsblatt kopiere. Nun möchte ich nach Abschluss meiner Kopier- und Formatieraktion die neu erstellte Tabelle in die Zwischenablage kopieren.
Das scheint aber nur zu funktionieren, wenn dieses Tabellenblatt auch aktiv und sichtbar ist.
Private Sub CreateList_Button_Click()
Dim wsDest As Worksheet
Set wsDest = ActiveWorkbook.Worksheets("Export")
CreateTable
' Copy to clipboard
wsDest.Visible = xlSheetVisible
With wsDest.Range(wsDest.Cells(1, 1), wsDest.Cells(wsDest.Cells(wsDest.Rows.Count, 2).End( _
xlUp).Row, 11))
.Select
.Copy
End With
wsDest.Visible = xlSheetHidden
End Sub
Ist das Tabellenblatt nicht aktiv, schlägt Select fehl.
Wenn ich das Select auskommentiere, wird es anstandslos ausgeführt aber die Zwischenablage bleibt leer.
Gruß
Karsten