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
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worksheet_change Ereignis zuweisen?

worksheet_change Ereignis zuweisen?
07.11.2006 15:42:42
Markus
Hallo,
Ich habe eine Tabelle mit dem folgenden Code erstellt.
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Name
Wie kann ich der neu erstellten Tabbelle auch einen Code im Worksheets_change Ereignis eintragen.
Danke für eure Hilfe
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: worksheet_change Ereignis zuweisen?
07.11.2006 15:59:02
Rudi
Hallo,
Sub tt()
Dim wks As Worksheet
Set wks = Worksheets.Add
With ThisWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.InsertLines 3, " 

Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 4, "Msgbox Target.Address"
.InsertLines 5, "End Sub
"
End With
End Sub
Gruß
Rudi
AW: worksheet_change Ereignis zuweisen?
07.11.2006 18:23:44
Markus
Hallo Rudi,
danke für deinen code.
Ich habe ihn umgebaut, leider erhalte ich eine Fehlermeldung
"Der programmatische Zugriff auf VBA-Objekte ist nicht sicher"
With ThisWorkbook.VBProject.VBComponents _(Worksheets(TabelleProfiltypName).CodeName).CodeModule
.InsertLines 3, " 

Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 4, "Msgbox Target.Address"
.InsertLines 5, "End Sub
"
End With
End Sub
Anzeige
AW: worksheet_change Ereignis zuweisen?
08.11.2006 09:31:07
Rudi
Hallo,
Extras-Makro-Sicherheit-Vertrauenswürdige Quellen; Zugriff auf... anhaken.
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige