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 Herr Klemke,
vielen Dank an die vorhergehenden Programme.
Ich habe habe eine bitte.Können Sie bitte in den nachfolgenden Progamm eine kleine Umschreibung machen. ( Von Ihnen geschrieben ).
= Mappenname aus D8 ( = Mannschaftsname ) gegen R8 ( = Mannschaftname )bitte umschreiben, danke.
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“ = Mappenname aus D8 gegen R8 bitte umschreiben, danke.
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
Ich danke Ihnen im vorraus.
MfG Kay.
PS: Vieleicht klappt es bis Sonnabend, da kann ich es am Sonntag beim Punktspiel ( Kegeln ) anwenden, danke.