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,
ich schlage vor, schittweise vorzugehen.
Ich habe das Programm zum Versand des Blattes „DKB“ so ergänzt, dass vor dem Versand alle Formeln durch ihre Werte ersetzt werden.
Das Programm sieht dann folgendermaßen aus:
Sub TabellenblattVerschicken()
Dim ar As Range
Dim btn As Button
Dim pfad As String
Dim rec As Rectangle
Dim rng As Object
Dim sh As Shape
Dim wb As Workbook
Dim ws As Worksheet
Dim xls_Datei As String
Dim zelle As Range
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
.Unprotect Password:=“AABBAABBAABZ“
On Error GoTo KeineFormeln
Set rng = .UsedRange.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
For Each ar In rng.Areas
For Each zelle In ar.Cells
zelle.Value = zelle.Value
Next zelle
Next ar
KeineFormeln:
.Protect Password:=“AABBAABBAABZ“
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
Als nächstes schicke ich Ihnen dann – wie bereits angekündigt – ein Programm, um ein Tabellenblatt als PDF zu verschicken.
Anschließend können wir Erweiterungen ins Auge fassen.
Mit freundlichen Grüßen
Dieter Klemke