Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA Code in neues Tabellenblatt einfügen

Per VBA Code in neues Tabellenblatt einfügen
28.09.2016 12:35:44
Hartmut_M
Hallo, bitte helft mir bei folgender Frage.
Per VBA kopiere ich ein Tabellenblatt in meine Hauptdatei.
In dieses neue Tabellenblatt möchte ich gerne Code für ein SelectionChange Ereignis einfügen.
Ich stelle mir vor, dass der Code in einem Modul abgespeichert ist und dann per VBA in das neue Tabellenblatt kopiert wird.
Ist das möglich, und wenn ja wie?
Gruß Hartmut

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA Code in neues Tabellenblatt einfügen
28.09.2016 16:53:49
Hajo_Zi
Hallo Hartmut,
warum nicht gleich in der Tabelle die kopiert wird?
Bei Deiner Aufgabe muss der Zugriff auf das VBA Projekt zugelassen werden.
Ich gebe dazu keine Auskunft.

AW: Per VBA Code in neues Tabellenblatt einfügen
29.09.2016 10:05:03
Hartmut_M
Hallo, erstmal danke für eure Rückmeldungen.
Komme allerdings noch nicht richtig weiter.
Die Tabelle, die kopiert wird, ist eine maschinell erzeugte csv-Datei, die jede Woche neu erstellt wird. Dieses Tabellenblatt kopiere ich in meine bestehende Excel-Datei. In das importierte Tabellenblatt soll dann code eingefügt werden. Wie könnte ich das sonst bewerkstelligen?
Habe jetzt durch Google folgende Lösung gefunden:
'Makro in neues Tabellenblatt kopieren
Dim x As Integer
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
x = .CreateEventProc("Change", "Worksheet")
.InsertLines x + 1, "Dim NR As String, VN As String"
.InsertLines x + 2, "Set Target = Application.Intersect(Target, Range(""B:B""))"
Damit läuft alles so, wie ich es benötige.
Mein Problem ist jetzut noch, dass bei VBComponents in Klammern die Tabellenbezeichnung mit Nummer eingegeben werden muss. Diese Tabellennummer ist aber nicht immer gleich. Statt der Bezeichnung würde ich lieber den Tabellennamen, wie er unten am Tabellenblatt steht nehmen. Also so: 
With ThisWorkbook.VBProject.VBComponents("47110").CodeModule

Da bekomme ich aber den Laufzeitfehler 9: Index außerhalb des gültigen Bereiches.
Was mache ich falsch, bzw. wie muss es richtig lauten?
Gruß Hartmut
Anzeige
AW: Per VBA Code in neues Tabellenblatt einfügen
28.09.2016 17:07:33
Daniel
Hi
prinzipell ist sowas möglich, ist aber aufwendig (such mal im Internet nach "Code mit Code manipulieren")
wenn du die Eventmakros aber schon im Vorlagenblatt erstellst und das Blatt mit Sheets.Copy überträgst, werden die Makros automatisch mit übernommen.
wenn du möchtest, dass die Eventmakros erst in der Hauptdatei funktionieren und in der Vorlage noch nicht, dann könntest du ja an den Anfang folgende Prüfung stellen:
IF ThisWorkbook.Name = "Name der Vorlagendatei.xlsb" Then Exit Sub

Gruß Daniel

38 Forumthreads zu ähnlichen Themen

Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Button soll neues Blatt einfügen
Tim

Liebe Excler,
ich habe eine Datei angefuegt, die ich gerne nutzen möchte.
Er andelt sich um Monats-Haushaltsplanungen. In diesem Fall für Januar 2010.
Ich würde gerne einen Button haben, auf den ich klicken kann, sodass es mir das Arbeitsblatt kopiert, jedoch mit leerem Inhalt für d...
27.01.2010 06:30:13
Thread-ID: 1133276
8 Beiträge
Anzeige
Bereich kopieren, in neues Blatt einfügen.
Chris

Hallo zusammen,
ich habe mir folgendes Makro geschrieben, dass mir ein neues Tabellenblatt erzeugt und den Name des Blattes aus einer Zelle liest. Läuft soweit.
Nun bräuchte ich noch den Zusatz, dass vom Ausgangsblatt ("Tabelle1"), der Bereich D1:F28 kopiert wird und
jeweils in das...
13.09.2011 23:44:34
Thread-ID: 1229775
11 Beiträge
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
VBA Code ab Zelle einfügen
Dieter(Drummer)

Guten Tag VBA Spezialiaten,
in Herbers Archiv fand ich diesen Code:
VBA-Code als Zellkommentar anzeigen Problem: Der Code eines VBA-Moduls soll in Zelle A1 als Kommentar angezeigt werden. StandardModule: Modul1 Sub GetCode() Dim cmt As Comment Dim sCode As String With ThisWorkbook.VBPro...
14.12.2012 14:18:43
Thread-ID: 1290913
3 Beiträge
Faxdrucker in vbacode einfügen
Bernd

Hallo zusammen,
komme mal wieder nicht weiter und brauche Hilfe.
Mit nachfolgenden Code lese ich aus UF TextBoxen Werte in Wordvorlage ein. Jetzt versuche ich nachdem das Dokument abgespeichert ist es wieder zu öffnen an den Faxdrucker zu übergeben und bekomme das nicht alleine hin.
...
17.09.2013 16:04:47
Thread-ID: 1331210
6 Beiträge
Tabelle monatsweise in ein neues Blatt einfügen
Christiane

Hallo,
ich bräuchte bitte mal Hilfe von den Fachmännern/Fachfrauen, weil ich irgendwie nicht weiter komme:
Ich habe eine Tabelle in der Buchungszeilen für ein ganzes Kalenderjahr (z.B. 2013)sind. Also existiert auch eine Spalte mit Belegdatum (z.B. Spalte C, Format TT.MM.JJ). Nun würde...
20.01.2014 19:19:03
Thread-ID: 1346066
5 Beiträge
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
21
5
2
7
6
10
2
2
5
4
5
10
1
9
3
4
1
2
3
3
3
2
5
5
2