VBA Code per Button/userform bearbeiten
01.04.2014 19:37:38
Markus
Ich sitze schon den ganzen Tag an meinem neuen Projekt und weiß nicht mehr weiter... :(
Ich habe eine Exceltabelle geschrieben, zum erfassen und versenden von Stückzahlen... Dort habe ich einen Button eingefügt, der bestimmte Bereiche der Tabelle per Email direkt verschickt... Funktioniert auch super soweit !
Nun möche ich einen weiteren Button einfügen, der eine Userform öffnet, womit Benutzer des Arbeitsblattes weitere Emailempfänger einfügen können und diese dann auch gespeichert werden...
Möglich? ja? wie?
danke im vorraus
Das ist der Code....
Sub Schaltfläche3_Klicken()
' Schaltfläche3_Klicken Makro
' Verweis auf Microsoft Outlook Bibliothek setzen
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String ' 1) oder As Range
Dim EMailan As String ' 2) oder As Range
Dim strName As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
'Set Bezeichnung = [Tabelle1!G27] ' 1)
Bezeichnung = ActiveWorkbook.Name
'Set EMailan = [Tabelle1!A2] ' 2)
EMailan = "email1@postfach.de, email2@postfach.de, email3@postfach.de"
strName = ActiveWorkbook.Path & "\PST-Zahlen " _
& Format(Date, "DD.MM.YYYY") & ".xls"
' Range("G38").Value = strName
Application.ScreenUpdating = False
Sheets("Schicken").Copy
ActiveSheet.Name = "Tabelle1"
ActiveWorkbook.SaveAs strName
With objMail
.To = EMailan
.Subject = Bezeichnung
.Body = "Mit freundlichen Grüßen vom Leitstand :-)"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
ActiveWorkbook.Close
Kill (strName)
' Meldung:
MsgBox ("Zahlen wurden erfolgreich versendet.")
' Application.Goto Sheets("Eingeben").Range("A1")
' Application.ScreenUpdating = True
End Sub