Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code durch VBA kopieren?

VBA Code durch VBA kopieren?
27.09.2005 18:56:01
Hans
Einen schönen guten Abend wünsche ich,
ich bin leider im Moment zu einem Punkt vorgestoßen wo ich einfach Passen muss, ich hoffe mir kann hier jemand helfen.
Und zwar geht es darum das ich eine Möglichkeit suche mittels VBA den VBA Code einer Tabelle auszulesen und in eine andere Tabelle zu kopiere. Ist sowas möglich, und wenn ja wie?
Mit besten Dank im Vorraus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code durch VBA kopieren?
27.09.2005 19:04:02
Heiko
Hallo Hans,
z.B. so. Kopiert das Modul Globale Variable, muß du deinen Bedürfnissen natürlich noch anpassen.

Private Sub CommandButton12_Click()
Dim strPath As String
strPath = Application.Path & "\"
On Error GoTo Errorhandler
ThisWorkbook.VBProject _
.VBComponents("GlobaleVariable").Export strPath & "GlobaleVariable.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import strPath & "GlobaleVariable.bas"
.VBComponents("GlobaleVariable").Name = "MyModul"
End With
Kill strPath & "\GlobaleVariable.bas"
MsgBox "Modul wurde kopiert!"
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Modul kopieren!"
Else
MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
End Sub

Gruß Heiko
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige