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

von Modul aus die Tabelle 1 aufrufen ?

Forumthread: von Modul aus die Tabelle 1 aufrufen ?

von Modul aus die Tabelle 1 aufrufen ?
18.07.2007 11:44:12
Modul
Hallo,
ich habe ein kleines Problem. wie kann ich aus einem Modul mein "Excel Objekt" Worksheet_SelectionChange in Tabelle 1 aufrufen?
deklaration des Objektes:
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
aufruf:
mynumber2 = Worksheet_SelectionChange (myNumber)
jetzt kommt der Fehler:
"Sub oder Function nicht definiert"

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: von Modul aus die Tabelle 1 aufrufen ?
18.07.2007 11:57:18
Modul
Hallo,
andersrum.

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Makro1
End Sub


Sub Makro1
'der Code aus Worksheet_SelectionChange
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: von Modul aus die Tabelle 1 aufrufen ?
18.07.2007 12:42:00
Modul
Hi,
die event-handlers sind private im Tabelle-Class Modules, also man muss sie erstmals als Public deklarieren. Dann kann man den Name der tabelle benutzen und die Methode rufen. Ein Beispiel:
' Module:

Public Sub CallSelectionChange()
Call Tabelle1.Worksheet_SelectionChange(Range("a1"))
End Sub


' Tabelle1:
Option Explicit
' hier Private auf Public aendern:


Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print Target.Address
End Sub


Gruss Dan, cz

Anzeige
AW: von Modul aus die Tabelle 1 aufrufen ?
18.07.2007 12:49:00
Modul
Hi,
geanuer gesagt, man benutzt nicht den Name, sondern den 'CodeName' der Tabelle.

noch Ergaenzung :-)
18.07.2007 12:53:00
Dan
folgendes geht natuerlich auch:

Public Sub CallSelectionChange()
Call Worksheets(1).Worksheet_SelectionChange(Range("a1"))
End Sub


Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum