Hilfe!
Matthias
ich habe folgenden Code um einen Bereich per Email zu versenden:
Sub EmailErinnerung()
Dim rng As Range
Dim sAddress As String
Application.ScreenUpdating = False
Set rng = Range("A3:F18")
sAddress = Range("L2").Value
Workbooks.Add 1
rng.Copy Range("A1")
Columns.AutoFit
ActiveWorkbook.SendMail sAddress, "Test"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Der Bereich der versendet werden soll steht hier fest. Ich brauche es aber so:
Ich möchte per Makro eine oder auch mehrere Zeilen aufrufen und dann genau die aufgerufenen aktiven Zeilen versenden. Also, dass diese im Moment aktiven Zeilen automatisch als der zu versendende Bereich ausgewählt wird. Könnt ihr mir da weiterhelfen?
Danke schonmal
Matthias
Anzeige