---

Hallo!

Ich habe folgendes Problem:

Ich habe mir ein ziemlich umfangreiches Makro erstellt (Rekorder, Foren,...) und es klappt auch soweit. Programmiertechnisch ist es wahrscheinlich katastrophal, aber das ist ein anderes Thema.

Ich führe über eine Übergeordnete Sub (alles in einem Modul) über mehrere CALL Befehle weiteres Sub's aus. Nun mein Problem:

Ich lese in einer Sub einen Zellenwert aus, welchen ich zu einem späteren Zeitpunkt in einer anderen Sub in eine Zelle schreiben lassen will. Ich schaffe es aber nicht, das der Wert übergeben wird.

Habe mal hier mal einen verkürzten Code zusammengestellt, damit ihr sehen könnt, was ich machen will und eventuell, woran es scheitert:

Sub Uebung()

    Call GetName
    Call Showname

End Sub

Sub GetName()

    Dim GetName As String

    GetName = [A1]
        MsgBox GetName 'Wert wird testhalber ausgegeben - i.O.

   
End Sub

Sub Showname()

    Dim FileName As String
    Dim GetName As String 'war mal ein Versuch

    FileName = GetName 'war mal ein Versuch

    MsgBox FileName 'Wert wird nicht angezeigt - n.i.O.
    [A4] = FileName 'Zelle bleibt leer
   
End Sub

Könnte mir bitte jemand helfen - DANKE!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Solche in "Subs" definierten Variablen sind nur lokal in der sie definierenden Prozedur gültig. Wird die Prozedur verlassen, sind sie verschwunden. Es gibt, glaub ich, eine Möglichkeit, global gültige Variablen vorab zu definieren, allerdings wüßte ich jetzt aus dem Stehgreif nicht wie.

Eine mögliche Lösungsvariante für Dein Variablenproblem stellt die Definition einer Funktion dar (Function). Diese übergibt ihr Ergebnis an die aufrufende Prozedur und funktioniert dann wie eine mit Wert belegte Variable. Und mehr benötigst Du augenscheinlich nicht.

Das könnte so aussehen (nur getippt, nicht getestet):

Code:

---

Function Getname(Name as String)
    Name = [A1]
End Function

Sub Showname()
    Dim FileName As String
    Dim Name As String
    FileName = GetName(Name)
    MsgBox FileName
    [A4] = FileName
End Sub

---

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

du kannst den Wert direkt an die andere Sub übergeben

Code:

---

Sub Uebung()
    Showname Range("A1")
End Sub

Sub Showname(FileName As String)
    MsgBox FileName
    Range("A4") = FileName
End Sub

---

oder du deklarierst eine Variable, die in beiden Subs benutzt werden kann. Dabei musst du beachten, dass diese Variable als Public deklariert werden muss, wenn sie in unterschiedlichen Codemodulen verwendet werden soll. Stehen die Subs im selben Modul, reicht die Deklarierun mittels Dim.

Code:

---

Option Explicit
Dim FileName As String     ' <== für Nutzung im selben Codemodul
'Public FileName As String ' <== für Programmweite Nutzung

Sub Uebung()
    FileName = Range("A1")
    Showname
End Sub

Sub Showname()
    MsgBox FileName
    Range("A4") = FileName
End Sub

---

------------------
Bis später,
Karin

[Diese Nachricht wurde von Beverly am 28. Aug. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Piston,
du kannst es auch einfach folgendermaßern machen...

Code:

---

Sub Uebung()

    Dim Name as String

    Name = GetName()
    Showname(Name)

End Sub

Public Function GetName()as String

    Dim Name As String

    Name = [A1]
    return Name 'oder Getname = Name
   
End Function

Sub Showname(ByVal Name as String)

    MsgBox Name
    [A4] = Name
   
End Sub

---

...oder du arbeitest wirklich mit globalen Variablen, die allerdings mehr als nur verpöhnt sind, wenn sie vermeidbar wären.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!

Danke!

Habe die Lösung von carsten-3m aufgegriffen, noch etwas angepasst und es fuktioniert - Vielen Dank an Alle!

Schönen Gruß!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP