Dies ist meine erste Frage in diesem, für mich außerordentlich wertvollem Forum:
Ich möchte folgendes Makro in der Spalte M von M2 bis M403 einfügen.
Welche Möglichkeit gibt es, das Makro so zu formulieren, dass ich nicht für 403 Zeilen 403 Makros erzeugen muss? Gibt es eine Kopiermöglichkeit, so wie beim Kopieren einzelner Zellinhalte? Da werden ja auch Zuweisungen auf die Zeilennummer, in welcher "man" sich befindet, erzeugt.
Hier mein Makro:
die Zellen A2,C2,usw werden durch einen Klick auf die Sachltfläche M2 "Email" als Text in meine Mail aufgenommen.
Wenn ich nun in Feld M 35 auf "Email" klicke, werden die Daten eben auch aus den Feldern A2,C2 usw gezogen und nicht aus A35,C35 usw.
Wer kann mir bitte weiter helfen?
Sub Email()
Dim ol, Mail As Object
Dim OutApp As Object, i
Dim Nachricht
Set ol = CreateObject("Outlook.Application")
Dim ClpObj As Object
For i = 1 To 1
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Set Mail = ol.CreateItem(0)
Mail.Subject = " Besuchsbestätigung " & Now
Mail.To = "test@irgendwo.de"
Mail.cc = ""
Mail.bcc = ""
Mail.Body = "Sehr geehrte Frau Mustermann, sehr geehrter Herr Mustermann," & Chr(13) & _
Chr(13) & _
"die Filiale" & Chr(13) & Chr(13) & _
Worksheets("Tabelle1").Range("A2").Value & _
Chr(13) & _
Worksheets("Tabelle1").Range("C2").Value & _
Chr(13) & _
Worksheets("Tabelle1").Range("D2").Value & " " & Worksheets("Tabelle1").Range("E2").Value & _
Chr(13) & Chr(13) & _
"wurde von ADM " & Worksheets("Tabelle1").Range("K2").Value & _
Chr(13) & Chr(13) & _
"am " & Worksheets("Tabelle1").Range("L2").Value & _
Chr(13) & Chr(13) & Worksheets("Tabelle1").Range("M2").Value & _
Chr(13) & Chr(13) & _
"Mit freundlichem Gruß" & Chr(13) & "der Verfasser" & Chr(13) & Chr(13) & _
"Diese Mail wurde nach Eingang und Prüfung des Besuchsberichtes versandt."
SendKeys "%S"
Mail.Send
Set olApp = Nothing
Next i
End Sub
Vielen Dank!
Nette Grüße
Sven