Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopierter Bereich

kopierter Bereich
27.07.2004 12:57:06
Loose
Hi an alle.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopierter Bereich
Hendrik
Ich vermute mal, dass trotz Workbooks.Add Dein ActiveSheet immer noch das ist, wo die Quelldaten herstammen. Die dann auch dort wieder eingefügt werden.
AW: kopierter Bereich
27.07.2004 13:50:49
Loose
Okay vielen Danke.
Aber wie kann ich das Problem lösen? Ich weiß ja nicht wie das neuangelegte Workbook heißt.
Gibt es noch eine andere Formel für "ExecuteExcel4Macro("GET.DOCUMENT(10)")"
vielen Dank
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige