Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet ohne Makro kopieren

Sheet ohne Makro kopieren
02.07.2007 10:06:00
Mario
Hallo, habe folgendes Problem.
Ich möchte ein Tabellenblatt in eine andere geöffnete Datei kopiern mit:
ActiveSheet.Copy After:=Workbooks(BerKop).Sheets(1)
Dabei soll das Makro, welches sich im Tabellenblatt befindet nicht mitkopiert werden.
Wie müsste dann die Zeile lauten?
Freue mich über jede Hilfe.
Grüße
Mario

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 10:12:00
Hajo_Zi
Hallo Mario,
lösche hinterher das Makro. Bei Gut düfte das kein Problem sein, ansonsten gibt es ja noch die Suchfunktion des Forums.

AW: Sheet ohne Makro kopieren
02.07.2007 10:18:00
Mario
Hallo Hajo,
in dem Makro wird über 

Private Sub Worksheet_Activate()
Call Auswertung
End Sub


eine Makro aufgerufen, was natürich nicht vorhanden ist.
Daher bekomme ich dann immer wieder eine Fehlermeldung.
Sonst hätte ich anschließend mit folgendem Makro versucht
dieses kleine Makro zu löschen:
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents("Auswertung").CodeModule
.DeleteLines 1, .CountOfLines
End With
Bis dahin komme ich aber erst gar nicht.
Grüße
Mario

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 10:20:00
Matthias
Hallo Mario,
und wenn du nur die Zellen in ein neu erstelltes Blatt kopierst?

Sub kopieren()
Dim sh As Worksheet
With Workbooks(BerKop)
Set sh = .Sheets.Add(After:=.Sheets(1))
End With
ActiveSheet.Cells.Copy
sh.Cells.PasteSpecial xlPasteAll
Application.CutCopyMode = False


Gruß Matthias

AW: Sheet ohne Makro kopieren
02.07.2007 10:23:00
Mario
Hallo Matthias,
danke für den Hinweis, die Idee ist nicht schlecht.
Habe ich gleich mal probiert, allerdings werden dann zahlreiche Grafiken nicht mitkopiert.
Grüße
Mario

AW: Sheet ohne Makro kopieren
02.07.2007 10:27:00
Hajo_Zi
Hallo Mario,
was möchtest Du den Löschen, ich dachte den Code unter der Tabelle?
Da hätte ich eigentlich folgenden Ansatz gesehen:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Den Zugriff auf das VBA Projekt hast Du selbstverständlich schon zugelassen?

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 10:38:32
Mario
Hallo Hajo,
damit hätte ich es auch versucht, aber sobald das Sheet mit folgender Zeile kopiert wird:
ActiveSheet.Copy After:=Workbooks(BerKop).Sheets(1)
erhalte ich die Meldung
Sub oder Function nicht definiert!
Grund: In dem frisch kopierten Tabellenblatt befindet sich ein kleines Makro:

Private Sub Worksheet_Activate()
Call Auswertung
End Sub


welches über Call versucht ein Makro aufzurufen, was natürlich nicht mitkopiert wurde.
(Das ist soweit auch OK, weil auch dieses Makro aus einem Modul nicht kopiert werden sollte)
Das kleine Makro soll in der Originaldatei im Sheet natürlich erhalten bleiben und nur in der Kopie herausfliegen.
Viele Grüße
Mario

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 10:42:00
Matthias
Hallo Mario,
schalte mal den Befehl
Application.EnableEvents = False
an den Beginn des Kopiermakos, danach wieder auf True setzen.
So wird das Activate-Ereignis nicht ausgelöst.
Gruß Matthias

AW: Sheet ohne Makro kopieren
02.07.2007 11:04:00
Mario
Hallo Matthias,
perfekt, jetzt bin ich einen Schritt weiter.
Die Fehlermeldung schaltet das Activate-Ereignis quasi aus.
Jetzt habe ich nur noch das Problem den Code aus dem Tabellenblatt zu löschen
Danke schon mal
Viele Grüße
Mario

AW: Sheet ohne Makro kopieren
02.07.2007 11:20:50
Matthias
Hallo Mario,
so:

Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With


Gruß Matthias

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 11:29:13
Mario
Hallo Matthias,
vielen Dank, es funktioniert.
Grüße - Mario

AW: Sheet ohne Makro kopieren
02.07.2007 10:44:00
Hajo_Zi
Hallo Marioo,
entscheide Dich doch was Du möchte. Benutze einen Beitrag zu einem Problem. Zu einem neuen Problem fange einen neuen Beitrag an. Diesen Beitrag hast Du eröffnet zum löschen von Code. Jetzt geht es mit einmal um das kopieren von Tabellen. Falls das erste Thema wieder aktuell ist, werde ich auch wieder Antworten.
Gruß Hajo

AW: Sheet ohne Makro kopieren
02.07.2007 10:46:00
Matthias
Hallo Hajo,
Es geht doch ums Kopieren eines Blattes ohne Code (siehe Thread-Titel), das hängt doch zusammen.
Gruß Matthias

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 10:51:00
Hajo_Zi
Hallo Matthias,
im ersten Beitrag Stand
"Dabei soll das Makro, welches sich im Tabellenblatt befindet nicht mitkopiert werden.
Wie müsste dann die Zeile lauten?"
Das habe ich so interpretiert das kopieren ist eledigt, das hätte ich auch nicht als Problem angesehen, da kann man ja den Makrorecorder benutzen. Offen ist noch das löschen des Codes.
Gruß Hajo

AW: Sheet ohne Makro kopieren
02.07.2007 11:08:27
Mario
Hallo Hajo,
habe es vielleicht nicht an jeder Stelle eindeutig ausgedrückt. Sorry.
Mit folgendem Makro erhalte ich nun die Meldung
'Laufzeitfehler 438 Objekt untersützt diese Eigenschaft oder Methode nicht.
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Könntest Du mir dazu einen Tipp geben?
Vielen Dank schon mal an Dich für Deine Mühe.
Grüße
Mario

Anzeige
AW: Sheet ohne Makro kopieren
02.07.2007 11:23:47
Hajo_Zi
Halo Marion,
die Frage hatte ich schon gestellt. Den Zugrifff auf das VBA Projekt hast Du zugelassen? Unter Makro, Sicherheit
Gruß Hajo

AW: .VBProject. fehlte - o.T.
02.07.2007 11:25:00
Matthias
-

AW: .VBProject. fehlte - o.T.
02.07.2007 11:37:00
Hajo_Zi
Hallo,
ja ich hatte nur einTeil des Codes Copiert. Hier kmplett.

Sub Code_Loeschen()
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
'       löschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
'       löschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
End Sub


Gruß Hajo

Anzeige
AW: .VBProject. fehlte
02.07.2007 11:41:00
Matthias
Hallo Hajo,
ich meinte ja, der Teil fehlte bei Marios Lösungsansatz.
Gruß Matthias

AW: Sheet ohne Makro kopieren
02.07.2007 11:30:53
Mario
Hallo Hajoo,
ja, der Zugriff ist zugelassen.
Viele Grüße
Mario
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge