Office: eigene Funktion erstellen und verwenden

roll4ever · 6. Dezember 2010

Hallo,

ich habe eine ziemlich umfangreiche Funktion die ich an mehreren Stellen in unterschiedlichen VBA-Codes anwenden muss. Da ich aber keine Lust habe diese ständig zu kopieren und einzufügen würde ich diese gerne als Function speichern und dann immer nur aufrufen.

Frage:
Kann mir jemand eine Anleitung dafür geben, bzw. kennt jemand einen Link wo diese ganze Prozedur (anlegen und aufrufen) leicht verständlich beschrieben ist?

Vielen Dank für jede Antwort!!!

:)

EarlFred · 8. Dezember 2010

Hallo,

ja, in der OH (warum kommt man da nicht selbst drauf?).

Suche nach
"Aufrufen von Sub- und Function-Prozeduren"
und
"Schreiben einer Function-Prozedur"

Grüße
EarlFred

roll4ever · 8. Dezember 2010

Hallo EarlFred,

kommt bei mir nur Müll raus!!!!

Sorry,

roll4ever

jinx · 8. Dezember 2010

Moin, roll4ever,

die Aussage

kommt bei mir nur Müll raus!!!!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lässt für weitere Hilfeversuche nur wenig Spielraum.

Dir ist der Unterschied zwischen einer Funktion und einer aufzurufenden Sub (ggf. mit Parameterübergabe) aber bekannt, oder weshalb versuchst, Du eine Funktion zu erstellen?

ich habe eine ziemlich umfangreiche Funktion
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Machst Du aus einer Funktion jetzt eine zweite? *confused.gif*

roll4ever · 8. Dezember 2010

Tut mir leid das ich mich jetzt erst melde, aber ich habe im Moment leider überhaupt keine Zeit.

Danke für eure Hilfe soweit!!!!

Ich schließe den Beitrag jetzt und eröffne gegebenfalls einen neuen.

Vielen Dank nochmal für eure Bemühungen!!

Tschüss, roll4ever

chris-kaiser · 9. Dezember 2010

Hi

Anbei ein paar Bsp.
*grins kommt bei mir nur Müll raus!!!!
ist wirklich nicht gerade aussagekräftig, ausser du arbeitest in der Müllverarbeitungsindustrie, dann könnte dies vielleicht genau das sein, was herauskommen sollte *grins

Code:

Option Explicit
'*****Bsp1_ 2 Makros die auf die gleiche Funktion zugreifen und einen Rückgabewert bekommen****
Sub Ich_bin_makro_eins_mit_aufruf_einer_funktion()
Dim dblMyVariable_die_in_funktion_verarbeitet_wird As Double
Dim dblErgebnis As Double
dblMyVariable_die_in_funktion_verarbeitet_wird = 123.45
dblErgebnis = myFunktionsname(dblMyVariable_die_in_funktion_verarbeitet_wird, True)
MsgBox dblErgebnis
End Sub

Sub Ich_bin_makro_zwei_mit_aufruf_einer_funktion()
Dim dblMyVariable_die_in_funktion_verarbeitet_wird As Double
Dim dblErgebnis As Double
dblMyVariable_die_in_funktion_verarbeitet_wird = 123.45
dblErgebnis = myFunktionsname(dblMyVariable_die_in_funktion_verarbeitet_wird, False)
MsgBox dblErgebnis
End Sub

Function myFunktionsname(Ubergabe_aus_Makro As Double, nochwas As Boolean) As Double
If nochwas = True Then
myFunktionsname = Ubergabe_aus_Makro * 2 - 50
Else
myFunktionsname = Ubergabe_aus_Makro * 2 + 50
End If
End Function
'*****Bsp1 Ende******************
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'***Bsp2 2 Makros die auf eine anderes Makro zugreifen*****
Sub Ich_bin_makro_eins()
MsgBox "Makro eins mit dem jeweiligen Code gestartet"
makro3 'startet Makro3, um vielleicht unwerwünschte Nebenwirkungen auszuschließen würde ich Call makro3 verwenden
'ohne Call würden die Makros parallel ablaufen mit call DeinMakroName wird das Makro solange angehalten
'bis das aufgerufene Makro abgeschlossen ist.
End Sub

Sub Ich_bin_makro_zwei()
MsgBox "Makro zwei mit dem jeweiligen Code gestartet"
makro3 'startet Makro3
End Sub

Sub makro3()
MsgBox "Makro3 startet"
End Sub
'****Bsp2 Ende*****
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'***Bsp2 3 Makros die auf eine andere Prozedur zugreifen mit Übergabeparametern*****
Sub Ich_bin_makro_eins_mit_Uebergabe_an_Makro3_Ue()
MsgBox "Makro eins mit dem jeweiligen Code gestartet"
Call Makro3_Ue(1, 2, 3) 'hier können statt 1,2,3 natürlich auch Variablen verwendet werden
End Sub

Sub Ich_bin_makro_zwei_mit_Uebergabe_an_Makro3_Ue()
MsgBox "Makro Zwei mit dem jeweiligen Code gestartet"
Call Makro3_Ue(2, 99, 101) 'hier können statt 1,2,3 natürlich auch Variablen verwendet werden
MsgBox "weiterer Code würde hier natürlich weiterlaufen"
End Sub

Sub Makro3_Ue(dblersterWert As Double, dblzeiterWert As Double, dbldritterWert As Double)
MsgBox "was auch immer hier passieren sollte ^^" & Chr(13) & _
"aus dem Makro" & dblersterWert & " komme ich her, habe als zweiten Wert:" & dblzeiterWert & " dieser multipliziert mit dem dritten Wert wäre " & _
dblzeiterWert * dbldritterWert & Chr(13) & "Welchen Zahlenwert hatte wohl Zahl 3? ^^"
End Sub
'****Bsp3 Ende*****
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sonnenstrahl · 9. Dezember 2010

Hallo allerseits,
Danke chris, habe es mal ausprobiert, um es verstehen zu lernen. Du hast es ja auch gut erklärt. Für mich gibt es auch gleich neue Ideen dazu. Mal sehen.
Gruß Sylvia
(kommt nur Müll ..... empfinde ich als eine Beleidigung für alle, die hier so fleißig mit Rat und Tat zur Seite stehen !!!)
Sylvia

roll4ever · 12. Dezember 2010

Wollte mit meiner Aussage niemanden beleidigen noch dessen Arbeit nicht würdigen!!!

Ich bin immmer für jede Hilfe dankbar!!

Office: eigene Funktion erstellen und verwenden

eigene Funktion erstellen und verwenden

eigene Funktion erstellen und verwenden

eigene Funktion erstellen und verwenden

eigene Funktion erstellen und verwenden

eigene Funktion erstellen und verwenden - Similar Threads - eigene Funktion erstellen

Eigene Form in PowerPoint erstellen

"Eigene"excel-Funktion innerhalb einer Sub verwenden

Benutzerdefiniertes Sortieren nach eigener Liste funktioniert nicht

emails per vba mit eigenem Ordner speichern

Wert aus Datenzeile filtern & in eigene Spalte bringen

Eigene Funktion bringt plötzlich #NAME?

eigene Funktion mit beliebig vielen Argumenten