Thema Datum  Von Nutzer Rating
Antwort
02.09.2015 08:12:27 Richard
NotSolved
02.09.2015 09:38:44 Gast15610
*****
Solved
Rot Parameterübergabe Tabelle an Modul
 02.09.2015 10:39:05 Gast5855
NotSolved
02.09.2015 10:50:05 Gast42100
NotSolved

Ansicht des Beitrags:
Von:
Gast5855		 Datum:
02.09.2015 10:39:05		 Views:
1211		 Rating:
     
Antwort:
  Ja
Thema:
Parameterübergabe Tabelle an Modul

Okay Danke schonmal das Hilft mir weiter!

Jetzt kommt jedoch der Fehler: "Fehler beim kompilieren: Variable oder Prozedur anstelle eines Moduls erwartet"

Ich kopiere nochmal den gesamten Code hier rein.

Tabelle:

Private Sub Schleife()

Dim Zeile As Long

   For Zeile = 4 To 10000
        
        If Cells(Zeile, 16) = Range("H1") Then Send_Excel_Message (Zeile) 'Übergabe Zeilenwert         
        
    Next Spalte
        
End Sub

Modul:

Sub Send_Excel_Message(ByVal ZeilenIndex As Long)

Dim MyMessage As Object, MyOutApp As Object

Set MyOutApp = CreateObject("Outlook.Application")

Set MyMessage = MyOutApp.CreateItem(0)

With MyMessage
    
    Dim Vorname As Long
    Dim Nachname As Long
    Dim EmailAdresse As Long
    Dim Zeile As Long
        
    Vorname = Cells(ZeilenIndex, 21)
    Nachname = Cells(ZeilenIndex, 22)
    
    EmailAdresse = Vorname + "." + Nachname + "@.de.bosch.com"
    
     .To = EmailAdresse
     .Subject = "Erinnerung Einlagerung AML" & Date & ", " & Time

     .HTMLBody = "Sehr geehrter Herr " + Nachname + "," + vbNewLine + "Ich möchte Sie daran erinnern, dass sich die von Ihnen eingelagerte Maschine X ...."
     'Entwirft Mail in Outlook
     .Save
     SendKeys "%S"
     
End With

Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub

Muss ich hier was anders machen? Oder geht das generell so?

Vielen Dank,

Gruß Richi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.09.2015 08:12:27 Richard
NotSolved
02.09.2015 09:38:44 Gast15610
*****
Solved
Rot Parameterübergabe Tabelle an Modul
 02.09.2015 10:39:05 Gast5855
NotSolved
02.09.2015 10:50:05 Gast42100
NotSolved