Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code in Tabellenblatt per Makro einfügen

Forumthread: Code in Tabellenblatt per Makro einfügen

Code in Tabellenblatt per Makro einfügen
19.03.2013 04:12:30
ludmila
Hallo,
ich möchte einen Tabellenblatt-Code aus einem anderen Arbeitsmappen-Modul
einfügen lassen.
Wird aber nicht.
Danke!
Gruß
Ludmila
Windows("Collect.xlsx").Activate
With Workbooks("Collect.xlsx").VBProject.VBComponents("Muster").CodeModule
Code = .Lines(1, 1)
If Code = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" Then
.DeleteLines 1, 9
Else
linenr = .CreateEventProc("SelectionChange", "Worksheet")
.InsertLines linenr + 1, "Dim KeyCells As Range"
.InsertLines linenr + 2, "On Error Resume Next"
.InsertLines linenr + 3, "Set KeyCells = Range(""A22:F1000"")"
.InsertLines linenr + 4, "If Not Application.Intersect(KeyCells, Range(Target.Address))Is Nothing Then"
.InsertLines linenr + 5, "Cells(11, 9) = 1"
.InsertLines linenr + 6, "End If"
End If
End With

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Code in Tabellenblatt per Makro einfügen
19.03.2013 07:35:35
Hajo_Zi
den Zugriff auf das VBA Projekt hast Du zugelassen.
Dazu gebe ich keine Anleitung, da dies meiner Meinung nach tief in die Sicherheit geht.

AW: Code in Tabellenblatt per Makro einfügen
19.03.2013 10:16:50
Rudi
Hallo,
wer sagt denn, dass die Prozedur immer in Zeile 1 steht? Da sollte Option Explicit stehen! 
Sub aaa()
Dim x, y As Long, LineNr As Long
Const sProc As String = "worksheet_selectionchange"
With Workbooks("Collect.xlsx")
With .VBProject.VBComponents(.Sheets("Muster").CodeName).CodeModule
On Error Resume Next
x = .ProcStartLine(sProc, vbext_pk_Proc)
On Error GoTo 0
If x  "" Then 'Proz vorhanden und wird gelöscht
y = .ProcCountLines(sProc, vbext_pk_Proc)
.DeleteLines x, y
End If
LineNr = .CreateEventProc("selectionchange", "Worksheet")
.InsertLines LineNr + 1, "  Dim KeyCells As Range"
.InsertLines LineNr + 2, "  On Error Resume Next"
.InsertLines LineNr + 3, "  Set KeyCells = Range(""A22:F1000"")"
.InsertLines LineNr + 4, "  If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then"
.InsertLines LineNr + 5, "    Cells(11, 9) = 1"
.InsertLines LineNr + 6, "  End If"
.DeleteLines LineNr + 7, 1
End With
End With
End Sub

Gruß
Rudi

Anzeige
AW: Code in Tabellenblatt per Makro einfügen
20.03.2013 03:38:58
ludmila
Hallo Rudi,
Danke!, funkt super.
Gruß
Ludmila
;

Forumthreads zu verwandten Themen

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
VBA Code einfügen
markus

Hallo zusammen,
ich habe noch ein Problem,
beim erstellen der neuen Blätter soll der Code aus dem Blatt "Mustermann_M"
mit übernommen werden, oder über dieses Makro eingefügt werden.
Ist das möglich?
Danke und Gruß Markus
Sub Blätter_erstellen_neu() Sheets("Vorgaben").Un...
12.08.2010 15:37:02
Thread-ID: 1171898
7 Beiträge
Makrocode: Zeilen kopieren und einfügen
David

Hallo,
ich bräuchte einen Makro Code der folgendes macht:
1) bestimme die unterste Zeile (bezogen auf Spalte A) in dem aktiven Tabellenblatt
2) kopiere diese Zeile + die nächst oberen 9 Zeilen
3) füge diese kopierten Zeilen unter die unterste Zeile aus Schritt1 ein und mache daz...
14.11.2012 14:46:17
Thread-ID: 1286631
7 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
Anzeige
Bedingung für VBA-Code einfügen
BEN10

Hallo Leute,
mit folgendem VBA-Code setze ich per Doppelklick in meiner Tabelle in Spalte D ein "X".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("D2:D2000")) Is Nothing Then Exit Sub Target = IIf(Target = "x", "", "x") C...
04.08.2014 13:27:37
Thread-ID: 1374015
6 Beiträge
Anzeige
Änderung VBA-Code zum Einfügen von Zeilen
Zeilen

Hallo Zusammen!
Ich habe im Archiv einen tollen VBA-Code gefunden, der es ermöglicht, per Doppelklick auf eine Zelle ein Fenster zu öffnen und dort einzugeben, wie viele Zeilen ich nach der aktuellen Zeile (also nach unten) einfügen will.
ABER: Es es wird beim Einfügen (egal wie viele Z...
17.08.2014 11:49:35
Thread-ID: 1376917
11 Beiträge
If then VBA Code für kopieren und einfügen
Michael

Hallo Forum,
ich kenne mich mit VBA leider noch nicht so besonders aus und würde gerne einen einfachen Code schreiben, mit dessen Hilfe ich eine einfach copy & paste Aktion durchführe. Der Code sollte sich auf eine bestimmte Zelle beziehen und dann abhängig von der Eingabe den entsprech...
20.04.2015 15:21:46
Thread-ID: 1421912
10 Beiträge
Anzeige
VBA-Code in WorkbookOpen Methode per VBA einfügen
Jörg Müller
Hallo zusammen,
ich lese in einem Excel-File A mit Makros eine CSV-Datei B ein und schreibe diese als XLSM-Datei C in einen Ordner.
Ich schreibe dabei noch eine User-Form aus Datei A mit in die Datei C. Klappt soweit alles wunderbar!
Nur möchte ich beim Schreiben der File C noch VBA-Cod...
06.05.2015 18:03:06
Thread-ID: 1425053
4 Beiträge
VBA: Code vereinfachen kopieren /einfügen
Jürgen

Hallo zusammen,
kann man den Code verkürzen?
denn dieser Code geht bis F32 herunter
:
Sheets("Kundenliste").Select
Range("A1").Select
Selection.Copy
Sheets("Etik").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Kundenliste").Select
Range("C1").Se...
11.05.2016 11:00:30
Thread-ID: 1492718
4 Beiträge
VBA-Code Erweiterung (Druckbereich+Werte einfügen)
Daniel

Hallo Forumsgemeinde,
ich habe nun schon eine Weile gesucht, aber leider nicht das passende gefunden.
Aus einer Mappe mit vielen Reitern möchte ich 3 einzelne Reiter direkt per E-Mail versenden. Mit dem nachfolgenden Code bekomme ich das auch so weit hin. Was mir nun noch fehlt wäre:
04.01.2017 19:53:59
Thread-ID: 1533153
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Code in Tabellenblatt per Makro einfügen

Schritt-für-Schritt-Anleitung

Um einen VBA-Code in ein Excel-Tabellenblatt über ein Makro einzufügen, kannst Du die folgenden Schritte befolgen:

  1. Excel öffnen: Starte Excel und öffne die Arbeitsmappe, in die Du den Code einfügen möchtest.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul einfügen: Klicke im Projektfenster mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)", wähle "Einfügen" und dann "Modul".

  4. Code eingeben: Füge den folgenden Excel VBA Code in das neue Modul ein:

    Sub CodeInTabellenblattEinfügen()
   Dim linenr As Long
   With Workbooks("Collect.xlsx").VBProject.VBComponents("Muster").CodeModule
       ' Hier wird der bestehende Code überprüft und ggf. gelöscht
       If .Lines(1, 1) = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" Then
           .DeleteLines 1, 9
       End If
       linenr = .CreateEventProc("SelectionChange", "Worksheet")
       .InsertLines linenr + 1, "Dim KeyCells As Range"
       .InsertLines linenr + 2, "On Error Resume Next"
       .InsertLines linenr + 3, "Set KeyCells = Range(""A22:F1000"")"
       .InsertLines linenr + 4, "If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then"
       .InsertLines linenr + 5, "Cells(11, 9) = 1"
       .InsertLines linenr + 6, "End If"
   End With
End Sub

  5. Makro ausführen: Speichere Deine Arbeit und schließe den VBA-Editor. Führe das Makro über ALT + F8 aus und wähle das erstellte Makro aus.

Häufige Fehler und Lösungen

  • Fehler: Zugriff auf das VBA-Projekt verweigert
    Lösung: Stelle sicher, dass Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen und aktiviere die Option "Zugriff auf das VBA-Projekt vertrauen".

  • Fehler: Prozedur nicht gefunden
    Lösung: Überprüfe, ob der Name der Prozedur korrekt ist und ob Du den richtigen VBA-Code verwendest. Die Prozedur muss exakt so benannt werden, wie sie im Code definiert ist.

Alternative Methoden

Eine alternative Methode, um VBA Code in Excel einzufügen, ist das Importieren von einer Datei:

  1. Im VBA-Editor wähle Datei > Importieren.
  2. Wähle die .bas-Datei, die den gewünschten Code enthält.
  3. Der Code wird automatisch in das aktuelle Modul eingefügt.

Praktische Beispiele

Hier sind einige Beispiele, wie Du den Code nutzen kannst:

  1. Zellenfarbe ändern: Du kannst den Code erweitern, um die Zellenfarbe zu ändern, wenn eine Auswahl getroffen wird:

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
   Cells(11, 9).Interior.Color = RGB(255, 0, 0) ' Ändert die Zellenfarbe auf Rot
End If

  2. Benachrichtigung anzeigen: Füge eine Nachricht hinzu, die informiert, wenn eine Zelle bearbeitet wird:

    MsgBox "Die Zelle wurde geändert!"

Tipps für Profis

  • Verwende Option Explicit am Anfang Deines Codes, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
  • Organisiere Deinen Code in Modulen, um die Übersichtlichkeit zu erhöhen.
  • Nutze Kommentare, um den Zweck der einzelnen Codezeilen zu erläutern.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Makro funktioniert?
Stelle sicher, dass Du die richtigen Einstellungen in Excel vornimmst und den Code in der richtigen Arbeitsmappe ausführst.

2. Was mache ich, wenn ich Fehler im Code erhalte?
Überprüfe den Code Zeile für Zeile und achte auf Syntaxfehler oder falsche Referenzen. Nutze die Debugging-Tools im VBA-Editor, um den Fehler zu finden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige