Hallo Leute,
kann mir jemand helfen mit der Rangsortierung . Es muß nach verschiedenen
Größen sortiert werden = 4 in der Anzahl ( Benutzerdefiniert ),
das heist natürlich mit Formeln.
Hallo Kay,
mit der folgenden Prozedur können Sie das Blatt „DKB“ als xls-Arbeitsmappe per E-Mail verschicken. Vor der Verschickung werden die Schaltflächen aus dem Blatt „DKB“ entfernt. Sie machen ja für den Empfänger keinen Sinn, da er die zugehörigen Programme nicht hat.
Bei Verwendung von Outlook bekommen Sie ggf. einen Warnhinweis, der besagt, dass per Programm versucht wird eine Mail zu verschicken. Klicken Sie bei diesem Hinweis auf die Schaltfläche „Erteilen“, um Outlook die Erlaubnis zu erteilen, die Mail zu versenden.
Programm:
Sub TabellenblattVerschicken()
Dim btn As Button
Dim pfad As String
Dim rec As Rectangle
Dim sh As Shape
Dim wb As Workbook
Dim ws As Worksheet
Dim xls_Datei As String
xls_Datei = „DKS.xls“
Set wb = ThisWorkbook
pfad = wb.Path & „“
Set ws = wb.Worksheets(„DKB“)
On Error Resume Next
Workbooks(xls_Datei).Close Savechanges:=False
Kill pfad & xls_Datei
On Error GoTo 0
ws.Copy
With ActiveWorkbook.Worksheets(1)
For Each btn In .Buttons
btn.Delete
Next btn
For Each rec In .Rectangles
rec.Delete
Next rec
End With
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=pfad & xls_Datei, _
FileFormat:=xlExcel8
Application.DisplayAlerts = True
ActiveWorkbook.SendMail Recipients:=“test@test.de“, _
Subject:=“Spielbericht vom “ & Date
ActiveWorkbook.Close Savechanges:=True
End Sub
Zum Versand des Blattes als PDF schicke ich Ihnen in den nächsten Tagen eine zweite Prozedur.
Mit freundlichen Grüßen
Dieter Klemke