Kann mir einer erklären warum der VBA mein kopierten Zellenbereich nicht in dem neuen workbook einfügt. Hier mal mein Quellcode. Was muss ich daran verbessern? Vielen dank im vorraus.
Private Sub CommandButton1_Click()
On Error Resume Next 'Fehler übergangen
ExecuteExcel4Macro("GET.DOCUMENT(10)") = n 'Anzahl der Reihen wird in die Variable "n" gespeichert
ends1 = "AB" & n
ends2 = "AZ" & n
ends3 = "BX" & n
ends4 = "CV" & n
ends5 = "DT" & n
ends6 = "ES" & n
ends7 = "FQ" & n
ends8 = "GP" & n
ExportZM.Hide
Range("D11" & ":" & n).Select
If semester1.Value = "true" Then Range("E11" & ":" & ends1).Select 'Zellenauswahl
If semester2.Value = "true" Then Range("E23:L57").Select 'Zellenauswahl
If semester3.Value = "true" Then Range("E23:L57").Select 'Zellenauswahl
If semester4.Value = "true" Then Range("E23:L57").Select 'Zellenauswahl
If semester5.Value = "true" Then Range("E23:L57").Select 'Zellenauswahl
If semester6.Value = "true" Then Range("E23:L57").Select 'Zellenauswahl
Selection.Copy 'Kopiert die ausgewählten Zellen
Workbooks.Add 'neues Workbook wird erstellt
ActiveSheet.Paste 'Fügt kopierte zellen wieder in neues Workbook ein
Application.CutCopyMode = False
Dim strDateiname As String 'legt Datenpfad fest
ChDrive "c:\" 'Startpfad ist C
Application.Dialogs(xlDialogSaveAs).Show (strDateiname) 'öffnet "Speichern unter Fenster", Speicherung
ActiveWorkbook.Close 'Schließt Workbook
Windows("Tabelle.xls").Activate 'aktiviert Workbook "Tabelle"
Range("C30").Select ' Geht auf Zelle C30
End Sub