Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll einen Wert/Parameter zurückgeben

Makro soll einen Wert/Parameter zurückgeben
Holger
Hallo,
ich kann einem makro einen oder mehrere Werte mitgeben in dem ich in der Definition des Makros in Klammern die Werte eintrage.
Aber in meinem Fall habe ich ein Makro. In diesem wird ein Makro ausgeführt, ich übergebe dazu zwei Parameter. Nun soll dieses Makro an das ursprüngliche Makro einen Wert (string) zurückgeben, nachdem es gelaufen ist.
Wie geht sowas?
Ich kann es nur in die eine, aber nicht in die andere Richtung.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
als byRef deklarieren.
24.06.2010 15:31:49
Tino
Hallo,
deklariere im Makro die Variable als ByRef.
Sub Makro1()
Dim Ergebnis As Double
Makro2 Ergebnis
MsgBox Ergebnis
End Sub
Sub Makro2(ByRef Wert As Double)
Wert = 100
End Sub
Ist aber Normalerweise Standart und muss nicht angegeben werden. 

Sub Makro1()
Dim Ergebnis As Double
Makro2 Ergebnis
MsgBox Ergebnis
End Sub
Sub Makro2(Wert As Double)
Wert = 100
End Sub
Das Gegenstück ist ByVal
Gruß Tino
du erstaunst mich
24.06.2010 15:41:49
Rudi
Hallo Tino,
das wusste ich bislang nicht. Ist gemerkt.
Gruß
Rudi
kann auch wichtig sein
24.06.2010 15:55:56
Tino
Hallo,
daher kann es auch mal ungewollt zu falschen Ergebnissen kommen.
Angenommen man übergibt eine Variable an eine Sub oder Function und
will aber in der eigentlichen Sub mit dem unveränderten Wert arbeiten.
Nun wird der Wert in der aufgerufenen Prozedur verändert und
weil ich nicht mit byVal deklariert habe, hat die Variable dessen Wert ich eigentlich
nicht verändern möchte geändert.
Beispiel zum spielen
'Beispiel 1 byRef = Standard ********* 
Sub Beispiel1()
Dim Ergebnis As Double

Ergebnis = 5
Makro2 Ergebnis
MsgBox Ergebnis

End Sub

Sub Makro2(Wert As Double)
    Wert = Wert * 5
End Sub


'Beispiel 2 byVal ********************* 
Sub Beispiel2()
Dim Ergebnis As Double

Ergebnis = 5
Makro4 Ergebnis
MsgBox Ergebnis

End Sub

Sub Makro4(ByVal Wert As Double)
    Wert = Wert * 5
End Sub

Gruß Tino
Anzeige
Danke
24.06.2010 16:13:04
Rudi
Hallo,
so lernt man als alter Esel noch das Tanzen ;-)
Gruß
Rudi
Du musst zwar hier nicht alles lesen,...
25.06.2010 15:25:23
Luc:-?
…Rudi,
aber doch das Richtige, dann hättest du das längst gewusst… ;-))
Gruß+schöWE, Luc :-?
Dank auch an dich ...
25.06.2010 23:36:20
Rudi
Hallo Luc,
... für deinen wie (fast) immer treffenden als auch bissigen Kommentar. Auch ;-))
Auch dir ein schönes WE
Gruß
Rudi
Verstehe ich nicht
24.06.2010 15:43:09
Holger
Hallo,
ich kapiere es leider noch nicht ganz. 
Sub Makro1
Makro2(strDate) ' hier übergebe ich dem Makro 2 den Inhalt von strDate
End Sub


Sub Makro 2(Datum as string, byRef PfadName as string)
Pfadname = "irgendwas"
End Sub
Es klappt so nicht, denn in Makro1 ist der Wert von PfadName immer noch nicht bekannt!
Anzeige
gebe diese als Optional an.
24.06.2010 16:04:19
Tino
Hallo,
Sub Makro1()
Dim strPfad$, strDate$
'so *******************
Call Makro2(, strPfad$)
MsgBox strPfad
strPfad = ""
'oder so ********************
Call Makro2(strDate, strPfad$)
MsgBox strPfad
End Sub
Sub Makro2(Optional Datum As String, Optional ByRef PfadName As String)
PfadName = "irgendwas"
End Sub
So kannst Du beide Parameter übergeben, musst aber nicht.
Wenn Du einen Parameter übergeben willst, geben den Optionalen am Schluss ein.
Sub Makro1()
Dim strPfad$, strDate$
'so *******************
Call Makro2(strPfad$)
MsgBox strPfad
strPfad = ""
'oder so ********************
Call Makro2(strPfad$, strDate)
MsgBox strPfad
End Sub
Sub Makro2(ByRef PfadName As String, Optional Datum As String)
PfadName = "irgendwas"
End Sub
PS: byRef ist die Standardeinstellung und muss nicht angegeben werden.
Gruß Tino
Anzeige
Vielleicht so besser?
24.06.2010 18:23:46
Erich
Hallo Holger,
schau dir das mal an: 

Sub Makro1()
Dim strDate As String
Dim strPfad As String
strDate = "heute"
Makro2 strDate, strPfad
' oder
Call Makro2(strDate, strPfad)
MsgBox "und hier ist: " & strPfad
End Sub
Sub Makro2(strDa As String, PfadName As String)
PfadName = "Wir gehen " & strDa & " ins Kino!"
End Sub
Makro2 hat 2 Parameter - so hattest du das auch geschrieben.
(Den Variablennamen "Datum" habe ich durch "strDa" ersetzt, "Datum" ist der Name einer Excelfkt.)
Makro2 ändert den 2. Parameter "PfadName" - das ist ja gerade sein Zweck.
Dafür braucht es wohl auch den 1. Parameter - sonst wäre der ja nutzlos.
Also erwartet Makro2, dass es mit 2 Parametern aufgerufen wird.
Mit dem 1. Parameter wird ein (Datums-)String übergeben.
Der 2. Parameter kann leer sein - er soll ja durch Makro2 gefüllt werden.
Nach dem Aufruf steht das, was in Makro2 als PfadName berechnet wurde,
in der Variablen strPfad in Makro1.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Makro soll einen Wert/Parameter zurückgeben
24.06.2010 15:33:39
Rudi
Hallo,
evtl. das 2.Makro als Function definieren und im ersten dann
MeinWert=MeineFunktion(Param1, Param2)
oder MeinWert als Public deklarieren.
Gruß
Rudi

299 Forumthreads zu ähnlichen Themen

Diagramm/Bild in UF - 2003 ja - 2007 error ?
Jens

Moin allerseits
ich hab da ein Diagramm in einer Userform, bzw ein Bild eines Diagramms.
Das Diagramm hat 4 Datenpunkte.
Unter Excel 2000 läuft es gut - unter Excel 2007 gibt es den Fehler, dass 2D Diagramme nicht mehr als 32000 Datenpunkte enthalten dürfen...aber es sind nur 4 ! <...
08.08.2008 22:59:03
Thread-ID: 1000428
3 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Prüfe Tabelle für Tabelle nach bestimmten Inhalt
Tom

Hallo - schönen guten Morgen....
Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click() Dim lngZ As Long With Sheets("Mitarbeiterdaten") Workbo...
15.09.2008 11:08:52
Thread-ID: 1009714
6 Beiträge
Diagramm in Kommentar einbinden
Frank

Hallo!
Ich möchte gerne ein Diagramm in einen Kommentar einbinden.
Meine Frage ist nun geht das überhaupt und wenn ja wie?
Falls nicht, gibt es eine andere - vergleichbare Lösung?
Gruß Frank
17.09.2008 12:27:00
Thread-ID: 1010326
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
Josef

Guten Morgen!
Ich habe in einem Tabellenblatt ca. 8000 Datensätze. Wenn z.B. in der Spalte D der Wert "MusterA" steht, dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
07.10.2008 05:58:58
Thread-ID: 1014578
11 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
5
1
5
3
4
10
2
2
2
4
3
5
1
3
3
6
9
3
5
1
6
1