AW: Per Textbox Eingabe in Mailbody!
01.09.2006 12:00:02
Krutzler
Hallo Rene!
Liest sich gut und funktioniert auch perfekt in Deiner Arbeitsmappe, aber wo bitte bau ich das in meinem VBA ein:
Sub FWLtg3()
' FWLtg3 Makro
' Makro am 21.08.2006 von akru aufgezeichnet
Sheets("Berechnung").Select
Range("A1:CQ3000").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Wartung.xls"
Range("AH1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Range("AJ:AQ,BH:DX").Select
Range("AJ1").Activate
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
ActiveWorkbook.Save
Windows("AlleFil.xls").Activate
Sheets("Berechnung").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\AllFil.xls"
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Range("C:J,AA:CQ").Select
Range("AA1").Activate
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
ActiveWorkbook.Save
AWS = ActiveWorkbook.FullName
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0) ' Neue Mail erstellen
.display ' Mail anzeigen
.Recipients.Add "dings@dings.at"
.Subject = "Aktuelle AllFil vom " & Date ' Betreff setzen
strSig = .body
.body = "Die neue AlleFil" & vbr & strSig
.ReadReceiptRequested = True ' Rückmeldung senden
.Attachments.Add AWS
.Send ' Mail senden
End With
Windows("AllFil.xls").Activate
Range("A1").Select
ActiveWorkbook.Close
Windows("AlleFil.xls").Activate
Range("A1").Select
ActiveWorkbook.Close
End Sub