Thema Datum  Von Nutzer Rating
Antwort
15.03.2024 17:26:36 Andi
NotSolved
Blau Auslesen ob eine Prozedur Sub oder Function ist?
15.03.2024 18:51:33 xlKing
Solved
16.03.2024 17:13:02 Andi
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
15.03.2024 18:51:33
Views:
185
Rating: Antwort:
 Nein
Thema:
Auslesen ob eine Prozedur Sub oder Function ist?

z.B. so:

Sub GetProcType()

  With ActiveWorkbook.VBProject.VBComponents("Modul1").CodeModule
    Proc = .ProcOfLine(5, 0)
    Start = .ProcBodyLine(Proc, 0)
    Defline = .Lines(Start, 1)
    Def = Trim(Left(Defline, InStr(Defline, Proc) - 1))
    Proctype = IIf(InStr(Def, "Function") > 0, "Function", IIf(InStr(Def, "Property") > 0, "Property", "Sub"))
  End With

End Sub

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.03.2024 17:26:36 Andi
NotSolved
Blau Auslesen ob eine Prozedur Sub oder Function ist?
15.03.2024 18:51:33 xlKing
Solved
16.03.2024 17:13:02 Andi
NotSolved