Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Code in externer Datei ändern

VBA-Code in externer Datei ändern
06.02.2018 16:16:20
Edwin
Hallo,
ich muss in einer externen Datei 3 Zeilen im VBA-Code einfügen.
Der Code befindet sich in Tabelle1
Private Sub Worksheet_Activate()
AlterVBA-Code1
AlterVBA-Code2
AlterVBA-Code3
NeuerVBA-Code1
NeuerVBA-Code2
NeuerVBA-Code3
End Sub
Kann mir jemand sagen, wie der VBA aussehen muss, damit NeuerVBA-Code1 bis NeuerVBA-Code3 hinzugefügt wird?
Vielen Dank!
Gruß
Edwin

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code in externer Datei ändern
06.02.2018 16:46:22
Hajo_Zi
Hallo Edwin,
mein Excel sagt das ist kein VBA Code.
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: VBA-Code in externer Datei ändern
06.02.2018 16:53:01
Edwin
Hallo Hajo,
es handelt sich um keinen Fehler, sondern lediglich um einen VBA-Code, der eingefügt werden soll.
Private Sub Worksheet_Activate()
MsgBox "AlterVBA-Code1"
MsgBox "AlterVBA-Code2"
MsgBox "AlterVBA-Code3"
MsgBox "NeuerVBA-Code1"
MsgBox "NeuerVBA-Code2"
MsgBox "NeuerVBA-Code3"
End Sub

AW: VBA-Code in externer Datei ändern
06.02.2018 17:00:18
Hajo_Zi
Das ist VBA Code, der löst bei mir keinen Fehler aus.
Ich bin dann raus, Du möchtest nicht den relevanten Code posten.
Gruß Hajo
AW: VBA-Code in externer Datei ändern
06.02.2018 18:41:18
Edwin
Hallo Chris,
ich habe aus deinem Link Fragmente des VBA übernommen.
Damit ich den VBA testen konnte, habe ich ein Sheet "Test" hinzugefügt.
Der VBA läuft.
Sub VBAeinfügen()
Const WS      As String = "Test"
Dim LineNr    As Integer
With ThisWorkbook.VBProject.VBComponents(Worksheets(WS).CodeName).CodeModule
LineNr = .createeventproc("activate", "Worksheet")
.insertlines LineNr + 1, "msgbox ""hallo1"""
.insertlines LineNr + 2, "msgbox ""hallo2"""
End With
End Sub

Zwei Dinge müssen noch geändert werden und dazu fehlt mir leider das Wissen.
1. Private Sub Worksheet_Activate() muss nicht erstellt werden, es ist schon da.
Wie muss ich createeventproc abändern, damit in das vorhandene Worksheet_Activate eingefügt wird?
2. ThisWorkbook
Wie muss ich den VBA abändern, damit ich in die externe Datei den VBA einfügen kann?
Herzlichen Dank!
Viele Grüße
Edwin
Anzeige
AW: VBA-Code in externer Datei ändern
06.02.2018 19:08:48
ChrisL
Hi
ungetestet... "Create" braucht es nicht, nur die Zeilennummer
Sub VBAeinfügen()
Dim WB As Workbook
Const WS      As String = "Test"
Set WB = Workbooks("XY.xlsm")
With WB.VBProject.VBComponents(WB.Worksheets(WS).CodeName).CodeModule
.insertlines 5, "msgbox ""hallo1"""
.insertlines 6, "msgbox ""hallo2"""
End With
End Sub
Die andere Mappe muss geöffnet sein.
cu
Chris
AW: VBA-Code in externer Datei ändern
06.02.2018 20:40:42
Edwin
Hallo Chris,
es kommt zum Laufzeitfehler 1004.
Die Datei XY ist geöffnet, daran kann es nicht liegen.
Hier die Beispieldateien.
https://www.herber.de/bbs/user/119602.xlsm
https://www.herber.de/bbs/user/119603.xlsm
Ich denke, es fehlt das Ziel Worksheet_Activate.
Excel kann nicht wissen, wo der VBA hin soll.
VG
Edwin
Anzeige
AW: VBA-Code in externer Datei ändern
07.02.2018 08:52:49
ChrisL
Hi Edwin
Du hast geschrieben, dass das WS_Activate Ereignis in Mappe2 schon vorhanden ist und verändert werden muss. Ein solches fehlt in der Beispieldatei und darum der Fehler.
cu
Chris
AW: VBA-Code in externer Datei ändern
07.02.2018 09:49:09
Edwin
Hallo Chris,
uppsi.
Aber selbst wenn ich WS_Activate einfüge, dann wird der Code wie folgt eingetragen.
Private Sub Worksheet_Activate()
End Sub
MsgBox "hallo1"
MsgBox "hallo2"
Erschwerend kommt dann noch hinzu, dass ich mein VBAProject geschützt habe. Wenn wir das vorherige Problem gelöst haben, dann können wir uns noch über den VBAProject-Schutz hermachen.
VG
Edwin
Anzeige
AW: VBA-Code in externer Datei ändern
07.02.2018 13:06:42
ChrisL
Hi Edwin
Zeilennummer:
.insertlines 5, "msgbox ""hallo1"""
VBA Passwortschutz kannst du m.W. nur mittels SendKeys aufheben.
https://www.excel-inside.de/vba-loesungen/sonstiges/621-vba-passwort-ueber-ein-vba-makro-aufheben
cu
Chris
AW: VBA-Code in externer Datei ändern
07.02.2018 16:02:04
Edwin
Hallo Chris,
habe verstanden und das einfügen an der richtigen Stelle hat auch geklappt.
VBA Passwortschutz aufheben klappt auch mit der Beispieldatei von Excel-inside.de
Bei mir gerade nicht. Es kommt die Meldung, dass die Makros deaktiviert seien.
Die Meldung kann ich nicht nachvollziehen, weil ich an andere Stelle auch Application.Run ausführe und das einwandfrei funktioniert.
Ich versuche es einfach an einem anderen Tag nochmals. Dann geht es meistens ;-)
Vielen Dank für Deine Hilfe!
Viele Grüße
Edwin
Anzeige

305 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 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
1
3
4
3
3
7
4
4
17
3
3
2
4
2
6
5
4
2
3
1
2
4
4
2
3