Office: TabellenBlatt löschen und gleichzeitig in andere Datei kopieren

Hallo Excelgemeinde

ich stehe vor folgendem Problem

ich verwende diesen code um das aktuellangezeigte Tabellenblatt per button zu löschen

HTML:

Private Sub CommandButton3_Click()
If ActiveSheet.Name  "Eingabe" Then
ActiveWorkbook.Unprotect ""
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Protect ""
End If
End Sub

nun möchte ich gerne das diese Funktion bestehen bleibt aber das gelöschte Tabellenblatt in eine andere Datei kopiert wird.

habe schon etwas rumprobiert

Workbook.open= ("C:\test.xlsx")
ActiveSheet.copy=("test.xlsx")

aber irgendwie kopiert er es nicht.


falls mir jemand auf die Sprünge helfen könnte wäre ich dankbar.

ich versuch mich in der Zeit mal weiter an dem Problem ;(

Gruß
Ron

:)

 

Hallo Weissbart,

folgende Codezeile kopiert das aktive Tabellenblatt vor das erste Tabellenblatt in der Arbeitsmappe "Test.xlsx":

Code:

Gruß Ingolf

 

ok deine zeile hab ich mal in meinen Versuch eingebaut jedoch wird das tabellenblatt nicht kopiert ;(

HTML:

Private Sub CommandButton3_Click()
Dim Ziel As Workbook
Set Ziel = Workbooks.Open(Filename:="c:\test.xlsx")
If ActiveSheet.Name  "Eingabe" Then
ActiveWorkbook.Unprotect ""
ActiveSheet.Copy Before:=Workbooks("test.xlsx").Sheets(1)
End If
End Sub

 

Hallo Weissbart,

nach dem Öffnen der Zieldatei ist ActiveSheet natürlich das aktive Tabellenblatt in ebendieser. Du musst also vor dem Öffnen der Zieldatei das ActiveSheet in eine Variable übergeben, damit du auch das richtige Tabellenblatt kopierst:

Code:

Gruß Ingolf

 

ah hallo IngGI

ich hab mir in der Zwischenzeit diesen code zusammengebastelt

Code:

dein code ist aber übersichlicher finde ich und schneller
deswegen hab ich deinen jetzt genommen habe jedoch immer noch das problem mit dem löschen des tabellenblattes

hab mal deinen auf meine bedürfnisse umgemodelt jedoch bekomme ich ein fehler automatisierungsfehler zum schluss Code:

 

Hallo Weissbart,

ersetze in meinem Code einfach Copy durch Move.

Gruß Ingolf

 

durch move werden die buttons im Tabellenblatt nicht korrekt verschoben

 

Hallo IngGi

jetzt habe ich es fast so wie ich es haben will

jedoch schmeißt er mir ein Laufzeitfehler raus wenn ich die beiden letzten kommentierten Zeilen mit in den Code nehme.

Code:

 

hehe habs gefunden

es geht

der letzte ws.parent.protect ist so ziemlich sinnlos da der sheet ja gelöscht wurde und deshalb die fehlermeldung ^^


ich danke dir IngGi für deine Hilfe.

 

ich hätte noch ein Problem

wie hebe ich den Mappenschutz auf

Quelle.Unprotect "" ist für blattschutz
Quelle.workbookunprotect "" geht leider nicht

hat jemand eine ahnung??

 

Hallo Weissbart,

Code:

Gruß Ingolf

 

ah hallo Ingolf

hatte es jetzt mit

Code:

gelöst

oder ist das eine performance sache ?? ist deine variante schneller ??

Vor und Nachteile gibts da überhaupt welche?

gruß
und danke nochmals
Ron

 

Hallo Ron,

nein, das passt schon so. Mit deiner Variante schaltest du den Schutz dezidiert aus. Die von mir genannte Möglichkeit ist ein Schalter, bei dem der Schutz eingeschaltet wird, wenn er gerade ausgeschaltet ist und umgekehrt.

Gruß Ingolf