Office: (Office 2016) Funktion soll Wert in Variable übergeben (VBA)

Christoph aus Berlin · 20. November 2020

Hallo Forum-Gurus,

ich bräuchte kurz Eure Hilfe. Anscheinend bin ich auf den Kopf gefallen.

Folgende Funktion habe ich programmiert und möchte das Ergebnis nun in einer andere Private Sub verwenden.

Code:

Function laufendeNummer(lfdNr As Integer)

Dim lngZeile As Long

Call Datensicherungsdatei_oeffnen

With Worksheets("Tabelle1")

lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
lfdNr = .Cells(lngZeile, 2).Value

End With

lfdNr = lfdNr + 1

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ergebnis lfdNr möchte ich gerne in der anderen Sub verwenden.

Danke und liebe Grüße
Hoffi

:)

R J · 22. November 2020

Hi Hoffi,

eine Funktion muss einen Rückgabewert haben. Den definiert man nach der schließenden Klammer im Funktionskopf.
Deine Funktion soll einen Long liefern, also muss die Funktionsdeklaration so aussehen:

Code:

Function laufendeNummer(lfdNr As Integer) as long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit der Wert auch zurückgeliefert wird, muss (i.d.R vor End Function) der Funktionsname = Rückgabewert stehen.
Also bei Dir:
Code:

laufendeNummer = lfdNr
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufruf erfolgt dann beispielsweise so:
Code:

Dim nr as long
nr = laufendeNummer (23)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Christoph aus Berlin · 22. November 2020

Danke *Smilie

Office: (Office 2016) Funktion soll Wert in Variable übergeben (VBA)

Funktion soll Wert in Variable übergeben (VBA)

Funktion soll Wert in Variable übergeben (VBA)

Funktion soll Wert in Variable übergeben (VBA) - Similar Threads - Funktion Wert Variable

Wert einer Zelle neben einer anderen Zelle automatisch anzeigen

Alternative zur Filter Funktion

Korrigieren eines #WERT!-Fehlers in der VERKETTEN-Funktion

(Summen-)Wenn-Funktion mit eindeutigen Werten

MAX-Funktion in Abfrage mit mehreren Werten

(Summen-)Wenn-Funktion mit eindeutigen Werten

#wert!