Ausgeblendete Zeilen löschen - Makro
17.09.2004 07:33:50
reto
Wie kann ich per Makro alle ausgeblendeten Zeilen löschen?
Und zwar habe ich eine Excel Liste von der aus ich diverse Tabellenblätter an verschiedene E-Mail Adressen sende. Dazu werden die Blätter einzeln exportiert und dann versandt. Jetzt möchte ich, dass vor dem versenden alle ausgeblendeten Zeilen des exportierten Tabellenblattes gelöscht werden. Also nicht in der Haupt-Mappe (das löschen müsste also vor .sendmail eingesetzt werden).
Versand-Code:
Private Sub Mail_an_Betriebe_Click()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Möchten Sie fortfahren?"
Stil = vbYesNo + vbQuestion + vbDefaultButton1
Titel = "Formulare an alle Betriebe senden?"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Dim sh As Worksheet
Dim wb As Workbook
Dim strdate As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("a3").Value Like "*@*" Then
strdate = Format(Now, "dd-mm-yy")
sh.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs sh.Name & " " & strdate & ".xls"
.UpdateLinks = xlUpdateLinksNever
.SendMail ActiveSheet.Range("a3").Value, _
"Neues Bestellformular"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
Else
End If
End Sub
Besten Dank für Eure Hilfe
Gruss Reto E.
Anzeige