Hallo Leute,
Ich habe ein Problem und komme einfach nicht weiter...Ich möchte die Variable 'Zeile' an das Modul1 (Name:Send_Excel_Message) übergeben.
Bin sehr unerfahren in VBA und habe nichts gefunden was mir weiterhelfen könnte.
Private Sub Schleife()
Dim Zeile As Integer
For Zeile = 4 To 10000
If Cells(Zeile, 16) = Range("H1") Then Send_Excel_Message(Zeile) 'ÜBERGABE von Zeile AN MODUL1 WIE????
Next Spalte
End Sub
Das ganze soll hier aufgerufen werden.
Sub Send_Excel_Message()
Dim MyMessage As Object, MyOutApp As Object
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobjekt erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
Dim Vorname As String
Dim Nachname As String
Dim EmailAdresse As String
Dim Zeile As Integer
Vorname = Cells(4, 21)
Nachname = Cells(4, 22)
.....
Ich danke im Voraus :)
Richi
|