Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabelle kopieren und Code löschen
zurück: Letzte benutzte Zelle ermitteln weiter: Das ListView-Control Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Information Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Isabelle :-)
Menschin


Verfasst am:
05. Aug 2013, 13:24
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


Tabelle kopieren und Code löschen - Tabelle kopieren und Code löschen

Nach oben
       Version: Office 2k (2000)

Hallöchen,

ab und zu muss eine komplette Tabelle in eine andere Mappe kopiert werden, aber ohne den Code. Wenn es nur diese eine Tabelle ist, dann kannst du in den neuen Excelversionen (ab 2007) die Mappe als .xlsx speichern. Somit ist sie Makrofrei. Was aber, wenn du die Mappe als .xls speichern willst/musst, oder die Tabelle in eine schon vorhandene .xlsm kopieren musst?

Klar, einfach per VBA den Code löschen.

Das mag ja an deinem Rechner klappen, aber an dem deines Kollegen gibt es einen Fehler, weil dieser die Option: "Zugriff auf das Visual Basic-Projekt vertrauen" nicht ausgewählt hat.

Was also tun?

Ganz einfach, wir ersetzen das Modul der Tabelle durch eine eigene Klasse und schon benötigen wir in dem Tabellenmodul keine einzige Zeile Code.

Dazu ein kleines Beispiel:

Im Modul "DieseArbeitsmappe":

Code:
Option Explicit

Private mobjTabelle1Class As clsTabelle1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not Saved Then
        Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
            "' gespeichert werden", vbExclamation Or vbYesNoCancel)
            Case vbYes
                Save
            Case vbNo
                Saved = True
            Case vbCancel
                Cancel = True
        End Select
    End If
    If Not Cancel Then Set mobjTabelle1Class = Nothing
End Sub

Private Sub Workbook_Open()
    Set mobjTabelle1Class = New clsTabelle1
End Sub


In einem Klassenmodul mit dem Namen "clsTabelle1":

Code:
Option Explicit

Private WithEvents mobjTabelle1 As Worksheet

Private Sub Class_Initialize()
    Set mobjTabelle1 = Tabelle1
End Sub

Private Sub Class_Terminate()
    Set mobjTabelle1 = Nothing
End Sub

Private Sub mobjTabelle1_Change(ByVal Target As Range)
'tu was
End Sub

Private Sub mobjTabelle1_SelectionChange(ByVal Target As Range)
'tu was
End Sub


Das ganze entspricht zu 100% dem Modul der Tabelle, dir stehen also alle Events der Worksheet-Klasse zur Verfügung.

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Formel mit "festem" Wert kopieren 2 sebbi 1937 08. Dez 2004, 20:36
sebbi Formel mit "festem" Wert kopieren
Keine neuen Beiträge Excel Formeln: Teile aus Zellen ersetzen und kopieren?? 2 Marbi 1145 03. Dez 2004, 14:49
Gast Teile aus Zellen ersetzen und kopieren??
Keine neuen Beiträge Excel Formeln: Text in andere Tabelle übertragen 2 freddy-krueger 3737 02. Dez 2004, 11:16
freddy-krueger Text in andere Tabelle übertragen
Keine neuen Beiträge Excel Formeln: Werte aus Tabelle zurückgebn 1 Spoonler 2266 22. Nov 2004, 15:54
ae Werte aus Tabelle zurückgebn
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Anzahl bei 2 Bedingungen aus Tabelle berechnen 1 Satanico 2570 20. Okt 2004, 13:31
steve1da Anzahl bei 2 Bedingungen aus Tabelle berechnen
Keine neuen Beiträge Excel Formeln: Daten/Tabelle tabellenübergreifend 0 markus.wilke 6170 15. Okt 2004, 16:45
markus.wilke Daten/Tabelle tabellenübergreifend
Keine neuen Beiträge Excel Formeln: Kopieren von Zellen, Problem mit Datumsformatierung 4 Mick 1431 08. Sep 2004, 18:59
Mick Kopieren von Zellen, Problem mit Datumsformatierung
Keine neuen Beiträge Excel Formeln: Frage... (suchen und löschen) 2 fs-racing 695 01. Sep 2004, 12:13
fs-racing Frage...  (suchen und löschen)
Keine neuen Beiträge Excel Formeln: Löschen des Zellinhaltes/von anderer Zelle 2 Gast 1962 07. Aug 2004, 23:32
Gast Löschen des Zellinhaltes/von anderer Zelle
Keine neuen Beiträge Excel Formeln: Mit Schaltfläche andere Feldere löschen 2 Uwe 616 06. Aug 2004, 13:07
Uwe Mit Schaltfläche andere Feldere löschen
Keine neuen Beiträge Excel Formeln: Hyperlink per VBA kopieren 1 Gast 1118 03. Aug 2004, 16:57
ae Hyperlink per VBA kopieren
Keine neuen Beiträge Excel Formeln: Tabelle einer Internetseite auslesen 1 Andy_beginner 1931 14. Jul 2004, 23:19
Manfred Bartak Tabelle einer Internetseite auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript