Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per Makro ein Private Sub in einer Datei anlegen

Forumthread: per Makro ein Private Sub in einer Datei anlegen

per Makro ein Private Sub in einer Datei anlegen
14.10.2015 10:26:41
u_hoernchen
Hallo Ihr Profis,
ich möchte über ein Makro erreichen, dass in der Datei, die durch das Makro bearbeitet wird, ein Private Sub im aktuellen Blatt angelegt wird (Worksheet_change(ByVal target As Range)).
wie lautet der Befehl für das Anlegen des Private Sub?
danke im Voraus
Ulrike

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
lies mal ...
17.10.2015 16:35:18
Michael
Hi Uli,
es ist leider nicht ganz trivial, insbesondere sind einige Voraussetzungen nötig, die auf fremden Rechnern wahrscheinlich *nicht* erfüllt sind, so daß man das schlecht weitergeben kann.
Lies mal das hier: http://www.online-excel.de/excel/singsel_vba.php?f=124
Schöne Grüße,
Michael
Anzeige

Forumthreads zu verwandten Themen

Private Sub Worksheet_Activate()
Vera

Liebe Forumsmitglieder
mir ist aufgefallen dass Worksheet_Activate() nur bei Tabellen funktioniert. z.B.
Private Sub Worksheet_Activate() MsgBox "hallo" End Sub
Bei eingefügten Diagrammen (als eigene Seite) funktioniert das aber leider nicht.
Gibt es da auch eine Methode um...
05.09.2008 09:09:00
Thread-ID: 1007583
4 Beiträge
Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
Private Sub open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge
Problem mit Private Sub Workbook_SheetDeactivate
Peter

Guten Tag
Immer wenn ich die Tabelle "Journal-zum-bearbeiten" verlasse, sollte der Code Aktivieren_Analyse ausgeführt werden.
Mir ist nicht klar, weshalb der nachfolgende Code dies nicht immer auslöst:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Sh.Name = "Journal-zu...
14.10.2009 15:21:27
Thread-ID: 1109595
3 Beiträge
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Klassenmodul: Private Sub Class_Initialize()
Helmut

Hallo,
ich möchte im Klassenmodul clClass an
Private Sub Class_initialize(x as String) die Variable x übergeben.
Funktioniert bei mir später nicht, wenn ich im Programm
Dim Test as clClass
set Test=new clClass("Test")
eingebe.
a) kann man bei Class_Initialize Variab...
06.11.2009 11:57:37
Thread-ID: 1114943
2 Beiträge
Anzeige
VBA : Aufruf Sub2() innerhalb eines Sub1()
Hajo
Hallo Andreas
Gruß Hajo
16.04.2002 21:49:31
Thread-ID: 113895
2 Beiträge
Anzeige
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 Beiträge
Anzeige
Frage zu Private Sub WorksheetActivate() | Herbers Excel-Forum
Angelo Wi
Frage zu Private Sub Worksheet_Activate()
Kann ich ein anderes Sub starten zB Application.Run "BLZusKopieren"
funktioniert bei mir nicht
03.02.2010 21:28:30
Thread-ID: 1135596
6 Beiträge
Private Sub WorksheetActivate + Application.Run ? | Herbers Excel-Forum
Angelo Wi
Guten Tag
ich möchte dass in diesem sub über Application.Run "Kontrolle" ein weiteres Makro sofort gestartet wird
damit das gesamte Rechenwerk überprüft und kontrolliert werden kann
bei mir funktioniert das so nicht
Herzlichen Dank für die Lösung
mfG Angelo
Private Sub Works...
05.02.2010 09:48:04
Thread-ID: 1136029
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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