E

Problem Makro
Bei Ereignisprozeduren muss für jedes Element eine eigene Sub geschrieben werden, dies kann  bei vielen Elementen ziemlich nerven Dieses Makro schreibt die vielen fast identischen Subs in eine Textdatei, deren Zeilen über die Zwischenablage aus dem Editor kopiert werden können.

Sub schreiben()
Open "C:\Eigene Dateien\textexport.txt" _
For Output As #1 ' Datei zur Ausgabe öffnen.
For i = 1 To 80
Print #1, "Sub CheckBox" & i & "_Click()"
Print #1, " MeineSub"
Print #1, "End Sub"
Print #1, ' Leerzeile in Datei schreiben.
Next i
Close #1 ' Datei schließen.
End Sub
'Dieses Makro schreibt direkt in die Zwischenablage
Von Robert Gelbmann


Sub schreiben()
Dim CodeTXT As String
For i = 1 To 80
CodeTXT = CodeTXT & "Sub CheckBox" _
& i & "_Click()" & vbCrLf & " MeineSub" _
& vbCrLf & "End Sub" & vbCrLf & vbCrLf
Next i

Set TestDaten = New DataObject

TestDaten.SetText CodeTXT
TestDaten.PutInClipboard
End Sub
Pfad des Verzeichnisses
"Eigene Dateien" bei NT-Benutzern ermitteln
(auch Win 9x)
komplettes Modul
Email per Outlook aus Excel versenden, auch mit Dateianhang ' erstellt von mir nach einer Vorlage von Bernd Held
Sub EMailMitDateiSenden()
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "Email mit Datei im Anhang " & Now
mail.To = "bert@bert-koern.de"
mail.cc = "Berti@swol.de"
mail.bcc = "Berti@swol.de"
'mit body wird nur noch im txt-Format versandt!
mail.body = "Testmail" & Chr(13) & _
"Dieses Mail wurde direkt aus Excel versandt" & Chr(13) & _
"und dabei der nachfolgende Dateianhang angehängt." & Chr(13) & Chr(13)
mail.Attachments.Add "c:\config.sys"
'Mail anzeigen
mail.Display
' mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send

End Sub
HTML-Email per Outlook aus Excel versenden, auch mit Dateianhang Sub HTML_EMailMitDateiSenden()
Dim ol, mail As Object
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
mail.Subject = "HTML-Email mit Datei im Anhang " & Now
mail.To = "bert@bert-koern.de"
'mail.cc = "bert@bert-koern.de"
'mail.bcc = "bert@bert-koern.de"

mail.htmlbody = _
"<body background=""http://bert-koern.de/bilder/hintergrund.jpg"">" & Chr(13) & _
"<b>Testmail<br></b>" & Chr(13) & _
"Dieses Mail wurde direkt aus Excel versandt<br>" & Chr(13) & _
"und dabei der nachfolgende Dateianhang angehängt.<br>" & Chr(13) & _
"<font color=red>Was da nicht alles machen kann:<br> </font>" & Chr(13) & _
"Sogar Bilder mit Link sind möglich!<br><br><br>" & Chr(13) & _
"<a href=""http://bert-koern.de""><img border = 0 src=""http://bert-koern.de/bilder/bertishomepagekl.gif""></a>"
mail.Attachments.Add "c:\config.sys"
'Mail anzeigen
mail.Display
End Sub
Mail-Programmunabhängig eine Mail versenden mit Zeilenumbruch 'von Marcus Schmitt:

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Private Sub Command1_Click()
Dim Nachricht As String
'Zeilenumbruch mit %0D%0A erzwingen!
Nachricht = "Hallo" & "%0D%0A" & "Du da !"
Call Mail("Marcus-Schmitt@gmx.de", "Ein Betreff", Nachricht)
End Sub

 

Letzte Änderungen auf dieser Seite am 29.10.2006

Valid XHTML 1.0 Transitional    Valid CSS!

Berti's ExcelABC mit vielen Tipps und Tricks rund um Excel und die Makros bzw. VBA

Seitenanfang

A B C D E F G H i J K L M N O P Q R S T U V W X Y Z
Excel: 39  |  Formeln: 1  |  Funktionen: 8  |  Makro / VBA: 40  |  Hintergrundinfos: 7  |  Beispieldateien: 11  |  Komplettlösungen: 1