---

Hi 2 all!!

Ich möchte von autocad aus in excel ein worksheet kopieren und hinten anstellen.
Ich habe bereits herausgefunden, das dies mit der copy-Funktion geht.
Kann mir jemand sagen, was bei den nach copy angeforderten Werten "Before" und "After" eingegeben werden muß.
Oder kann mir jemand kurz einen entsprechenden Code veröffentlichen?

Danke im vorraus
Ralph

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

bei solchen Fragen hilft der Makrorecorder in excel
alles was du fernsteuern willst einfach manuell in excel durchgehen un die schritte mit dem Macrorecorder aufzeichen.
den aufgezeichneten Code dann anschauen und in Autocvad VBA umsetzten

Bei deiner Fragestellung kommt z.B.: folgendes raus

Sub Makro1()
'
' Makro1 Makro
' Makro am 02.12.2004 von CCM-Client: 12027 aufgezeichnet
'

'
    Sheets("Tabelle1").Select
    Sheets("Tabelle1").Copy After:=Sheets(3)
End Sub

was sagt uns das:
du musst nach dem after die seite angeben (als Excelsheet) nach dem du das einfügen willst. da man das ja nicht immer weiss, kannst du das dann so lösen

Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)

damit wird die Tabelle "Tabelle1" immer als letzte Seite kopiert

------------------
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erstmal.
Aber ich kann den Code im Autocad nicht 1:1 vom Excel übernehmen.
Leider funktioniert meine Excel-Hilfe nicht, sonst könnte ich nachschauen.

Wenn ich im Acad(verweis auf excel-8-library) nach eingeben des copy-Befehls die Leertaste drücke, wird wie üblich angezeigt, was für Argumente benötigt werden.
Die benötigten Argumente sind: [(After),(Before)].
Nun weiß ich eben nicht was er für Eingaben erwartet, da die Eingabe von Dir ja nicht dieser Aufforderung entspricht.

Hilfe ?!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann Dir so nicht ganz folgen, wo genau das Problem sein soll.
Fuchsis Tip solltes doch tun?
Oder du postest mal den entsprechenden Codepart mit Kommentar, wo's klemmt.

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

versuch es mal so

Public Sub Excel_zugreifen()
    Dim Excel As Excel.Application
    Dim ExcelSheet As Object
    Dim ExcelWorkbook As Object

    ' Excel starten
    Set Excel = New Excel.Application
    Excel.Visible = True

    ' Vorlage öffnen
    Workbooks.Open FileName:="C:\Test.xls", ReadOnly:=True
   
    Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
End Sub

den Excel-Verweis nicht vergessen!!!

Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nun ja das liegt daran, dass du autocad vba bist und nicht in excel vba

aber ein bisschen Kreativität sollte doch vorhanden sein

z.B:

Dim excel As New excel.Application
excel.Visible = True
excel.Workbooks.Add
Dim sh As Sheets
Set sh = excel.ActiveWorkbook.Sheets
Call sh(1).Copy(, sh(sh.Count))

damit wird die erste Seite kopiert und nach derletzten seite sh(sh.count) kopiert

before wird weggelassen

------------------
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP