Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable übergeben

Variable übergeben
16.08.2005 20:47:58
SusanneNr.1000
Hallo,
und wieder mal habe ich eine Frage an die Profis :-) ...
Ich habe ein Makro das eine Variable aus der Zwischenablage ausliest und weiterverarbeitet. Zuerst wird die Variable in eine Excelzelle ausgegeben und dann ein anderes Makro aufgerufen, das dieselbe Variable verwendet. Nachdem der Wert allerdings übergeben worden ist wird die Zelle in die die Variable geschrieben worden ist wieder gelöscht ... und ich habe keine Ahnung wie ich das verhindern kann, da der Wert ja eigentlich bleiben soll ...
Kann man vielleicht den momentanen Variablenwert in eine Konstante übergeben? Gibt es sowas?
Vielen Dank im Voraus
Liebe Grüße Susanne

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

Betreff
Datum
Anwender
Anzeige
AW: Variable übergeben
16.08.2005 20:59:53
Ramses
Hallo
Ohne Code kann da nicht viel gesagt werden.
zeig mal den Code den du verwendest.
Gruss Rainer
AW: Variable übergeben
16.08.2005 21:08:34
SusanneNr.1000
Public strAddresse2$
-------------------------------------
:Ausschnitt aus Makro
If InStr(strAddresse2, "@") > 0 Then
ActiveCell.Value = strAddresse2
Call EmailausMakro
End If
------------------------------------------

Sub EmailausMakro()
On Error GoTo Fehlermelden
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = strAddresse2
E_Mail.Subject = "abcdefgh"
E_Mail.body = "abcdefgh"
E_Mail.display
Set E_Mail = Nothing
Set OutLookJob = Nothing
Exit Sub
Fehlermelden:
MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End
End Sub

Anzeige
AW: Variable übergeben
16.08.2005 21:13:03
Ramses
Hallo
Aus dem Code ist nicht ersichtlich was alles zurückgeschrieben wird.
Sorry,.. keine Idee.
Was kommt nach
"Call EmailausMakro
End If"
Gruss Rainer
AW: Variable übergeben
16.08.2005 21:08:40
SusanneNr.1000
Public strAddresse2$
-------------------------------------
:Ausschnitt aus Makro
If InStr(strAddresse2, "@") > 0 Then
ActiveCell.Value = strAddresse2
Call EmailausMakro
End If
------------------------------------------

Sub EmailausMakro()
On Error GoTo Fehlermelden
Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject("Outlook.Application")
Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = strAddresse2
E_Mail.Subject = "abcdefgh"
E_Mail.body = "abcdefgh"
E_Mail.display
Set E_Mail = Nothing
Set OutLookJob = Nothing
Exit Sub
Fehlermelden:
MsgBox ("Es wurde keine EMAIL durch Outlook geschickt.")
End
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige