Office: Unterprogrammtechnik Wertrückgabe an Hauptprogramm falsch

Hallo,

Ich rufe aus dem Hauptprogramm ein Unterprogramm auf, in dem ein übergebener Wert verarbeitet wird und anschließend an das Hauptprogramm zurückgegeben werden soll.

Hierzu habe ich folgende Programmstruktur benutzt:

Sub HProg()
Dim a As String
a=3
UProg (a)
Msgbox "HProg-Endwert a= " & a
End Sub

Sub UProg (ByRef a As String)
.... Verarbeitung von a
Msgbox "UProg-Endwert a: " & a
End Sub

Bei Verlassen des Unterprogramms ist der Wert von a = 31, zurückgegeben wird aber nur der Anfangswert 3.

Ich hatte gehofft, dass der Parameter ByRef die Rückgabe an das Hauptprogramm bewirkt. Das scheint nicht so zu sein.

Über einen Tipp würde ich mich freuen.

:)

 

Die Klammern sind das Problem
UProg (a) zu UProg a

Ein Beispiel für The First Rule of Programming: It's Always Your Fault

@Der Steuerfuzzi: Link korrigiert. Danke!

 

\@Storax: Dein Link ist "kaputt":
https://blog.codinghorror.com/the-fi...ys-your-fault/

 

Hallo Storax,

Vielen Dank. Hat wunderbar geklappt.

 

https://www.ms-office-forum.net/foru...2&postcount=10

 

Hallo EarlFred,

Deine Erläuterung bringt ja wirklich alles auf den Punkt.
So, wie ich es bisher nirgends lesen konnte.

Herzlichen Dank.

 

Hallo Stau,

nur mal so am Rande, warum deklarierst du eine Variable, die numerische Werte aufnehmen soll als Text?

Code:

 

Hallo Klaus-Dieter,

Ich hatte zunächst die Variable als Long deklariert und erhielt aus irgendeinem Grund einen Debug-Fehler. Daraufhin habe ich mehrere Webbeiträge zum Thema Unterprogrammtechnik gelesen und fand immer in den Beispielen die String-Deklaration.

Daraufhin habe ich auf String umgestellt (und vermutlich aber noch eine weitere Änderung vorgenommen). Und siehe da: Es klappte.
Ich habe mich allerdings darüber gewundert, dass man auch mit einer String-Variablen rechnen kann, denn im Unterprogramm wird mit der Variablen addiert.

Auf jeden Fall gehe ich jetzt flugs zurück zur sinnvollen Long-Deklaration.

Vielen Dank für Deine Aufmerksamkeit.

 

Na dann geh das mal im Direktbereich durch:
Code:

 

Nachtrag:
Nachdem ich gerade auf Long umgestellt habe, erhalte ich den Kompilierungsfehler "Argumenttyp ByRef unverträglich".

Ich habe im aufrufenden Programm zf als Long deklariert, vorbeugend hier bereits einen numerischen Wert zugeordnet und rufe das Unterprogramm auf mit UPro zf.
Im Unterprogramm habe ich Sub "ByRef zf s Long" hinzugefügt.

Dieser Fehler war wohl meine Ausgangssituation, nach der ich auf String umgestellt hatte.
Woran kann denn nun das wieder liegen?

 

https://de.wikibooks.org/wiki/VBA_in...yRef_und_ByVal

 

In meinem Link (Post #5) siehst du, wie es geht.

Nebenbei: deine „Fehlerbeschreibung“ ohne Code ist sinnlos!

 

Hallo Marco,
Genau an den von Dir genannten Link habe ich mich bei der Verwendung des Unterprogramms gehalten, und zwar dort Beispiel Nr.4 (Aufruf mit einer Integer-Variablen bei Anwendung von ByRef).
Nur dass ich statt Integer den Typ Long verwende.

Als ich nun statt Long den Typ Integer verwendet habe, läuft die Anwendung reibungslos. In meinem Fall ist das kein Problem, weil bei mir der Wert nie 32767 überschreiten kann.

Bedeutet das nun, dass die Unterprogrammtechnik mit dem Typ Long versagt?

 

Poste mal Dein Code (wie übrigens in #12 schon geschrieben) dann schauen wir weiter.

 

Unsinn, es gilt immer noch mein erster Link.

Erläuterung, zwar Englisch aber IMHO sehr gut