Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Variable aus PublicMethod mit Call beziehen.

VBA - Variable aus PublicMethod mit Call beziehen.
25.04.2013 14:19:29
Kai 

Public Sub DetermineConclusionText(typeConclusion As String, arrow As String)
If arrow = "ì" And typeConclusion = "RentValue" Then
conclusionText = "seems appropriate"
End If
Return
End Sub


Private Sub button1_Click()
stringText = "ì"
stringType = "RentValue"
Call DetermineConclusionText(stringText, stringType)
MsgBox(conclusionText)
End Sub

Meine Frage ist, wieso mir in der MsgBox nicht "seems appropriate" ausgegeben wird? Wurde die Variable conclusionText nicht verfügbar gemacht durch den Call Befehl oder gibt es einen extra "übergabe" Befehl damit aus der Methoden-Variable ne globale Variable wird (eventuell public davor?)
Besten Dank für Antworten
Gruss Kai

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Variable aus PublicMethod mit Call beziehen.
25.04.2013 14:27:26
Klaus
Hi,
genau so, public deklarieren über den Subs. 
public conclusionText as string
Public Sub DetermineConclusionText(typeConclusion As String, arrow As String)
If arrow = "ì" And typeConclusion = "RentValue" Then
conclusionText = "seems appropriate"
End If
Return
End Sub
Private Sub button1_Click()
stringText = "ì"
stringType = "RentValue"
Call DetermineConclusionText(stringText, stringType)
MsgBox(conclusionText)
conclusionText = ""
End Sub
Aber warum machst du das nicht mit einer Function? Das ist viel eleganter und du sparst es dir, irgendwelche Variablen in der Gegend rumzuschubsen:
Function DetermineConclusionText(typeConclusion As String, arrow As String) As String
If arrow = "?" And typeConclusion = "RentValue" Then
DetermineConclusionText = "seems appropriate"
End If
End Function
Private Sub button1_Click()
Dim stringText As String
Dim stringType As String
stringText = "?"
stringType = "RentValue"
MsgBox DetermineConclusionText(stringText, stringType)
End Sub
Übrigens, das Beispiel gibt eine leere MsgBox zurück weil du "StringText" und "stringType" vertauscht hast. Hab ich so gelassen.
Grüße,
Klaus M.vdT.

Anzeige
AW: VBA - Variable aus PublicMethod mit Call beziehen.
25.04.2013 14:38:50
Kai
besten Dank für die Lösung.
Das Vertauschen hab ich leider erst "nach" Verfassen des Posts bemerkt. Das war zum Glück auch nicht das Problem. Die Public Deklaration funtioniert, danke.
Eine Frage noch im Anschluss bzgl Function und Method.
Wenn ich das richtig verstehe (und leider ist das bisher erst meine 2. eigene über Call aufgerufene Method):
Anwendung für eigene Method: Veränderungen im Excel
Anwendung für eigene Function: Ausgabe von Variablen
Kann man das so grob zusammenfassen oder warum manchmal eine Method und manchmal lieber eine Function?
Vielen Dank und Gruss, Kai

Anzeige
AW: VBA - Variable aus PublicMethod mit Call beziehen.
25.04.2013 15:02:58
Nepumuk
Hallo,
Sub und Function sind beides Methoden. Bei der einen bekommst du keinen direkten Rückgabewert bei der anderen schon. Beide sind aber grundsätzlich in der Lage geänderte Parameter zurückzugeben. Sie sind also situationsbedingt einzusetzen.
Gruß
Nepumuk

AW: VBA - Variable aus PublicMethod mit Call beziehen.
25.04.2013 15:24:12
Rudi
Hallo, 
Public Sub DetermineConclusionText(ByVal typeConclusion As String, ByVal arrow As String, ByRef  _
conclusionText)
If arrow = "ì" And typeConclusion = "RentValue" Then
conclusionText = "seems appropriate"
End If
End Sub


Private Sub button1_Click()
stringText = "ì"
stringType = "RentValue"
DetermineConclusionText stringType, stringText, conclusionText
MsgBox conclusionText
End Sub

Gruß
Rudi
Anzeige

302 Forumthreads zu ähnlichen Themen

der variable einen Wert zuweisen
Frank

Moin moin,
bin ein bisschen aus der Übung..... ;0)
dim Zahl as integer
range("a1").select
ActiveCell.FormulaR1C1 = "=Rand()"
Zahl = Range("A1").Value
anschließend möchte ich mit der Zufallszahl in der Variable Zahl weitermachen.....
Aber in der Variable Zahl bleibt h...
24.02.2009 12:05:15
Thread-ID: 1053441
5 Beiträge
Anzeige
Globale Variable per UserForm definieren?
Jaffi

Hallo Forum,
und mal wieder hänge ich. Ich versuche eine globale Variable per UserForm zu definieren. Die Eingabe der Teamnummer soll dann von einer anderen Prozedur genutzt werden.
Folgender Code klappt leider nicht: Option Explicit Public varTeam As Integer Private Sub CommandButton1...
15.07.2009 12:48:32
Thread-ID: 1088817
6 Beiträge
VBA Namen definieren mit Variable
Philipp

Hallo,
ich bin seit Stunden dabei einen Dynamischen Datenbereich für eine Pivottabelle zu definieren und komm einfach nicht weiter. Meine bisherigen Lösungsansätze:
Sheets("PRO_Report_alle").Names.Add Name:="ReportBereich", RefersToR1C1:="PRO_Report_alle!" & "A1" & ":" & "...
11.06.2010 20:01:01
Thread-ID: 1161440
7 Beiträge
Anzeige
VBA zu Tabelle - Variablenwerte kommen nicht an
Perry

Hallo!
Mein Problem stellt sich folgendermaßen dar:
Habe eine Arbeitsmappe mit mehreren Worksheets - das erste ist eine Übersicht, die zusammenfassend angeben soll, wie oft bestimmte Ausdrücke in den nachfolgenden Worksheets vorkommen.
Das Zusammenzählen, wie oft die gesuchten Ausdr...
03.07.2011 19:12:26
Thread-ID: 1220730
2 Beiträge
Variablenname in String -> Wert zuweisen?
Michael

Hi.
Abfrage einer Datenbank mit 20 Einträgen:
Spalte 1: Variable
Spalte 2: Pfad
Ich habe somit in einen String der meinen Variablen-Namen entspricht (z.B. "PathCustomer"), in einem weiteren dann den Pfad selbst.
Ist es mit einem Einzeiler möglich, Variablen mit dem Namen aus...
02.08.2013 10:07:24
Thread-ID: 1325387
5 Beiträge
VBA: Variablen Range definieren
na

Guten Morgen zusammen,
sitze hier schon eine Weile vor folgendem Problem:
Ich bekomme aus einer Datenbank relativ ungeordnete Daten. Nun möchte ich in bestimmten Bereichen das Wort Endkontrolle zählen. Das Zählen funktioniert soweit auch, nur weiss ich nicht wie ich den Range variabel g...
17.07.2014 08:10:34
Thread-ID: 1370803
5 Beiträge
VBA einen variablen Wert aus Tabelle auslesen
Annett
Hallo ihr lieben Profis in Sachen VBA !
Ich habe da mal wieder ein Riesen großes Problem.
Den unten stehenden Code verwende ich und läuft auch Tadellos, dank der tollen Mithilfe hier im Forum.
Nun habe ich mit diesem Code ein Problem.
Es geht um die Zeile(n) Target.Offset(0, 8) = "...
18.11.2015 18:46:14
Thread-ID: 1459306
8 Beiträge
VBA Objekt einen Wert aus externer Datei zuweisen
Marek Tecwin
Hallo Ich versuche gerade einen Set Befehl umzuändern. Leider klatt es nicht so recht.
Habe zum Beispiel sowas:
Set Variable = Active.Worksheet
Jetzt möchte ich statt dem Active.Worksheet dort eine andere Datei stehen haben, die die Variable "füttert" geht das?
Grüße
30.12.2015 18:36:30
Thread-ID: 1466462
4 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
4
1
5
6
4
1
4
4
7
3
1
6
3
1
5
3
8
14
1
2
4
2
4
1
6