Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

[VBA] Eigene Funktion auch ohne Argument zulassen

Forumthread: [VBA] Eigene Funktion auch ohne Argument zulassen

[VBA] Eigene Funktion auch ohne Argument zulassen
29.03.2017 22:15:30
Nils
Hallo,
ich habe eine eigene Funktion gebastelt:
wie fange ich das fehlen eines Arguments ab? Ich möchte das auch gerne zulassen?

Public Function BLATTNAME(Nummer As Integer) As String
' Neuberechnungen aktivieren mit Application.Volatile
Application.Volatile
If Nummer  ActiveWorkbook.Worksheets.Count Then
BLATTNAME = "-"
    ElseIf Nummer = "" Then
BLATTNAME = ActiveWorkbook.ActiveSheet.Name
Else
BLATTNAME = ActiveWorkbook.Sheets(Nummer).Name
End If
End Function

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: [VBA] Eigene Funktion auch ohne Argument zulassen
29.03.2017 22:34:36
Crazy
Hallo
was für ein Argument willste denn wech lassen?
vielleicht so?
Public Function BLATTNAME(Optional Nummer As Integer) As String
MfG Tom
AW: [VBA] Eigene Funktion auch ohne Argument zulassen
29.03.2017 22:42:49
Nils
Perfekt, danke! :-)
Optional.... das hatte ich gesucht! :-)
AW: [VBA] Eigene Funktion auch ohne Argument zulassen
29.03.2017 22:48:27
Gerd
Hallo Nils,
falls "-" erhalten bleiben soll.
Public Function BLATTNAME(Optional Nummer As Variant) As String
' Neuberechnungen aktivieren mit Application.Volatile
Application.Volatile
If IsMissing(Nummer) Then
BLATTNAME = ActiveSheet.Name
Else
On Error Resume Next
BLATTNAME = ActiveWorkbook.Sheets(Nummer).Name
On Error GoTo 0
End If
If Len(BLATTNAME) = 0 Then BLATTNAME = "-"
End Function

Gruß Gerd
Anzeige
AW: [VBA] Eigene Funktion auch ohne Argument zulassen
29.03.2017 23:10:16
Nils
Auch nicht schlecht, danke! :-)

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige