Office: Excelsheet unsichtbar kopieren

Hallo Liebe Excelfreunde,

1) ich speicher meine Mappe mit
ActiveWorkbook.SaveCopyAs "Pfad"
Auf dieses Laufwerk haben aber nicht alle User Zugriff. Wie kann ich vermeiden, dass der Debugger sich öffnet, wenn die User keinen Zugriff haben? Stattdessen soll eine MSGBox erscheinen.

2)Ich selektiere ein Sheet aus der Mappe und speicher dieses Sheet einzeln ab. Über Application.Screenupdating habe ich vermieden, dass die einzelnen Schritte (wie z.B. das Sheet aufzurufen und noch einige Formatiereungsgeschichten)sichtbar werden. Der Code an sich,funktioniert super. Leider poppt aber in der Taskleiste die neue Mappe auf. Lässt sich dieses vermeiden?
Hier mein Code

Application.Screenupdating = False
Sheets("tabelle2").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="....."
ActiveWorkbook.Close SaveChanges:= True
Application.Screenupdating = true


Danke im Voraus

:)

 

Hallo Carla!

Zu deiner ersten Frage:

Code:

Gruß Ingolf

 

Moin, Ingolf,

es ist mir neu, dass der Zustand Saved einer Mappe eine nicht erfolgreiche Speicherung signalisiert.

Code:

Zu 2.:
Ab Excel2000 kann die Anzeige in der Taskleiste auf ein einziges Fenster reduziert werden, und unter Excel97 erscheint kein neues Fenster:

Code:

 

Hallo jinx,

der Weg über das Err-Objekt mag hier ja der logischere sein. Über die Saved-Eigenschaft der Mappe funktioniert es allerdings auch.

Eine erfolgreiche Speicherung setzt die Saved-Eigenschaft der Mappe auf "Wahr", ein erfolgloser Speicherversuch dagegen läßt die Saved-Eigenschaft unberührt. Wenn ich die Saved-Eigenschaft der Mappe vor dem Speicherversuch explizit auf "Falsch" setze, kann ich den Erfolg der Speicherung an der Saved-Eigenschaft ablesen.

Gruß Ingolf

 

Hallo,

erst einmal vielen Dank für die Antworten

eine Frage hab ich noch rein aus Interesse:
Weshalb wird das Excelsheet temporärer auf dem Desktop gespeichert.
Kann ich nicht eine neue ExcelInstanz öffnen, dann eine neue Mappe öffnen und dann mein Sheet direkt darein kopieren? Wieso der Zwischenschritt?

Grüße
Carla

 

Hallo Carla,

alles was du in die Zwischenablage kopieren kannst, läßt sich problemlos auch in einer anderen Excelinstanz einfügen. Wenn du allerdings ein komplettes Tabellenblatt kopierst, geht das nicht über die Zwischenablage. Du klickst rechts auf den Tabellenblattreiter, wählst den Menüpunkt Verschieben/Kopieren und musst dann gleich ein Kopierziel angeben. Auf diesem Weg bekommst du kein Tabellenblatt in eine andere Arbeitsmappe, die in einer anderen Excelinstanz geöffnet ist, bzw. wird. Daher der Umweg über das Zwischenspeichern der Quellmappe.

Gruß Ingolf

 

Hallo,
ich habe mich jetzt mal an den Kopiercode gesetzt.Leider scheint irgendwas nicht zu funktionieren. Mein Code sieht jetzt so aus

Private Sub CommandButton1_Click()
Dim appExcel As Application
ActiveWorkbook.SaveCopyAs Filename:="C:\users\Carla\Desktop\tmp.xls"
Set appExcel = CreateObject("Excel.Application")
appExcel.DisplayAlerts = False
appExcel.Workbooks.Open Filename:="C:\users\Carla\Desktop\tmp.xls"
With appExcel.ActiveWorkbook
'Tabellenblatt in neue Arbeitsmappe kopieren
.Sheets("Tabelle2").Copy Before:=.Sheets(1)
.sheets("tabelle1").delete
.sheets("tabelle3").delete
End With
appExcel.Quit
End Sub


Mein Problem: Ich speicher die Mappe auf dem Desktop und ruf sie dann in der neuen Instanz auf (ihr hattet Dim strPfdName vorgeschlagen, ich hab es hier ausgeschrieben, da ich immer eine Fehlermeldung erhielt-dürfte aber nicht der Grund sein?!)
Ich scheine aber die Tabelle2 nicht zu kopieren, denn wenn ich tmp.xls aufrufe, dann ist es eine 1:1 kopie. Wo ist denn die Arbeitsmappe, die nur aus em kopierten Sheet besteht
Wo liegt mein Fehler?

(Hoffe ich hab mich halbwegs verständlich ausgedrückt!?)