Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Aufrufende Funktion oder sub ermitteln

Frage Entwicklung VB for Applications

Mitglied: miniversum

miniversum (Level 3) - Jetzt verbinden

14.10.2009, aktualisiert 10:07 Uhr, 7310 Aufrufe

Kann man herausfinden welche Funktion oder Sub die aktuelle Sub aufgerufen hat?
Alternativ der Name der aktuellen Funktion oder Sub.

Hallo
Ich schreibe gerade eine etwas größere Anwendung in VBA in Excel 2003.
Um Fehler abzufangen habe ich eine Sub "ErrorFunction" die dann im Fehlerfall alles weitere verarbeitet.
Diese Sub rufe ich dann in den Einzelnen Funktionen und Subs im Fehlerfall auf.

Nun sollte in dieser "ErrorFunction" auch eine Meldung ausgegeben werden mit der Art des Fehlers (Err.Description). Außerdem würd ich gerne wissen wo der Fehler entstanden ist. Bisher mache ich das so das ich beim Aufruf der Name der aufrufenden Funktion übergebe, Also so:
Call ErrorFunction("Funktion1")
und in meiner "ErrorFunction" diesen Parameter dann eben mit in die Meldung einbaue.
Nun ist es allerdings recht aufwendig bei jeder Funktion und Sub die die "ErrorFunction" auslöst den Namen anzugeben, da das sehr viele sind und ich doch gerne einen einheitlichen Aufruf hätte. Daher hab ich mich gefragt ob es nicht möglich ist den Namen der aufrufenden Funktion oder Sub direkt in "ErrorFunction" zu ermitteln.
Err.Source liefert mir leider nur den Projektnamen. An den Funktionsnamen allerdings scheint mit VBA mitteln nicht so leicht heranzukommen.

Alternativ habe ich auch schon vesuche den Namen der aktuellen Funktion zu ermitteln und diesen dann an die "ErrorFunction" zu übergeben, statt eines statischen Stings, wie im Beispiel oben das "Funktion1".

Hat hier jemand eine Idee wie das doch gehen könnte? Vielleicht über eine api Funktion oder Abfrage des Stacks oder so?

miniversum
Ähnliche Inhalte
Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...